Bu kodları çalıştırdığım zaman excelde hangi satırda olduğumu nası anlarım.

[a_self_lion]

Merhaba sevgili arkadaşlarım. Sizlerin yardımı ile yapmaya çalıştığım işte bir aşama kaydettim bir yerde takıldım.

aranacak = Range("F2")

For kackarakter = Len(aranacak) To 1 Step -1


aranacak2 = (Left(aranacak, kackarakter))

For satir = 3 To 30

MsgBox (Left(Cells(satir, 3).Value, kackarakter))

sutunveri = (Left(Cells(satir, 3).Value, kackarakter))

If sutunveri = aranacak2 Then
MsgBox "oldu bu iş"

'burada hangi satırda olduğumuzu bulmalıyım.
'yapılacak iş bu


Rows(bul.Offset(1).Row).Insert  'bununla olmuyor

Exit For
Exit For
End If
'Set bul = Columns(3).Find(sutunveri)




Next satir

Next kackarakter

Yukarıdaki belirttim yerde istediğim veriyi buluyorum burada hangi satırda olduğumu nasıl anlarım. Ve oraya bir satır nasıl eklerim.

 

[Emir Hüseyin Çoban]

. . .

Bu kodlarınız çalışıyor mu ?

MsgBox satir komutu ilave ederek deneyiniz.

. . .

 

[Saban Sertkaya]

Msgbox Activecell.Row 'u da deneyebilirsiniz.
veya
Msgbox Activecell.Address de olabilir.