DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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ürlerA1:E5 arasındaki boş hücrelere "sabit metin" girmek istediğinizi farzedelim... bunun için aşağıdaki kodu kullanın
Kod: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
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
BEN bu kodu A DAN E' YE KADAR OLAN HÜCRELER İÇİN AYARLAMAK İSTİYORUM.bu şekilde yaptım işime yaradı teşekkürler