başka sayfadan bir sütuna göre veri almak

[fotographer]

arkadaşlar
eklediğim dosyada kayıt sayfasından I sütununda "var" yazan satırları servis sayfasında nasıl listelerim yardım eder misiniz

 

[Murat OSMA]

Deneyiniz...

Sub Emre()
    Dim i As Integer
    Sayfa2.Range("A3:C500").ClearContents
    With Sayfa1
        For i = 3 To .Range("I65536").End(3).Row
            If .Cells(i, "I") = "VAR" Then
               .Cells(i, 4).Resize(, 2).Copy
               Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial xlValues
            End If
        Next i
    End With
    Application.CutCopyMode = False
    i = Empty
End Sub

 

[Orion1]

Dosyanız ektedir.

Sub servis59()
Dim i As Long, sat1 As Long, sat2 As Long, sh As Worksheet
Dim k As Range, adr As String
Sheets("SERVİS").Select
Set sh = Sheets("KAYIT")
sat1 = sh.Cells(Rows.Count, "I").End(xlUp).Row
sat2 = 3
Application.ScreenUpdating = False
Range("A3:C" & Rows.Count).ClearContents
Set k = sh.Range("I3:I" & sat1).Find("Var", , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        Cells(sat2, "A").Value = sat2 - 1
        Cells(sat2, "B").Value = k.Offset(0, -5).Value
        Cells(sat2, "C").Value = k.Value
        sat2 = sat2 + 1
        Set k = sh.Range("I3:I" & sat1).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End If
Application.ScreenUpdating = True
End Sub

 

[asi_kral]

arkadaşlar
eklediğim dosyada kayıt sayfasından I sütununda "var" yazan satırları servis sayfasında nasıl listelerim yardım eder misiniz

Merhaba
Servis sayfasının B3 hücresine

=EĞER(SATIRSAY(B$3:B3)>EĞERSAY(KAYIT!$I$3:$I$100;"VAR");"";İNDİS(KAYIT!D$3:D$100;KÜÇÜK(EĞER(KAYIT!$I$3:$I$100="VAR";SATIR(KAYIT!$I$3:$I$100)-SATIR(KAYIT!$I$3)+1);SATIRSAY(B$3:B3))))

Bu formülü yazın ve diziye çevirin.
Diziye çevirme : Formül hücreye girildikten sonra Enter tuşuna basılmadan Crl+Shift+Enter tuş kombinasyonu ile aktif olmaktadır. Formülün başında "{" bu işaret sonunda "}" bu işaret çıkacaktır. Bu işaretleri elle koyarsanız formül hata verecektir.
Formülün b3 hücresine yazdıktan sonra aşağı ve sağ'a doğru çoğaltın.
Dosyanız Ekte.

 

[fotographer]

cevap veren herkese çok teşekkür ederim beni büyük bir zahmetten kurtardınız

 

[asi_kral]

cevap veren herkese çok teşekkür ederim beni büyük bir zahmetten kurtardınız

Kolay Gelsin.