Selamlar ustalar ,
elimde bir excel var ve ekteki kırmızı olan satırları silmem gerekiyor. bu satırlar 2000 satır kadar devam eden ve hep eşit aralıklardalar.
normalde aralarda boşluk yoktu aşağıdaki formül ile bu hale geliyordu.
bu listeyi hazırlamak için
Sub aralaraSatirGir()
Application.ScreenUpdating = False
For i = [a65536].End(3).Row + 1 To 2 Step -1
'Rows(i & ":" & i + 2).Insert Shift:=xlDown
Rows(i).Resize(3).Insert Shift:=xlDown
fiyat = Cells(i - 1, "E")
Range(Cells(i, "E"), Cells(i + 2, "f")).Value = _
Application.Transpose(Array(Array(Round(fiyat * 1.7, 2), Round(fiyat * 1.4, 2), Round(fiyat * 1.25, 2)), Array(3, 1, 2)))
Next i
Application.ScreenUpdating = True
End Sub
gibi bir formül hazırlamışlardı büyüklerim. aynı formüle eklenebilirmi bide onu soracaktım.
sevgiler
elimde bir excel var ve ekteki kırmızı olan satırları silmem gerekiyor. bu satırlar 2000 satır kadar devam eden ve hep eşit aralıklardalar.
normalde aralarda boşluk yoktu aşağıdaki formül ile bu hale geliyordu.
bu listeyi hazırlamak için
Sub aralaraSatirGir()
Application.ScreenUpdating = False
For i = [a65536].End(3).Row + 1 To 2 Step -1
'Rows(i & ":" & i + 2).Insert Shift:=xlDown
Rows(i).Resize(3).Insert Shift:=xlDown
fiyat = Cells(i - 1, "E")
Range(Cells(i, "E"), Cells(i + 2, "f")).Value = _
Application.Transpose(Array(Array(Round(fiyat * 1.7, 2), Round(fiyat * 1.4, 2), Round(fiyat * 1.25, 2)), Array(3, 1, 2)))
Next i
Application.ScreenUpdating = True
End Sub
gibi bir formül hazırlamışlardı büyüklerim. aynı formüle eklenebilirmi bide onu soracaktım.
sevgiler