DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub SayfayaGit()
For i = 2 To 5
x = WorksheetFunction.Index(Range(Cells(15, i), Cells(50, i)), Cells(3, i), 1)
q = q & x & "_"
Next
Sheets(Left(q, Len(q) - 1)).Select
End Sub