birsorumvar
Yeni Üye
- Katılım
- 29 May 2023
- Mesajlar
- 38
- Aldığı beğeni
- 3
- Excel V
- Office 2010 TR
Konu Sahibi
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
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
