Malzeme Lİstesİnİ BÜrolara GÖre Tasnİf Etme

[yolcu50]

Ekli dosyamda genel demirbaş listesinden F10 hücresine yazdığım büro ya ait malzemelerin listesini demirbaş eşya cetveline listelemesini istiyorum. mümkünmü acaba... şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S1, S2 As Worksheet
Dim SUT, S, SIRA As Integer
Set S1 = Sheets("RAPOR")
Set S2 = Sheets("LİSTE")
S1.[A3:D43].ClearContents
For SUT = 5 To S2.Cells(65536, "G").End(3).Row
If S2.Cells(SUT, "G") = S1.[F10] Then
S = S + 1
Range(S1.Cells(S + 2, "B"), S1.Cells(S + 2, "C")) = Range(S2.Cells(SUT, "B"), S2.Cells(SUT, "C")).Value
S1.Cells(S + 2, "D") = S2.Cells(SUT, "F")
End If
Next
For SIRA = 1 To S1.Cells(65536, "D").End(3).Row - 2
S1.Cells(SIRA + 2, "A") = SIRA
Next
End Sub

 

[yolcu50]

ustam çok teşekkür ederim büyük bir dertten kurtardın.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bişey değil.