boş hücrelere sabit metin yazdırmak

[inowjoin]

merhabalar
belirli aralıktaki boş hücrelere istediğim metini yazdırmak istiyorum forumdaki benzer örneklerle denedim fakat istediğim sonucu alamadım
yardımcı olabilirmisiniz

 

[sinbade]

A1:E5 arasındaki boş hücrelere "sabit metin" girmek istediğinizi farzedelim... bunun için aşağıdaki kodu kullanın

Sub doldur()
Dim i As Integer
Dim k As Integer
    For i = 1 To 5
        For k = 1 To 5
            If Cells(i, k) = "" Then
            Cells(i, k).Value = "Sabit Metin" 'istediginiz metni girebilirsiniz
            End If
        Next k
    Next i
End Sub

 

[Haluk]

Ben olsam, makro yerine şöyle yapardım ...

A1:E5 aralığını fare ile seçtikten sonra, formül çubuğuna aşağıdakini yazardım:

= "sabit metin"

daha sonra da, Ctrl + Shift + Enter tuş kombinasyonu ile dizi girişi yapardım ...

 

[inowjoin]

teşekkürler

A1:E5 arasındaki boş hücrelere "sabit metin" girmek istediğinizi farzedelim... bunun için aşağıdaki kodu kullanın

Sub doldur()
Dim i As Integer
Dim k As Integer
    For i = 1 To 5
        For k = 1 To 5
            If Cells(i, k) = "" Then
            Cells(i, k).Value = "Sabit Metin" 'istediginiz metni girebilirsiniz
            End If
    Next k
    Next i
End Sub

bu şekilde yaptım işime yaradı teşekkürler

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Sub Düğme1_Tıklat()
On Error Resume Next
[a1:a30].SpecialCells(xlCellTypeBlanks) = "inowjoin"
End Sub

 

[Ali]

merhabalar
belirli aralıktaki boş hücrelere istediğim metini yazdırmak istiyorum forumdaki benzer örneklerle denedim fakat istediğim sonucu alamadım
yardımcı olabilirmisiniz

Bunun için makroya gerek yok. Aralığınızı seçin.CTRL+G tuşu özelden boşluklar kısmını seçiniz. Sizi boş bir hücreye yönlendirecektir bu hücre içinde iken metninizi yazınız ve CTRL+ENTER tuşuna basınız.

 

[ildizim]

bu şekilde yaptım işime yaradı teşekkürler

BEN bu kodu A DAN E' YE KADAR OLAN HÜCRELER İÇİN AYARLAMAK İSTİYORUM.
FAKAT İSTEDİĞİM ŞU A,B.C,D,E SUTUNLARININ HANGİSİNİDE EN SON KAYIT VARSA(ÖRNEGİN C100)
C100 DEN ÖNCELİ ALANLARIN A,B,C.D.E ALANLARINDA BOŞ OLANLARI DOLDURACAK.

TEŞEKKÜRLER