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

[sedat2161]

Excel Versiyonu

Excel 2019

Excel Sürümü

32 Bit

Excel Dili

Türkçe

Hayırlı akşamlar sayın hocalarım.
Ekli dosyamda Userform üzerinde Fiş Teslim yazdır butonuna tıkladığımda H sütununda bulunan BİRİM e göre yazdırılıyor.
Sorun ise şu Tüm birimlerde en son personel listenin sonunda yazdırılıyor.
Yardımlarınız bekliyorum.

 

Şerit Menüyü Sadece Geçerli Dosya İçin Gizleme

PDF Belgesinden Excele Düzenli Şekilde Veri Çekme

[Ömer BARAN]

@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.

 

[sedat2161]

@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.

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]

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.

 

[sedat2161]

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.

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