Makro İle HÜcre İÇİnde Verİ SÜzmek

[sefer seferoğlu]

Makro ile hücre içinde veri süzerek içinde PEK geçen satırları bulup yan sutununa pek yazdırmam gerekiyor bunu yapmama yardımcı olursanız çok sevinirim teşekkürler.

 

[Ali]

A sütunu için yazdım siz kendinize göre uyarlarsınız.

Sub degeriyaz()
t = Range("A65536").End(xlUp).Row
For i = t To 1 Step -1
If Cells(i, 1) = "PEK" Then Cells(i, 1).Offset(0, 1).Value = Cells(i, 1)
Next
End Sub

 

[sefer seferoğlu]

Server hatası

Server hatası yüzünden örnek dosyayı gönderemedim.Cevabınız için teşekkür ederim tam olarak yapmak istediğim şey ekli dosyada yer almaktadır.İlginize teşekkürler.

 

[Merhum İdris SERDAR]

Konu macro bölümüne yazılmış. Dosyada formül isteniyor.

Eğer formül istiyorsanız, B2 hücresine;

=IF(A2="";"";IF(COUNTIF(A2:A2;"*PEK*")>=1;"PEK";""))

formülünü girip, aşağıya doğru kopyalayın.

IF=EĞER
COUNTIF=EĞERSAY

 

[sefer seferoğlu]

Haklısınız

Konu macro bölümüne yazılmış. Dosyada formül isteniyor.

Eğer formül istiyorsanız, B2 hücresine;

=IF(A2="";"";IF(COUNTIF(A2:A2;"*PEK*")>=1;"PEK";""))

formülünü girip, aşağıya doğru kopyalayın.

IF=EĞER
COUNTIF=EĞERSAY

Doğru ifade şeklimde bir hata söz konusu aslında formül değilde makro ile sorunu çözmek istiyordum. Yinede ilginiz ve yazdığınız formül için teşekkür ederim.

 

[sefer seferoğlu]

Verdiğiniz Formül

Verdiğiniz formülü makroya uyarlayıp şöyle bir kod oluşturarak istediğimi elde ettim. Belki faydası olur diyerek ilave etmek istedim.Daha işlevsel bir çözüm varsa öğrenmek isterim herkese teşekkürler.

Sub adseç()


For r = 1 To 65536
If Cells(r, 1).Value = "" Then End
Range("B" & r).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",IF(COUNTIF(RC1:RC1,""*PEK*"")>=1,""PEK"","""" ))"

' aşağıdaki kodlar tüm hücreleri formülle doldurmamak için
' formülü kaldırıp yerine sadece değeri koyuyor.
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Next

End Sub