boş hücrelere metin yazdırma

[orange4609]

Merhabalar,

a2:a21000 arasındaki hücrelerdeki sayılar " 20" ise f2:f21000 arasındaki hücrelerin boş olanlarına "kalite"yazdırabileceğimiz kod yazılabilir mi?

syg,

iyi günler.

 

[Necdet]

Merhaba,

A sütununu süzdürün, 20 leri bulun
çıkanlar içinde F sütununda boş olan hücreleri süzdürün
Kalan f sütununun hepsini seçin, Formül çubuğundan istediğinizi yazın ve Ctrl+Enter tuş kombinasyonu ile hepsine yazdırmış olursunuz.

Bunun için ne makroya ne formüle gereksinim yok, bana sorarsanız

 

[asi_kral]

Merhaba

Option Explicit
Sub yazı()
Dim BUL As Range, SBT As Variant
Set BUL = Range("A:A").Find("20", , , xlWhole)
If Not BUL Is Nothing Then
SBT = BUL.Address
Do
Cells(BUL.Row, "F") = "Kalite"
Set BUL = Range("A:A").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> SBT
End If
End Sub

Bu kofu dener misiniz_?

 

[orange4609]

necdet bey,
tşkr ediyorum.

Asi kral, kod 10 numara çalışıyor.ilginiz için çok çok tşkler.elinize emeğinize salık.
Syglar,
iyi günler.

 

[asi_kral]

necdet bey,
tşkr ediyorum.

Asi kral, kod 10 numara çalışıyor.ilginiz için çok çok tşkler.elinize emeğinize salık.
Syglar,
iyi günler.

Kolay Gelsin.