Makro ile URL Adresi Oluşturma

ssavas · 27 Tem 2023

Merhaba arkadaşlar.
Ekli çalışmamda yaşadığım iki sorun hakkında yardımlarınızı rica ediyorum.
İlki; textboxlara veri girdikçe labelda resimdeki gibi url adresi oluşturmak istiyorum.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(23 satır)

stc.Text= Sorgulayan Kişinin Kimlik Numarası (12345678910)
tc.Text=Sorgulayan Kişinin Kimlik Numarası (12345678910)
sifre.Text=Sorgulayan Kişinin Şifresi (abc.1234)
Her bir textbox'a veri girdikçe url.caption'da şu şekilde bir url adresi oluşmalı.

kps.bsm.gov.tr

İkincisi ise; json dosyasından label'lara gelen verilerde Türkçe karakter sorunu oluşuyor. Labeldaki font dil durumuna bakınca Türkçe seçili olduğu görülüyor ancak bir türlü dil sorununu çözemedim.

Yardımcı olacak üstatlara teşekkür ederim.

Ömer BARAN · 27 Tem 2023

İlgili Sorgu Yap düğmesine ait kodun sonuna şöyle bir ekleme işinizi görür sanırım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

ssavas · 27 Tem 2023

Ömer BARAN' Alıntı:
İlgili Sorgu Yap düğmesine ait kodun sonuna şöyle bir ekleme işinizi görür sanırım.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (3 satır)

Eyvallah ömer hocam sorunsuz çalıştı.
Türkçe karakter sorununa da bir çözüm öneriniz olursa müteşekkir olurum.

Ömer BARAN · 27 Tem 2023

Daha evvel Türkçe konusunu çözdüğünüzü hatırlıyorum.

ssavas · 27 Tem 2023

Ömer BARAN' Alıntı:
Daha evvel Türkçe konusunu çözdüğünüzü hatırlıyorum.

Evet listview nesnesinde ortaya çıkan dil sorununda nesne ayarlarında Türkçe olmayan bir dil seçiliymiş. Türkçe yapınca listview'da ki dil sorunu çözülmüştü.
Benzer şekilde label'ların da nesne ayarlarına baktım, aksi bir şey göremedim. Dil Türkçe olmasına rağmen karakter sorunu ortaya çıkıyor.

Ömer BARAN · 27 Tem 2023

Elimizde örnek bir JSON metni (dosyası) olsa idi belki deneme şansımız olurdu.
Örnek veri olmayınca, hayalen yapılacak önerilerin sorunu çözmesi bence zor.

ssavas · 27 Tem 2023

Ömer BARAN' Alıntı:
Elimizde örnek bir JSON metni (dosyası) olsa idi belki deneme şansımız olurdu.
Örnek veri olmayınca, hayalen yapılacak önerilerin sorunu çözmesi bence zor.

Eyvallah hocam, ilk mesajdaki zipli eklentide json dosyası da mevcut. Gözünüzden kaçmış sanırım.

Ömer BARAN · 28 Tem 2023

@ssavas
Mevcut CommandButton1ImportJSONFile_Click kodunda,
Set kps_sorgu = Json ......... Close #iFile arasını şöyle değiştirin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(12 satır)

ssavas · 28 Tem 2023

Ömer BARAN' Alıntı:
@ssavas
Mevcut CommandButton1ImportJSONFile_Click kodunda,
Set kps_sorgu = Json ......... Close #iFile arasını şöyle değiştirin.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (12 satır)

Hocam elinize emeğinize sağlık.
Türkçe karakter sorunu tamamen giderilmiş. Sadece bazı karakterlerden (Ğ,Ş gibi) sonra veride birkaç tık boşluk yapıyor.

Ömer BARAN · 28 Tem 2023

@ssavas

Bilgisayarda değilim.
Verdiğim koddaki
Me.Controls(alan(xd)).Caption = snc: snc = Empty
kısmını
Me.Controls(alan(xd)).Caption = Application.Trim(snc): snc = Empty
şeklinde değiştirip deneyin.

Feyzullah · 28 Tem 2023

Merhaba, Türkçe karakter sorunu çözmek için aşağıdaki kodların silin.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

Bu kodların yerine aşağıdaki kodu yazın.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

ssavas · 28 Tem 2023

Feyzullah' Alıntı:
Merhaba, Türkçe karakter sorunu çözmek için aşağıdaki kodların silin.

Kod:

İndirmek için giriş yapmanız gerekmektedir. (2 satır)

Bu kodların yerine aşağıdaki kodu yazın.

Kod:

İndirmek için giriş yapmanız gerekmektedir. (4 satır)

Teşekkür ederim feyzullah hocam. Sorun çözülmüştür.

ExcelDepo · 28 Tem 2023

Savaş bey,

Her mesajınızda "alıntı" yapmamanızı rica ederim.
Alıntı alanı, yalnızca gerek görüldüğü metin, cümle vs kullanılmak içindir.

	Makro ile Kapalı Dosyadan Veri Çekme PriveT 4 Mar 2025 Makro Soruları
	Makro ile Şartlı Derlemeler Yapma Akif59 14 Mar 2025 Makro Soruları
	Makro ile Köprü Oluşturma okan32 6 Mar 2024 Makro Soruları
	Nöbet Listesi Makro Düzenleme cakarem 1 Haz 2024 Makro Soruları
	Mevcut Makro Dosyasında Geliştirme Yardımı Ömer BARAN 19 Eyl 2020 Makro Soruları