Ilk satir ve Ikinci satirdaki kosullari ortak satirlar

Resimden ve basliktan anlayacaginiz gibi ilk satiri 5 olan ve ikinci satiri 12 olan verilerin satir numaralarini veren bir kod istiyoruz;

Sub SatirNoBul()

Dim c As Range, Adr As Variant, sat As String, sonhcr As Range

With Range("A:A")

Set sonhcr = .Cells(.Cells.Count)

Set c = .Find(5, sonhcr, xlValues, xlWhole)

If Not c Is Nothing Then

Adr = c.Address

Do

If Cells(c.Row, "B") = 3 Then sat = sat & Chr(10) & c.Row

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> Adr

If sat = "" Then sat = "Bulamadim"

MsgBox "Satir Numaralari :" & sat, , "excel.web.tr"

End If

End With

Set sonhcr = Nothing: Set c = Nothing

End Sub

Kodlar excel.web.tr uzman kadrosundan arkadasim olan Omer Bey`e aittir. Begendigim bir konu oldugundan paylastim..

[quote author=”Necdet Yeşertener”]Ömer bey Find komutunda ilk satır olayını çözdü, şimdi Find komutuna şarkı söylettiriyor [/quote]

Ornek dosya ektedir..

Ilk Satirda Kosul Ikinci Satirda Kosul

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 6 =