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
2431

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

#13
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: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

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.

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
Bu şekilde çalıştırdım ama her seferinde şifre girmem gerekiyor. Şimdi bunu çözmeye çalışıyorum.
@feraz hocam onu da çözdüm. Çok zekiyim bugün Img-grin
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 16/05/2021, 16:58, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#14
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
Unprotect ten sonra boşluk ekleyip alttaki yazılacak sadece abey Img-grin

"171717"
Cevapla
#15
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 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 If
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#16
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:02
Yorumları: 8.478
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
iyi de zaten whatsAp sayfasını ana sayfaya bağlamışsınız neden tekrar ekleme ihtiyacı duyuyorsunuz?
Cevapla
#17
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:02
Yorumları: 8.478
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
yada ne bileyim pivot olarak bağlamıyorsunuz?
Cevapla
#18
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, 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.
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