- Katılım
- 9 Mart 2020
- Mesajlar
- 20
- Excel Vers. ve Dili
- Excel 2007 turkce
merhab excelde çevirme ile igili problemim var yardımcı olursanız sevinirim
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhab excelde çevirme ile igili problemim var yardımcı olursanız sevinirim
Sub test()
veri = Sheets("Sayfa1").Range("A1").CurrentRegion.Value
If UBound(veri, 2) < 2 Then Exit Sub
With Sheets("Sayfa2")
.Range("A:B").Clear
sat = 0
For i = 2 To UBound(veri, 2)
For ii = 1 To 4
.Cells(sat + ii, 1).Value = veri(ii, 1)
.Cells(sat + ii, 2).Value = veri(ii, i)
Next ii
.Cells(sat + 1, 1).Resize(4, 2).Interior.Color = Array(rgbLightSteelBlue, rgbAliceBlue)(i Mod 2)
sat = sat + 4
Next i
End With
End Sub
İlginiz için teşekkürler.
hata verdi sürükleme yaptığımda doyada gösterdim bakabilirmisiniz
Kod:Sub test() veri = Sheets("Sayfa1").Range("A1").CurrentRegion.Value If UBound(veri, 2) < 2 Then Exit Sub With Sheets("Sayfa2") .Range("A:B").Clear sat = 0 For i = 2 To UBound(veri, 2) For ii = 1 To 4 .Cells(sat + ii, 1).Value = veri(ii, 1) .Cells(sat + ii, 2).Value = veri(ii, i) Next ii .Cells(sat + 1, 1).Resize(4, 2).Interior.Color = Array(rgbLightSteelBlue, rgbAliceBlue)(i Mod 2) sat = sat + 4 Next i End With End Sub