Boşluk Kopyala

Hazır Kodlar: Boşluk Kopyala​

Sub BoslukKopyala()
    Dim kaynakRange As Range
    Dim hedefRange As Range
    Dim cell As Range
    Dim lastRow As Long
    
    Set kaynakRange = Sayfa1.Range("A1:A10") 
    Set hedefRange = Sayfa1.Range("B1")
    
    For Each cell In kaynakRange
        If IsEmpty(cell.Value) Then
            hedefRange.Value = cell.Value
            Set hedefRange = hedefRange.Offset(1, 0) 
        End If
    Next cell
    
    MsgBox "Boş hücreler kopyalandı!", vbInformation
End Sub

Açıklamalar​

1. kaynakRange: Bu, boş hücreleri arayacağınız hücre aralığını belirtir. Burada örnek olarak A1:A10 kullanılmıştır. İhtiyacınıza göre bu aralığı değiştirebilirsiniz.
2. hedefRange: Boş hücrelerin kopyalanacağı hedef hücreyi belirtir. Bu örnekte, boş hücreler B1 hücresinden itibaren kopyalanacaktır.
3. IsEmpty(cell.Value): Bu satır, hücrenin boş olup olmadığını kontrol eder. Eğer hücre boşsa, bu hücreyi hedef alana kopyalar.
4. Offset(1, 0): Kopyalanan boş hücrelerin her biri, hedef hücrede bir alt satıra yapıştırılır.
5. MsgBox: İşlem tamamlandığında, kullanıcıya "Boş hücreler kopyalandı!" mesajı gösterilir.