Skip to main content

AccessTr.neT

Kayıt Ol

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

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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Excel Cevaplanmış Soruları
28
2547

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

#7
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
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)
Cevapla
#8
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 56
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
@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.)

[Resim: do.php?img=11042]
[Resim: do.php?img=11041]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 16/05/2021, 10:14, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#9
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
(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.
Cevapla
#10
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 56
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
(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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 16/05/2021, 16:04, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#11
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Demek istediğim şuydu..unprotect kodu ana sayfanın korumasını kaldırıyor whatsap sayfanın değil.Whatsap sayfa içinde ekleyin.
Cevapla
#12
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 56
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
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task