DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub rapor()
Dim sat As Long, i As Long, k As Byte
Sheets("Sayfa1").Select
Range("I2:K65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "A").End(xlUp).Row
For k = 2 To 8
If Cells(i, k).Value <> "" Then
Cells(sat, "I").Value = Cells(i, "A").Value
Cells(sat, "J").Value = Cells(1, k).Value
Cells(sat, "K").Value = Cells(i, k).Value
sat = sat + 1
End If
Next k
Next i
MsgBox "RAPOR ÇIKARILDI..!!"
End Sub
Rica ederim.çok teşeküür ederim ve bu siteyi yapan ve bu sitede yardımlarını eksik etmeyen tüm arkadaşlar gerçekten övgüye layık
saygılarımla