Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak.

1 2 3 4 5

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)

@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"

..........

velhasıl kelam kayıt_ekle kodu sayfa koruması kaldırılmadan nasıl çalışıyor bunu anlamadım. Dolayısı ile yapmamı söylediğiniz sayfa koruması ile ilgili eklentiyi nereye koyacağımı da anlamadım. Aşağıdaki şekilde yaptım oda hata verdi.

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

Whatsapp Sayfa korumasını manuel olarak kaldırıp denediğimde kaydı 19 nolu satıra yaptı. Sayfada daha önce 18 satırlık bilgi vardı ben tamamını manuel olarak seçip sildim (Userform üzerinden tek tek çağırıp silmedim sanırım bu yüzden bu satıra kaydetti.)

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

(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.Value

Demek istediğim şuydu..unprotect kodu ana sayfanın korumasını kaldırıyor whatsap sayfanın değil.Whatsap sayfa içinde ekleyin.

(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

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.

1 2 3 4 5