satır nosunu belirleme hk.

[zetkatamet]

Arkadaslar,
Oncelikle iyi bayramlar.
Sorumu mesai gununde gonderiyim dedim ama dayanamadim, ekteki dosyada sorgulamaya gore satir sayisinin yazilmasini rica edecektim.

 

[Orion1]

Dosyanız ektedri.TIKLA butonuna tıklayınız.

Sub satirler()
Dim k As Range, adr As String, sat As Long, sat2 As Long
Sheets("CIKIS").Select
Range("L7:L65536").ClearContents
sat = Cells(65536, "D").End(xlUp).Row
sat2 = 7
Set k = Range("D4:D" & sat).Find(Range("G2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        Cells(sat2, "L").Value = k.Row
        sat2 = sat2 + 1
        Set k = Range("D4:D" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    Range("L7:L65536").Sort Range("L7")
    MsgBox "Satırlar L sütununa yazıldı." & vbLf & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End If
End Sub

 

[zetkatamet]

evren bey tesekkur ederim, makrosuz formullerle yapma sansimiz var mi acaba, is yerinde paylasim klasorunde kullanacagim makrolar sorun yaratiyor. simdiden tesekkurler..

 

[Orion1]

evren bey tesekkur ederim, makrosuz formullerle yapma sansimiz var mi acaba, is yerinde paylasim klasorunde kullanacagim makrolar sorun yaratiyor. simdiden tesekkurler..

Fonksiyonlarla yapulacak işlemler için Sorunuzu Fonksiyonlar bölümünde sorunuz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki formülü denermisiniz. Dizi formüldür. Formülü hücreye yazıp CTRL+SHIFT+ENTER tuşlarına basarak tamamlayın.

=EĞER(BAĞ_DEĞ_SAY(EĞER($D$4:$D$10000=$G$2;SATIR($4:$10000);""))<SATIR()-6;"";KÜÇÜK(EĞER($D$4:$D$10000=$G$2;SATIR($4:$10000);"");SATIR()-6))

 

[zetkatamet]

evren bey dikkat etmeye calisacagim..
korhan bey cok tesekkur ederim.