Son dolu satırdaki hücreleri seçme

[guter24]

Merhabalar bir çalışma sayfam var ve bu çalışma sayfasına userform ile veri girişi yapmaktayım. Girilen veriler her defasında çalışma sayfasının boş olan ilk satırına girilmektedir. Sorunum çalışma sayfasına girdiğimiz en son satırın 2,3 ile 6,7 sütünlarına karşılık gelen hücreleri seçip kopyalamak istiyorum. Yazmaya çalıştığım formül aşağıdaki gibidir

Sub Kopyala ( )
Dim Sht0 as Worksheet
Dim DoluSatır as Variant

DoluSatır = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))

Sht0.Cells(SonSatır, 2).Select
Sht0.Cells(SonSatır, 3).Select
Sht0.Cells(SonSatır, 6).Select
Sht0.Cells(SonSatır, 7).Select

Selection.Copy

End Sub

bu şekilde yazdım fakat belirttiğim hücrelerin hepsini aynı anda seçmeyi başaramadım yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile kopyalayabilirsiniz.

Sub Kopyala()
    Dim Sht0 As Worksheet
    Dim SonSatir As Variant
    
    'Set Sht0 = ActiveSheet
    
    SonSatir = Sht0.Cells(Rows.Count, "A").End(xlUp).Row
    Sht0.Range("B" & SonSatir & ":C" & SonSatir & ", F" & SonSatir & ":G" & SonSatir).Copy
    
End Sub

 

[baydeniro]

Merhaba.

Aşağıdaki kod ile kopyalayabilirsiniz.

Sub Kopyala()
    Dim Sht0 As Worksheet
    Dim SonSatir As Variant
   
    'Set Sht0 = ActiveSheet
   
    SonSatir = Sht0.Cells(Rows.Count, "A").End(xlUp).Row
    Sht0.Range("B" & SonSatir & ":C" & SonSatir & ", F" & SonSatir & ":G" & SonSatir).Copy
   
End Sub

Kod için teşekkürler dalgalikur üstadım, sağlıcakla kalın

 

[guter24]

Merhaba.

Aşağıdaki kod ile kopyalayabilirsiniz.

Sub Kopyala()
    Dim Sht0 As Worksheet
    Dim SonSatir As Variant
   
    'Set Sht0 = ActiveSheet
   
    SonSatir = Sht0.Cells(Rows.Count, "A").End(xlUp).Row
    Sht0.Range("B" & SonSatir & ":C" & SonSatir & ", F" & SonSatir & ":G" & SonSatir).Copy
   
End Sub

çok teşekkür ederim cevabınız için. Corona sız sağlıklı günler dilerim...

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.