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
2535

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

Çözüldü #1
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
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
.rar WINPERAX Whatsapp gsm Kopyalama.rar (Dosya Boyutu: 304,26 KB | İndirme Sayısı: 7)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#3
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,14:45
Yorumları: 8.506
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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
Cevapla
#4
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
(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
Cevapla
#5
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
Tabii end(3).offset(1,0) gibide olması gerek benim kolayıma diğeri gidiyor bir alt için.
Cevapla
#6
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 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
[Resim: do.php?img=11039]
[Resim: do.php?img=11040]
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