macro hücre aralığı seçme (son dolu satıra kadar)

[aaaaa34]

herkese merhaba,

fixture çalışma sayfasındaki maç listesi bazı boş satırlarla atlayarak listelenmiş
yazmak istediğim ise makroyu her çalıştırdığımda boş satırlar arasındaki G ile S kolonları arasındaki hücre grubu seçmesi.

mesela: E1 hücresi seçili iken kodu çalıştırdığımda sırasıyla G2:S3 , G5:S8 , G10:S15 , G17:S17 hücrelerini sırasıyla seçmesi ve son olarak G19:S25 hücre aralığını seçili olarak durması.

mesela: kodu çalıştırmadan önce seçtiğim hücre P5 ise sırasıyla G10:S15 , G17:S17 hücrelerini seçmesi ve son olarak G19:S25 hücre aralığını seçili olarak durması.

Dropbox

www.dropbox.com

yukardaki dropbox linkte dosyayı izleyebilir ve indireblirsiniz
ilginiz için tşk ederim.

 

[Muzaffer Ali]

Merhaba.

Dosya eklediğiniz site üye olmayınca indirmeye izin vermiyor.
Dosyanızı dosya.co gibi bir siteye ekleyiniz.

 

[Muzaffer Ali]

Aralarda hep bir satır boşluk varsa aşağıdaki kodu deneyiniz.

Sub Test()
    Dim SatirIlk As Long
    Dim SatirSon As Long
    
    If ActiveCell.Row = 1 Then
        SatirIlk = 2
        SatirSon = ActiveCell.End(xlDown).Row
    Else
        ActiveCell.End(xlDown).Select
        If Cells(ActiveCell.Row + 1, "G") = "" And Cells(ActiveCell.Row + 2, "G") = "" Then
            Cells(2, ActiveCell.Column).Select
        ElseIf Cells(ActiveCell.Row + 1, "G") = "" Then
            ActiveCell.End(xlDown).Select
        End If
        SatirIlk = ActiveCell.Row
        If Cells(ActiveCell.Row + 1, "G") = "" Then
            SatirSon = SatirIlk
        Else
            SatirSon = ActiveCell.End(xlDown).Row
        End If
    End If
    
    Range("G" & SatirIlk & ":S" & SatirSon).Select
End Sub

 

[aaaaa34]

@Muzaffer Ali hocam çok tşkler cevap için.
kusura bakmayın, ben sağ üstte dosyayı indirme butonu görünce direk indiriyor sandım, üye olmaya yönlendiren bi pop-up çıkıyormuş. alttaki resimde üye olmadan indir linkini belirttim. Bi daha dropbox'tan paylaşmam.

 

[aaaaa34]

@Muzaffer Ali bey, makro harika olmuş, elinize sağlık
yalnız bu makroyu seçili aralıkları sırasıyla başka bir çalışma sayfasına kopyalamak için başka bir makroda kullanacağım.
dolayısıyla satırları seçmeyi yineleyerek makronun çalışmasını ve son olarak g19:s25 aralığını seçip altta başka dolu satır olmayınca durması gerekiyor.

mümkün müdür acaba?

 

[Muzaffer Ali]

1- Araya yeni satır ekleme yada silme oluyor mu?
2- Boşluk olan satırların yerleri sabit mi?
3- Kopyalamak için her aralığı tek tek mi çalıştırmak istiyorsunuz yoksa topluca mı?
4- Kopyalama kodlarını da eklerseniz iki kodu birleştirerek çözüm arayabiliriz.