Dolu Alanları Yazdırma isimli içerikte, Excel'deki dolu hücreleri bir liste halinde yazdırmanızı sağlayan bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub DoluAlanlariYazdir()
Dim sonSatir As Long
Dim i As Long
Dim doluAlanlar As String
' A sütunundaki son dolu satırı bulur
sonSatir = Cells(Rows.Count, "A").End(xlUp).Row
' Dolu alanları birleştir
For i = 1 To sonSatir
If Cells(i, 1).Value <> "" Then
doluAlanlar = doluAlanlar & Cells(i, 1).Value & vbCrLf
End If
Next i
' Dolu alanları mesaj kutusunda göster
MsgBox "Dolu Alanlar:" & vbCrLf & doluAlanlar
End SubAçıklama
Bu kod, Excel'deki bir sütundaki dolu hücreleri tespit ederek, bu hücrelerin içeriğini bir liste halinde mesaj kutusunda görüntüler. Kod, A sütunundaki son dolu satırı bulur ve 1. satırdan başlayarak her dolu hücrenin içeriğini birleştirir.Kullanım
- Bir modül ekleyin ve üstte gördüğünüz kodu yapıştırın.
- Kodu çalıştırdığınızda, A sütunundaki dolu hücrelerin içerikleri bir mesaj kutusunda listelenecektir.
