Excelde Makro ile Boş Sütun Bulma

[Kraldost]

Merhaba ;

Excelde "F" kolonunda boş veri varsa "A,B,C,D" kolonlarındaki verileri "K" kolonundan itibaren "J,K,L,M" kolanlarına yazsın istiyorum

Makro kodu konusunda destek olabilir misiniz?

 

[Ömer]

Merhaba,

Daha detaylı açıklar mısınız. Mümkünse örnek dosya ekleyerek?

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[Kraldost]

Ömer Bey teşekkür ederim ilginiz için.

A'dan F'ye kadar günlük veriler işleyecek sevk edileceklerin ürün tipi cinsi vs F kolonu sevk tarihi olacak orası boşsa sevk edilmemiş olacağından butona bastığımda sevk edilmemişleri J'den itibaren M ye kadar özet çıkarsın istiyorum .

 

[Ömer]

Deneyiniz.

Sub deneme()

    Dim son As Long, s As Range, sat As Long

    son = Cells(Rows.Count, "F").End(xlUp).Row
    
    Application.ScreenUpdating = False
    Range("J2:N" & Rows.Count).ClearContents
    
    sat = 2
    For Each s In Range("F2:F" & son).SpecialCells(xlCellTypeBlanks)
        Cells(s.Row, "A").Resize(1, 5).Copy Cells(sat, "J")
        sat = sat + 1
    Next
    
End Sub

 

[Kraldost]

Ömer Bey çok teşekkür ederim.

J ye Fdeki boşların ilkini getiriyor . Tamamını getirebilirsek harika olacak

 

[Ömer]

Deneyerek vermiştim. Tamamı geliyor. Örnek ekler misiniz.

 

[Kraldost]

Ömer Bey ilk satırda veri varsa almıyor yoksa veri olana kadar olanları getiriyor toptan . Ama veri olandan sonraki olmayanları getirmiyor

bana arada nerde veri olsada tüm boşları getirmesi lazım

 

[Ömer]

Evet haklısınız son satır için F yi kullanmışım.

son = Cells(Rows.Count, "F").End(xlUp).Row

yerine

son = Cells(Rows.Count, "A").End(xlUp).Row

yazarak deneyiniz.

Sub deneme()

    Dim son As Long, s As Range, sat As Long

    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    Range("J2:N" & Rows.Count).ClearContents
    
    sat = 2
    For Each s In Range("F2:F" & son).SpecialCells(xlCellTypeBlanks)
        Cells(s.Row, "A").Resize(1, 5).Copy Cells(sat, "J")
        sat = sat + 1
    Next
    
End Sub

 

[Kraldost]

Ömer Bey;

Çok teşekkür ederim. Çok sağolun..