Otomatik Satır Kaydırma ? YARDIM ltfn.

[ayhan3477]

Arkadaşlar, excelde otomatik satır kaydırma ;


ek te yer alan tabloda, Anagiriş tablosu sayfasında B sutununda seçilmiş isimlerden örneğin 30. sıradakini manuel sildiğimde altta yer alanların otomatik yukarı kaymasını ( sadece B sutunu için, 2 sayfa dahil )
sağlayabilirmiyiz.. ?
teşekkürler,,

 

[ayhan3477]

yardım ?

arkadaslar yorum yapabilecek olan yok mu ?

 

[ayhan3477]

yardım

yorumlayabilecek bir üstad yok mu arkadaşlar ?

 

[ynmcan]

Syn. Ayhan3477;
Anladığım kadarıyla birşeyler yapmaya çaıştım. İnşalah istediğiniz olmuştur.
Ekteki dosyayı inceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 7 To Sheets("Ana Giriş Tablosu").Cells(76, "B").End(xlUp).Row
If Sheets("Ana Giriş Tablosu").Cells(i, 2) = "" Then
Sheets("Ana Giriş Tablosu").Cells(i, 2) = Sheets("Ana Giriş Tablosu").Cells(i + 1, 2)
On Error Resume Next
Sheets("Ana Giriş Tablosu").Cells(i + 1, 2) = ""
End If
Next i

For f = 89 To Sheets("Ana Giriş Tablosu").Cells(158, "B").End(xlUp).Row
If Sheets("Ana Giriş Tablosu").Cells(f, 2) = "" Then
Sheets("Ana Giriş Tablosu").Cells(f, 2) = Sheets("Ana Giriş Tablosu").Cells(f + 1, 2)
On Error Resume Next
Sheets("Ana Giriş Tablosu").Cells(f + 1, 2) = ""
End If
Next f

End Sub

 

[ayhan3477]

teşekkürler

Üstadım emeğinizin ve bilginizin onunde saygıyla eğiliyorum.. emeğinize sağlık Allah Razı olsun....

Üstad c ve d sutunları silinmiyor birde ...
1 sayfadan silerken 71 sıradakinin 70 sıraya... geçme durumu bu anlamda mümkünmüdür ?

 

[ayhan3477]

arkadaşlar son yazdığımı yorumlayabilecek olan var mı ?

 

[ynmcan]

Syn. Ayhan3477 ;
Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)

'--------------- 1.sayfa
For i = 7 To Sheets("Ana Giriş Tablosu").Cells(77, "B").End(xlUp).Row
If Sheets("Ana Giriş Tablosu").Cells(i, 2) = "" Then
For s = 2 To 4
Sheets("Ana Giriş Tablosu").Cells(i, s) = Sheets("Ana Giriş Tablosu").Cells(i + 1, s)
Next s
On Error Resume Next
Sheets("Ana Giriş Tablosu").Cells(i + 1, 2) = ""
End If
Next i

'--------------- 2.sayfa dan 1.sayfa ya geçiş
If Sheets("Ana Giriş Tablosu").Cells(76, 2) = "" Then
For s = 2 To 4
Sheets("Ana Giriş Tablosu").Cells(76, s) = Sheets("Ana Giriş Tablosu").Cells(89, s)
Next s
On Error Resume Next
Sheets("Ana Giriş Tablosu").Cells(89, 2) = ""
End If


'--------------- 2.sayfa
For f = 89 To Sheets("Ana Giriş Tablosu").Cells(159, "B").End(xlUp).Row
If Sheets("Ana Giriş Tablosu").Cells(f, 2) = "" Then
For c = 2 To 4
Sheets("Ana Giriş Tablosu").Cells(f, c) = Sheets("Ana Giriş Tablosu").Cells(f + 1, c)
Next c
On Error Resume Next
Sheets("Ana Giriş Tablosu").Cells(f + 1, 2) = ""
End If
Next f

End Sub

 

[ayhan3477]

emeğinize sağlık üstadım.. teşekkür ettim.. daha iyisinin olma ihtimali yok sağolun