belirtilen satır numaralarına göre hücrelerin aşağıya ötelenmesi

[baydeniro]

Merhaba Arkadaşlar,

F sütununda belirtilen satır numaralarına göre B sütunundaki hücrelerin aşağıya doğru makroyla topluca ötelenmesi mümkün mü ?

Örnek dosya ve örnek uygulama dosyasının linki : http://s8.dosya.tc/server5/lvrazv/__BELIRLENEN_YERLERDE_HUCRE_OTELE.xls.html

 

[halit3]

Sorunuza göre çözüm bu

Sub Makro1()

son = Cells(Rows.Count, "B").End(3).Row
Range("F2:F" & son).Sort Key1:=Range("F2"), Order1:=xlAscending

For i = 1 To son
sat = Val(Cells(i, "f").Value)
If sat > 0 Then
Cells(sat, "B").Insert Shift:=xlDown

End If
Next i
MsgBox " Düzenleme Tamanlanmıştır..."

End Sub

aslında f sutünu şöyle olmalı

6-8-12

bunun çözümüde bu

Sub Makro2()

son = Cells(Rows.Count, "B").End(3).Row
Range("F2:F" & son).Sort Key1:=Range("F2"), Order1:=xlAscending

For i = son To 1 Step -1
sat = Val(Cells(i, "f").Value)
If sat > 0 Then
Cells(sat, "B").Insert Shift:=xlDown
End If
Next i

MsgBox " Düzenleme Tamanlanmıştır..."

End Sub

 

[baydeniro]

halit3 üstadın çok teşekkür ediyorum, müthiş olmuş. Sağlıcakla kalın.