+- 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. - feraz - 16/05/2021
Kayıt yapar abey.
Nitekimde bende yaptı.Sizdeki sebep kaydetme kodu çalışınca koda sayfa koruma kodu eklememiş olabilirsiniz.Eklediğiniz dosyada o hata vermişti.
(16/05/2021, 00:34)Oğuz Türkyılmaz yazdı: (2, 1)
Bunlrın yerine alttaki gibideneyin.Dediğim gibi (2,1) olayıda çalışıyor.
.offset(1)
Re: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021
@feraz hocam bu hatanın çıktığı iyi oldu çünkü bende sayfa koruma kodu ile ilgili kafa karışıklığı var. Ben sayfaları korumaya aldım evet ama güncelleme ve silme kodlarımda işlem öncesi .unprotect "şifre" ve işlem bitiminde de .protect "sifre" kodları kullanıldı ama kayıt ekleme kodlarında artık bu kodlar yok. çalışma mantığı önce korumayı kaldır kodu çalıştır ve işlemi gerçekleştir sonra sayfayı tekrar korumaya al bu şekilde. Çalışma kitabında da bir sub tanımlı zaten , kitap açıldığında tüm sayfalar korumalı modda açılsın diye ki öyle açılıyor.
Kod:
Private Sub Workbook_Open()
strPassword = "171717"
..........Kod:
.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).Value = "+90" & TextBox_Gsm.ValueRE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - feraz - 16/05/2021
(16/05/2021, 09:30)Oğuz Türkyılmaz yazdı: .unprotect"171717"Söylermisin abey bu kod hangi sayfanın korumasını kaldırıyor?
Ayrıca başka konunuzda anlatmıştım.Bir const ile şifre tanımlayıp bir defada klit aç ve kilitkapat gbi sub yazsaydınız her yere aynı şifre yazmak zorunda kalmazdınız.
Re: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021
(16/05/2021, 13:06)feraz yazdı:(16/05/2021, 09:30)Oğuz Türkyılmaz yazdı: .unprotect"171717"Söylermisin abey bu kod hangi sayfanın korumasını kaldırıyor?
Ayrıca başka konunuzda anlatmıştım.Bir const ile şifre tanımlayıp bir defada klit aç ve kilitkapat gbi sub yazsaydınız her yere aynı şifre yazmak zorunda kalmazdınız.
Sub tanımlama aklımda bir türlü oraya sıra gelmedi. Bu kod ana_sayfada güncelle ve silme kodlarında geçiyor. Aşağıdaki güncelleme kodlarının 22.satırında.
Kod:
Dim SonSatir, SatirSil, aranan As Variant
Dim Guncelle As Long
'Const sifre As String = "171717"
Private Sub btn_Guncelle_Click()
With ThisWorkbook.Worksheets("Ana_Sayfa")
If Trim(ComboBox_FirmaUnvani.Value) = "" Then
MsgBox "Veriler bos oldugu icin güncelleme iptal edildi.", vbCritical, "Hata"
Exit Sub
End If
Guncelle = CLng(Me.ComboBox_FirmaUnvani.Tag)
If MsgBox("Yaptığınız Değişiklikler Kaydedilerek, Bilgiler Güncellenecektir, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub
'Debug.Print .Cells(Guncelle, 1).Address, TextBox_ID.Value
.Unprotect "171717"
.Cells(Guncelle, 1) = TextBox_ID.Value
.Cells(Guncelle, 2) = TextBox_FirmaAdi.ValueRE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - feraz - 16/05/2021
Demek istediğim şuydu..unprotect kodu ana sayfanın korumasını kaldırıyor whatsap sayfanın değil.Whatsap sayfa içinde ekleyin.
RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021
(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
Kod:
TextBox_Gsm.Value = Replace(Replace(Replace(Replace(TextBox_Gsm.Value, "(", ""), ")", ""), " ", ""), "-", "")
.Cells(Guncelle, 30).NumberFormat = "@"
.Cells(Guncelle, 30) = "+90" & TextBox_Gsm.Value