Aktıf-pasıf urunlerı al

[YILDIZ YAĞMURU]

Başka bir sayfadan diğer sayfaya aktif veya pasif ürünleri bir buton yardımıyla çağırabilirmiyiz acaba.. yardımcı olurmusunuz .. dosya ektedir.

 

[Orion1]

Dosyanız ektedir.

Sub aktif_pasif_al_59(ByVal kriter As String)
Dim sh As Worksheet, sat1 As Long, sat2 As Long
Set sh = Sheets("URUNDATA")
Sheets("AKTIVITEFORM").Select
sat1 = sh.Cells(Rows.Count, "P").End(xlUp).Row
sat2 = 5
If sat2 >= 5 Then Range("B5:B" & Rows.Count).ClearContents
For i = 8 To sat1
    If UCase(Replace(Replace(sh.Cells(i, "P").Value, "i", "İ"), "ı", "I")) = kriter Then
        Cells(sat2, "B").Value = sh.Cells(i, "B").Value
        sat2 = sat2 + 1
    End If
Next i
MsgBox "işlem tamamlandı." & vbLf & _
        "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[YILDIZ YAĞMURU]

süpersiniz

Dosyanız ektedir.

Sub aktif_pasif_al_59(ByVal kriter As String)
Dim sh As Worksheet, sat1 As Long, sat2 As Long
Set sh = Sheets("URUNDATA")
Sheets("AKTIVITEFORM").Select
sat1 = sh.Cells(Rows.Count, "P").End(xlUp).Row
sat2 = 5
If sat2 >= 5 Then Range("B5:B" & Rows.Count).ClearContents
For i = 8 To sat1
    If UCase(Replace(Replace(sh.Cells(i, "P").Value, "i", "İ"), "ı", "I")) = kriter Then
        Cells(sat2, "B").Value = sh.Cells(i, "B").Value
        sat2 = sat2 + 1
    End If
Next i
MsgBox "işlem tamamlandı." & vbLf & _
        "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub

çok teşekkür ederim Orion1 ve Evrengizlen