Birime Göre Yazdırılan Son Kişiyi Bulma

@sedat2161

İlgili düğmeye ait kod blokundaki For ba = 2 To sonBA ........ Next döngüsünün bir üstündeki satırında
ve bu döngü içerisindeki sonA gördüğünüz yerleri sonA + 1 olarak değiştirip deneyin.

Ömer BARAN' Alıntı:

@sedat2161

İlgili düğmeye ait kod blokundaki For ba = 2 To sonBA ........ Next döngüsü içerisindeki
sonA gördüğünüz yerleri sonA + 1 olarak değiştirip deneyin.

Genişletmek için tıklayın ...

For ba = 2 To sonBA
.Range("$A$4:$J$" & sonA + 1).AutoFilter Field:=8, Criteria1:=.Cells(ba, 53), Operator:=xlAnd, Criteria2:=Format(Cells(ba, 53), "@")
If .Cells(Rows.Count, 8).End(3).Row > 4 Then
.[A1].Value = .Cells(ba, 53) & " " & "MEMUR FİŞ TESLİM LİSTESİ"
.PrintOut
End If

Next
Hocam uygulama buradaydı onu değiştirdim yine olmadı.

Ömer BARAN' Alıntı:

Bir tanesini unutmuşum.
O For...Next döngüsünün hemen üstündeki satırda da aynı değişikliği yapın.

Genişletmek için tıklayın ...

Hocam hayırlı geceler emeğinize sağlık Allah razı olsun konu çözüldü. İyi ki varsınız. Allaha emenet olun.