+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. (/konu-excel-vba-da-veri-kaydederken-diger-sayfaya-kopyasini-almak.html)
RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021
(16/05/2021, 16:38)Oğuz Türkyılmaz yazdı:(16/05/2021, 16:05)feraz yazdı: Demek istediğim şuydu..unprotect kodu ana sayfanın korumasını kaldırıyor whatsap sayfanın değil.Whatsap sayfa içinde ekleyin.
Hocam biliyorum ama WHATTSAPP worksheet in hangi yordamına yazılacak onu çözemedim.
Kopyalama kodu
Ana Sayfadan tetikleniyor. Ben se bu kod tetiklenirken aynı anda whatsapp sayfasının korumasının kaldırılması için kodu nereye yazacağımı keşfedemedim.Kod:TextBox_Gsm.Value = Replace(Replace(Replace(Replace(TextBox_Gsm.Value, "(", ""), ")", ""), " ", ""), "-", "")
.Cells(Guncelle, 30).NumberFormat = "@"
.Cells(Guncelle, 30) = "+90" & TextBox_Gsm.Value
Kod:
ThisWorkbook.Worksheets("WHATSAPP").Unprotect
ThisWorkbook.Worksheets("WHATSAPP").Cells(Rows.Count, 1).End(3)(2, 1).NumberFormat = "@"
ThisWorkbook.Worksheets("WHATSAPP").Cells(Rows.Count, 1).End(3)(2, 1) = "+90" & TextBox_Gsm.Value@feraz hocam onu da çözdüm. Çok zekiyim bugün
RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - feraz - 16/05/2021
Unprotect ten sonra boşluk ekleyip alttaki yazılacak sadece abey
"171717"
RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021
@feraz hocam kayıt ekleme sorununu hallettim. Güncelleme ile ilgili sorunu nasıl aşabilirim. Güncelleme yapmak istediğimde koda whatapp sayfasında hangi satırı güncelleyeceğini, nasıl gösterebilirim. End(3) dolayısıyla güncellemede de yeni kayıt yapar gibi en son satıra kaydediyor.
Kod:
End With
If TextBox_Gsm.Value <> "" Then
TextBox_Gsm.Value = Replace(Replace(Replace(Replace(TextBox_Gsm.Value, "(", ""), ")", ""), " ", ""), "-", "")
ThisWorkbook.Worksheets("Ana_Sayfa").Cells(Guncelle, 30).NumberFormat = "@"
ThisWorkbook.Worksheets("Ana_Sayfa").Cells(Guncelle, 30) = "+90" & TextBox_Gsm.Value
ThisWorkbook.Worksheets("WHATSAPP").Unprotect ("171717")
ThisWorkbook.Worksheets("WHATSAPP").Cells(Rows.Count, 1).End(3)(2, 1).NumberFormat = "@"
ThisWorkbook.Worksheets("WHATSAPP").Cells(Rows.Count, 1).End(3)(2, 1) = "+90" & TextBox_Gsm.Value
ThisWorkbook.Worksheets("WHATSAPP").Protect
Else
End IfRE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - berduş - 16/05/2021
iyi de zaten whatsAp sayfasını ana sayfaya bağlamışsınız neden tekrar ekleme ihtiyacı duyuyorsunuz?
RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - berduş - 16/05/2021
yada ne bileyim pivot olarak bağlamıyorsunuz?
RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021
(16/05/2021, 17:34)berduş yazdı: iyi de zaten whatsAp sayfasını ana sayfaya bağlamışsınız neden tekrar ekleme ihtiyacı duyuyorsunuz?
Berduş hocam daha önce formülle bağlamıştım herhalde onu söylüyorsunuz. Formülü tüm A sütununda aşağı doğru kopyalattığımda boş olan hücrelere 0 değeri atıyordu.Whatsapp programının 0 sayısını dikkate alıp almayacağını ne şekilde davranacağını bilmediğimden Telefona mesaj atmaya çalışacağını düşünüp Numaraları whatsapp sayfasına kod ile ekleme yoluna gittim. Fakat bu sefer çok fazla yeri değiştirmek gerekecek güncellemedeki sorun silme işleminde de baş ağrıtacak gibi.