vba'da dolu satırları kopyalama ve başka bir çalışma sayfasına yapıştırma işlemi hk.

[Öz1.618]

Merhaba,
çalışma sayfamda A kolonundaki dolu olan en son hücreye kadar olan bütün satırları kopyalamak istiyorum. fakat ilk satır başlık olduğu için o satırı hariç tutmak istiyorum.
VBA da bunun formülü hakkında yardımlarınızı rica ederim.

 

[Muzaffer Ali]

Merhaba

Sub test()
    Dim Say As Integer
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:A" & Say).Copy
End Sub

 

[Öz1.618]

Merhaba

Sub test()
    Dim Say As Integer
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:A" & Say).Copy
End Sub

merhaba,
sadece A kolonundaki 2 ile 31. hücreler arasını kopyaladı. Benim çalışma saydam da dolu satır sayısı başlık satırı hariç bir. ama sizin gönderdiğiniz kod hem satırı kopyalamayıp a sütunundaki 2 ile 31. hücreler arasını kopyalıyor hem de yanlış verileri almış oluyor haliyle.
ana çalışma sayfamdan ziyade makro içerisindeki adresteki bir çalışma sayfası açtığım için sadece sizin koddaki
Range("A2:A" & Say).Copy kısmının başına "ActiveSheet." ekledim.

 

[Öz1.618]

merhaba,
sadece A kolonundaki 2 ile 31. hücreler arasını kopyaladı. Benim çalışma saydam da dolu satır sayısı başlık satırı hariç bir. ama sizin gönderdiğiniz kod hem satırı kopyalamayıp a sütunundaki 2 ile 31. hücreler arasını kopyalıyor hem de yanlış verileri almış oluyor haliyle.
ana çalışma sayfamdan ziyade makro içerisindeki adresteki bir çalışma sayfası açtığım için sadece sizin koddaki
Range("A2:A" & Say).Copy kısmının başına "ActiveSheet." ekledim.

ANA ÇALIŞMA EXCELİMDEKİ a KOLONUNDA 31. SATIRA KADAR DOLU OLDUĞU İÇİN AKTİF EXCELİ SAYMIYOR. gİDP ANA EZXCELDEKİ DOLU KOLONU SAYIYOR. şİMDİ FARKETTİM.

 

[Öz1.618]

ANA ÇALIŞMA EXCELİMDEKİ a KOLONUNDA 31. SATIRA KADAR DOLU OLDUĞU İÇİN AKTİF EXCELİ SAYMIYOR. gİDP ANA EZXCELDEKİ DOLU KOLONU SAYIYOR. şİMDİ FARKETTİM.

Merhaba

Sub test()
    Dim Say As Integer
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:A" & Say).Copy
End Sub

Kodu aşağıdaki gibi düzelttim ama bu seferde sadece A1 hücresini kopyalıyor.

Dim Say As Integer
Say = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.Range("A2:A" & Say).Copy

 

[Muzaffer Ali]

Şu kodu deneyin o zaman.
Koddaki sayfa Adını düzeltmeyi unutmayın.

Sub test()
    Dim Say As Integer
    Dim Sayfa As Worksheet
    Set Sayfa = Worksheets("SayfaAdınıBurayaYazzın")
    Say = Sayfa.Cells(Sayfa.Rows.Count, "A").End(xlUp).Row
    If Say < 2 Then
        MsgBox "A kolonunda sadece başlık var hiç veri yok. Kopyalama yapılamadı.", vbCritical
        Exit Sub
    End If
    Sayfa.Range("A2:A" & Say).Copy
End Sub

 

[Öz1.618]

Şu kodu deneyin o zaman.
Koddaki sayfa Adını düzeltmeyi unutmayın.

Sub test()
    Dim Say As Integer
    Dim Sayfa As Worksheet
    Set Sayfa = Worksheets("SayfaAdınıBurayaYazzın")
    Say = Sayfa.Cells(Sayfa.Rows.Count, "A").End(xlUp).Row
    If Say < 2 Then
        MsgBox "A kolonunda sadece başlık var hiç veri yok. Kopyalama yapılamadı.", vbCritical
        Exit Sub
    End If
    Sayfa.Range("A2:A" & Say).Copy
End Sub

Merhaba, F8 ile çalıştırınca;
Set Sayfa = Worksheets("Satışlar_Hesap_Özeti.xlsx")
burada hata veriyor.

 

[Muzaffer Ali]

Set Sayfa = Worksheets("SayfaAdınıBurayaYazın")
Dosya adını yazmayın.
Eğer farklı bir dosyaya işlem yapmak istiyorsanız, aşağıdaki gibi yapın.

Set Sayfa = Workbooks("DosyaAdınıBurayaYazın.xlsx").Worksheets("SayfaAdınıBurayaYazın")

 

[Öz1.618]

Merhaba, F8 ile çalıştırınca;
Set Sayfa = Worksheets("Satışlar_Hesap_Özeti")
burada hata veriyor.

formül işe yaradı fakat sadece A2 hücresini kopyalıyor.A2 hücresinin olduğu satırı kpylaması lazımdı.

 

[Muzaffer Ali]

Sayfa.Range("A2:A" & Say).Copy

Satırını silin aşağıdakini kopyalayın.

Sayfa.Rows("2:" & Say).Copy

 

[Öz1.618]

Sayfa.Range("A2:A" & Say).Copy

Satırını silin aşağıdakini kopyalayın.

Sayfa.Rows("2:" & Say).Copy

Çok teşekkür ederim. Sonunda oldu
Ama sizden bir ricam daha var. Şimdi benim burdan kopyaladığım alanı saha_satış_toplamı diye bir excel dosyam var. O zaten açık şu anda makronun önceki bölümlerinde açmıştım bu dosyayı. Şimdi bu kopyaladığım alanı saha_satış_toplamı çalışma dosyamın dolu olan son satırından sonraki boş satırdan başlayarak kopyalam.
Bu konuda da bana destek olursdanız çok sevinirim.

 

[Öz1.618]

Çok teşekkür ederim. Sonunda oldu
Ama sizden bir ricam daha var. Şimdi benim burdan kopyaladığım alanı saha_satış_toplamı diye bir excel dosyam var. O zaten açık şu anda makronun önceki bölümlerinde açmıştım bu dosyayı. Şimdi bu kopyaladığım alanı saha_satış_toplamı çalışma dosyamın dolu olan son satırından sonraki boş satırdan başlayarak kopyalam.
Bu konuda da bana destek olursdanız çok sevinirim.

aslında şukadaranı yazdım kodun. ama ben son hücreye iniyorum. son dolu hücreden sonraki boş hücreyi nasıl seçeceğim konusunda yardımcı olursanız sevinirim.
Workbooks("saha_satış_toplamı.xlsx").Activate
ActiveSheet.Range("A1").Select
Selection.End(xlDown).Select

 

[Öz1.618]

aslında şukadaranı yazdım kodun. ama ben son hücreye iniyorum. son dolu hücreden sonraki boş hücreyi nasıl seçeceğim konusunda yardımcı olursanız sevinirim.
Workbooks("saha_satış_toplamı.xlsx").Activate
ActiveSheet.Range("A1").Select
Selection.End(xlDown).Select

problemi çözdüm çok teşekkür ederim yardımlarınız için.

 

[oydemir]

Muzaffer Ali bey

Dış dosyadan bilgi kopyalayıp veri alıyorum verileri alırken formülleri kullanıyorum. Formda sizin kodunuzu buldum fakat formülleri de dolu görüyor.

Benim istediğim (örnek dosyadaki gibi) “BG” Kolonunu rakamsa “BI” Kolonundan “BS” kolonuna kadar kopyala yapıp(Örnek= sayfa 5 de BI3:BS3 kadar kopyalayıp Mut sayfasına b2 hücresinden kopyalamayacak) mut sayfasındaki ilk boş satıra kopyalamasını nasıl sağlayabilirim. Yardımcı olursanız sevinirim