Makro ile URL Adresi Oluşturma

Makro ile URL Adresi Oluşturma

  • Konuyu başlatan Konuyu başlatan ssavas
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ssavas

VIP Üye
Kullanıcı
Katılım
3 Ağu 2017
Mesajlar
247
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.
Ekran görüntüsü 2023-07-27 142929.webp

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ı.

İ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.
Ekran görüntüsü 2023-07-27 144329.webp

Yardımcı olacak üstatlara teşekkür ederim.
 
Metni İstenen Karakterlik Satırlara Bölme
Makroyu Son Satırda Durdurma

Ekli dosyalar

Çözüm
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)
Tarihe göre sırala Oylamaya göre sırala
İ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)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Daha evvel Türkçe konusunu çözdüğünüzü hatırlıyorum.
Genişletmek için tıklayın ...
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.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
@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)
 
Oyla 0 Olumsuz oyla
Ö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)
Genişletmek için tıklayın ...
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.
Ekran görüntüsü 2023-07-28 085943.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@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.
 
Oyla 0 Olumsuz oyla
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)
 
Oyla 0 Olumsuz oyla
Çözüm
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.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt