aydgur
Altın Üye
- Katılım
- 31 Ekim 2005
- Mesajlar
- 447
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-03-2028
Sub makro112()
For a = 2 To 3000
isim = Cells(a, 1).Value
If isim = "" Then Exit Sub
Sheets("AAA").Cells(a, 2) = Sheets(isim).Cells(2, 25).Value
Sheets("AAA").Cells(a, 3) = Sheets(isim).Cells(3, 25).Value
Sheets("AAA").Cells(a, 4) = Sheets(isim).Cells(4, 25).Value
Sheets("AAA").Cells(a, 5) = Sheets(isim).Cells(5, 25).Value
Sheets("AAA").Cells(a, 6) = Sheets(isim).Cells(6, 25).Value
Next a
End Sub
bu makroda 250.sayfaya kadar tekrar yapmak yerine daha kısa olarak makroyu yazabilirmiyim. Hepinizin bayramı kutlu olsu !
For a = 2 To 3000
isim = Cells(a, 1).Value
If isim = "" Then Exit Sub
Sheets("AAA").Cells(a, 2) = Sheets(isim).Cells(2, 25).Value
Sheets("AAA").Cells(a, 3) = Sheets(isim).Cells(3, 25).Value
Sheets("AAA").Cells(a, 4) = Sheets(isim).Cells(4, 25).Value
Sheets("AAA").Cells(a, 5) = Sheets(isim).Cells(5, 25).Value
Sheets("AAA").Cells(a, 6) = Sheets(isim).Cells(6, 25).Value
Next a
End Sub
bu makroda 250.sayfaya kadar tekrar yapmak yerine daha kısa olarak makroyu yazabilirmiyim. Hepinizin bayramı kutlu olsu !