Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excelde Hücreye Girilen Gsm No Yu Diğer Hücrede Otomatik Biçimlendirmek

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Excel Cevaplanmış Soruları
30
2260

Excelde Hücreye Girilen Gsm No Yu Diğer Hücrede Otomatik Biçimlendirmek

Çözüldü #1
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
Herkese Hayırlı Bayramlar ve Sağlıklı Günler dilerim.

[Resim: do.php?img=11023]
[Resim: do.php?img=11024]

Excelde User formdan sayfaya bilgiler kaydediyorum. Bu bilgilerden telefon numara bilgisi hücreye telefon no formatında kaydoluyor. Ben uygulamamda hücreye (545) 900-5678 formatında yapılan kaydı aynı anda başka bir hücrede +905459005678 şeklinde oluşması için (Whatsapp mesaj gönderimi için bu formatı destekliyor) dosyadaki gibi hızlı doldurma seçeneği ile bir çözüm ürettim ama kayıt yaptıkça hızlı doldurmayı tekrar tekrar çalıştırmak gerekiyor ve bu işlem zaman alıyor. Bu işi uygulamam da Userformdan kayıt esnasında satırdaki belli bir hücreye whatsapp formatında kayıt yaptırmak için kodu nasıl revize edebilirim.

Kod:
      .Cells(SonSatir, 1) = WorksheetFunction.Max(.Range("A2:A" & Rows.Count)) + 1
        .Cells(SonSatir, 2) = TextBox_FirmaAdi.Value
        .Cells(SonSatir, 3) = ComboBox_FirmaUnvani.Value
       
        .Cells(SonSatir, 4) = TextBox_YetkiliKisi.Value
        .Cells(SonSatir, 5) = TextBox_Telefon.Value
        .Cells(SonSatir, 6) = TextBox_Gsm.Value
        .Cells(SonSatir, 7) = TextBox_Email.Value
        .Cells(SonSatir, 8) = TextBox_Adres.Value
        .Cells(SonSatir, 9) = TextBox_Aciklama.Value
       
        .Cells(SonSatir, 10) = ComboBox_Ilce.Value
        .Cells(SonSatir, 11) = ComboBox_Sehir.Text
        .Cells(SonSatir, 12) = ComboBox_Bolge.Value
        .Cells(SonSatir, 13) = ComboBox_Temsilci.Value
        .Cells(SonSatir, 14) = ComboBox_RouteDay.Value
        .Cells(SonSatir, 15) = ComboBox_YetkiliBayilik.Value
       
        checkboxKontrol SonSatir
        .Cells(SonSatir, 26) = TextBox_Tarih.Value
       
        .Cells(SonSatir, 27) = ComboBox_Kaynak.Value
        .Cells(SonSatir, 28) = ComboBox_Ziyaret.Value
        .Cells(SonSatir, 29) = ComboBox_Katalog.Value
'      .Cells(SonSatir, 30) = TextBox_Gsm.Value  BU hücreye kaydın (545) 900-0101  yerine +905459000101 şeklinde yapılması
'        için ne yapabilirim
.rar WINPERAX whatsapp.rar (Dosya Boyutu: 168,18 KB | İndirme Sayısı: 6)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 12/05/2021, 23:05, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:44
Yorumları: 8.396
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.034 
.Cells(Guncelle, 30).Value = "+90" & TextBox_Gsm.Value

ben burada .Cells(Guncelle, 30).Value = "+90" & TextBox_Gsm.Value güncelle kullandım ama eğer sizde SonSatir yazıyorsa onu kullanın
Not: sizce de bunu sizin de yapabiliyor olmanız gerekmez mi?
bizim nerede değişiklik yapmamızı istiyorsunuz, başka bir yerde mi? açıkçası tam anlamadım.
Cevapla
#3
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
Hem güncelleme hemde kaydetme yordamlarına yazdım ama sadece +90 yazıldı hücreye berduş hocam gsm.value değeri ile birleştirmedi.
Kod:
.Cells(Guncelle, 30).Value = "+90" & TextBox_Gsm.Value
Kod:
.Cells(SonSatir, 30).Value = "+90" & TextBox_Gsm.Value
[Resim: do.php?img=11026]
Hem güncelleme hemde kaydetme yordamlarına yazdım ama sadece +90 yazıldı hücreye berduş hocam gsm.value değeri ile birleştirmedi.
Kod:
.Cells(Guncelle, 30).Value = "+90" & TextBox_Gsm.Value
Kod:
.Cells(SonSatir, 30).Value = "+90" & TextBox_Gsm.Value
[Resim: do.php?img=11026]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 13/05/2021, 01:02, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:44
Yorumları: 8.396
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.034
ben sadece güncellemede denedim çalışıyordu
[Resim: do.php?img=11027]
https://resim.accesstr.net/do.php?img=11027
Cevapla
#5
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
(13/05/2021, 00:50)berduş yazdı: 
.Cells(Guncelle, 30).Value = "+90" & TextBox_Gsm.Value

ben burada .Cells(Guncelle, 30).Value = "+90" & TextBox_Gsm.Value güncelle kullandım ama eğer sizde SonSatir yazıyorsa onu kullanın
Not: sizce de bunu sizin de yapabiliyor olmanız gerekmez mi?
bizim nerede değişiklik yapmamızı istiyorsunuz, başka bir yerde mi? açıkçası tam anlamadım.

Kod:
.Cells(SonSatir, 30) = "+90" & TextBox_Gsm.Value
ben bu şekilde yapmıştım ama aynı sonucu almıştım sonrada başka bir hinlik var herhalde diye düşündüm lakin aynı sonucu veriyor her iki kod da
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:44
Yorumları: 8.396
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.034
resimde dikkatimi çekti sizin +90 yazan satırdaki GSM alanları boş
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task