Şubelerden gelen verileri nasıl raporlayabilirim.

[tatar7]

işim gereği ekte gönderdiğim dosyadaki öreğe benzer raporları fazla kullanıyorum excelde formül ile yapıyorum ancak veriler yer değiştirdiğinde herşeyi sil baştan almak zorunda kalıyorum.
şubelerden verileri nasıl raporlayacağımı bana öğretecek olan arkadaşlara şimdiden dua ve teşekkür ediyorum

 

[hamitcan]

Sayın tatar7, soru başlıklarınıza dikkat etmelisiniz. Bu defalık düzeltiyorum.

 

[tatar7]

özür

işin içinden çıkamayınca bi hiddetle yazmıştım özür diliyorum
yardım edecek üstadlara şimdiden teşekkür ediyorum

 

[tatar7]

kimse bilmiyor mu yaf

 

[Necdet]

Merhaba,

Örnek olması açısından aşağıdaki kodları deneyiniz.

Sub Birlestir()
Dim i, j As Long
Dim s As Integer
j = 2
Application.ScreenUpdating = False
Sheets("rapor").Select
Range("L3:P65536").ClearContents
For s = 1 To Sheets.Count
    If Sheets(s).Name <> "rapor" Then
        For i = 3 To Sheets(s).[B65536].End(3).Row
            If Sheets(s).Cells(i, "B") <> "" And Sheets(s).Cells(i, "B") <> "adı soyadı" Then
                j = j + 1
                Cells(j, "L") = j - 2
                Cells(j, "M") = Sheets(s).Cells(i, "B")
                Cells(j, "N") = Sheets(s).Cells(i, "C")
                Cells(j, "O") = Sheets(s).Cells(i, "F")
                Cells(j, "P") = Sheets(s).Name
            End If
        Next i
    End If
Next s
Application.ScreenUpdating = True
End Sub

 

[tatar7]

Teşekkürler

Sayın Necdet Yeşertener çok güzel bir çalışma çok teşekkür ediyorum ellerinize emeğinize sağlık

 

[Necdet]

İşinize yaradıysa sevindim.
Güle güle kullanınız.