Çözüldü Yeni satır ekleme

[birsorumvar]

Merhabalar, aşağıdaki resimlerde düğmeye tıkladığımda bir satır eklemesini ve eklediği satırın başındaki hücreye 1 yazmasını istiyorum. Bunun için aşağıdaki kodu yazdım ama tıkladığımda 2.resimdeki gibi kaç tane hücre varsa o kadar kaydırma yaptı ve diğer ID numaralarına ait düğmeleri kaydırmadı(Muhtemelen sonsatir diye B'den tanımlamamdan etkileniyor ) Yardımcı olursanız sevinirim.

Sub dugme()
sonsatir = Cells(Rows.Count, "b").End(xlUp).Row
For i = 2 To sonsatir
If Sayfa6.Cells(i, 2) = "1" And Sayfa6.Cells(i + 1, 2) <> "" Then
Sayfa6.Range("B" & i + 1 & " :E" & i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sayfa6.Range("B" & i + 1).Select
ActiveCell.FormulaR1C1 = "1"
End If
Next i
End Sub


Ekli dosyayı görüntüle 17581 Ekli dosyayı görüntüle 17582

 

[askan]

tersten deneyin
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[birsorumvar]

tersten deneyin
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Doğru söylüyorsunuz tersten deneyince oldu teşekkür ederim.
Peki A sütununda eklediğim düğmeleri de onlarla birlikte nasıl kaydırabilirim.
Yani 1.de kaydırma yapınca 2.düğme ID 2 olan hücrenin yine yanında olsun istiyorum. Gerçi onları tasarım olarak eklediğim için sanırım o şekilde hücreyi algılayamacak. Bunu görsel olarakta sağlayabileceğim bir öneriniz var mı acaba?

 

[birsorumvar]

Doğru söylüyorsunuz tersten deneyince oldu teşekkür ederim.
Peki A sütununda eklediğim düğmeleri de onlarla birlikte nasıl kaydırabilirim.
Yani 1.de kaydırma yapınca 2.düğme ID 2 olan hücrenin yine yanında olsun istiyorum. Gerçi onları tasarım olarak eklediğim için sanırım o şekilde hücreyi algılayamacak. Bunu görsel olarakta sağlayabileceğim bir öneriniz var mı acaba?

Her birinde tıklayıp deneyince bu şekilde görüntü oluştu. Ayrıca sonsatir dediğim için 5.de uygulamıyor onda da +1 mi demeliyim.

 

[askan]

şunu koşul sürdüğünüz için son satıra bu işlemi uygulamaz
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[askan]

son satıra uygulamak için şöyle deneyin:

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[birsorumvar]

son satıra uygulamak için şöyle deneyin:

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Evet dediğiniz gibi yazdım 5'e de ekleme yaptı. Teşekkür ederim emeğiniz için.
Ama hala şöyle bir sorunla karşılaşıyorum.

 

[askan]

Evet dediğiniz gibi yazdım 5'e de ekleme yaptı. Teşekkür ederim emeğiniz için.
Ama hala şöyle bir sorunla karşılaşıyorum.
Ekli dosyayı görüntüle 17586

Şöyle deneyin sonuç alacak mısınız?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[birsorumvar]

Şöyle deneyin sonuç alacak mısınız?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Evet şimdi oldu. Teşekkür ederim.