Makro ile URL Adresi Oluşturma

[ssavas]

Excel Versiyonu

Excel 2019

Excel Sürümü

64 Bit

Excel Dili

Türkçe

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.

Görüntülemek 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.

 

Metni İstenen Karakterlik Satırlara Bölme

Makroyu Son Satırda Durdurma

[Ömer BARAN]

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

Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

 

[ssavas]

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

Görüntülemek 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]

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

 

[ssavas]

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]

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]

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]

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

Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)

 

[ssavas]

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

Görüntülemek 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]

@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]

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

Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)

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

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

 

[ssavas]

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

Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)

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

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

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

 

[ExcelDepo]

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.