12/05/2021, 22:52
Herkese Hayırlı Bayramlar ve Sağlıklı Günler dilerim.
![[Resim: do.php?img=11023]](https://resim.accesstr.net/do.php?img=11023)
![[Resim: do.php?img=11024]](https://resim.accesstr.net/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.
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