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

Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5

Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 15/05/2021

Merhaba
"Ana_sayfa" sekmesinde ki formdan bilgileri "Ana_sayfa" sayfasına kaydederken bu bilgilerden
TextBox_Gsm.Value değerinin "WHATSAPP" sayfasında "A" sütununda sıradaki boş hücreye otomatik kopyalanmasını nasıl sağlarım. Şu an bu işlemi formül ile manuel olarak yapabiliyorum ama kullanışlı olmuyor.

[Resim: do.php?img=11036]

Kod:

.Cells(SonSatir, 27) = ComboBox_Kaynak.Value

        .Cells(SonSatir, 28) = ComboBox_Ziyaret.Value

        .Cells(SonSatir, 29) = ComboBox_Katalog.Value

        

         End With

        

        If TextBox_Gsm.Value <> "" Then

              

            TextBox_Gsm.Value = Replace(Replace(Replace(Replace(TextBox_Gsm.Value, "(", ""), ")", ""), " ", ""), "-", "")

            ThisWorkbook.Worksheets("Ana_Sayfa").Cells(SonSatir, 30).NumberFormat = "@"

            ThisWorkbook.Worksheets("Ana_Sayfa").Cells(SonSatir, 30) = "+90" & TextBox_Gsm.Value

        

        

'        ThisWorkbook.Worksheets("WHATSAPP").Cells(SonSatir, 1) = "+90" & TextBox_Gsm.Value

        

        Else

        

        End If

 



    Call checkboxKontrol(SonSatir)

    Call temizle

RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - feraz - 15/05/2021

[Resim: do.php?img=11037]

https://resim.accesstr.net/do.php?img=11037

RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - berduş - 15/05/2021

sağolun @feraz hocam bu şekilde de kullanılabildiğini bilmiyordum, sadece son satırı bulmak için kullanıyordum

Sayfa2.Cells(Rows.Count, 1).End(3)(Str, Stn) = Dgr

RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - feraz - 15/05/2021

(15/05/2021, 17:00)berduş yazdı: sağolun @feraz hocam bu şekilde de kullanılabildiğini bilmiyordum, sadece son satırı bulmak için kullanıyordum
Sayfa2.Cells(Rows.Count, 1).End(3)(Str, Stn) = Dgr

Rica ederim abey.Bende zamanında başka bir formda denk gelmiştim Img-grin

Şimdi bir bakayım dedim.Tarkan hocanın yazısını buldum aşağıda.

End(1) Sola
End(2) Sağa
End(3) Yukarıya
End(4) Aşağıya

End(3)(2,1) Yukarı - Durduğun yerden bir alta
End(3)(1,0) Yukarı - Durduğun yerden bir sola
End(3)(2,7) Yukarı - Durduğun yerden bir alta ve 6 sağa

RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - feraz - 15/05/2021

Tabii end(3).offset(1,0) gibide olması gerek benim kolayıma diğeri gidiyor bir alt için.

RE: Excel Vba Da Veri Kaydederken Diğer Sayfaya Kopyasını Almak. - Oğuz Türkyılmaz - 16/05/2021

@feraz hocam ilk kayıt da Whatsapp sayfasına kaydı kopyalamadı İkinci bir kayıt yaptığımda da sonuç değişmedi. Whatsapp sayfasına kopyalama işlemi gerçekleşmiyor.

Kod:

If TextBox_Gsm.Value <> "" Then

              

            TextBox_Gsm.Value = Replace(Replace(Replace(Replace(TextBox_Gsm.Value, "(", ""), ")", ""), " ", ""), "-", "")

            ThisWorkbook.Worksheets("Ana_Sayfa").Cells(SonSatir, 30).NumberFormat = "@"

            ThisWorkbook.Worksheets("Ana_Sayfa").Cells(SonSatir, 30) = "+90" & TextBox_Gsm.Value

        

        

            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

        

        Else