üç ayrı sayfadan isme göre rapor alma makrosu

[Ömer]

F sütununa göre mi G sütununa göre mi?

 

[osmanucel]

F sutununa göre
isme göre yanı g sutunundakıler malzeme
aslını ısdersenız
ayrıyeten g sutununa görede ısıme yarar

 

[Ömer]

VBA ekranında geçip Module1 deki kodları aşağıdakirle değiştirin.

Sub Raporla()
 
    Dim c As Range, sat As Long, Adr As Variant, i As Integer
 
    Application.ScreenUpdating = False
 
    Sheets("RAPOR").Select
    Rows("4:" & Rows.Count).Clear
 
    Sheets("KASA").Range("B4:N5").Copy Range("A4")
 
    sat = 6
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "RAPOR" Then
                Set c = .[F:F].Find(Range("A1"))
                If Not c Is Nothing Then
                  Adr = c.Address
                    Do
                      .Range("B" & c.Row, "N" & c.Row).Copy Range("A" & sat)
                      sat = sat + 1
                      Set c = .[F:F].FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End If
        End With
    Next i
 
    Range("A6:N" & Rows.Count).Sort Range("A6"), xlAscending

    [B:N].EntireColumn.AutoFit
    Application.ScreenUpdating = True
 
 End Sub

.

 

[osmanucel]

abı cok sagol teskkur ederım
cok sahane oldu
allah razı olsun

 

[osmanucel]

affınıza sıgınarak bı soru daha sorabılırmıyım
bunu userforma uygulayabılırmıyız

 

[Ömer]

Uygulayabiliriz, yalnız müsait olursam bakabilirim. Bu aralar işlerim dolayısıyla fazla müsait olamıyorum.

 

[osmanucel]

tamam hocam allah razı olsun

 

[enderoz29]

öncelikle elinize sağlık.bir isteğim olacak rapor bölümünde alış satış kasa bölümlerinin alttoplamları rapor kısmında verilebilirmi

 

[osmanucel]

hayırlı aksamlar ömer bey user form ıcın yardımcı olacakdınız

 

[nicosian]

Omer bey bırde bu konuya el atarsanız cok ısımıze yarayacak...