Satır ekleme

[asdsxx]

Arkadaşlar ekteki dosyada "B" sütununda bulunan rakamların 1 ile başlayan hücreleri ve sağındaki hücreleri 1 adet aşağıya kaydıracak ve o boş hücrelere "0" ekleyecek bunun kodu lazım soldaki hücrelerde bulunan veriler sabit kalacak.

 

[Muzaffer Ali]

Merhaba.
İyi bayramlar.
Aşağıdaki kodu bir modüle kopyalayıp çalıştırın

Sub Test()
    Dim Say As Long
    Dim Bak As Long
    Say = Cells(Rows.Count, "B").End(xlUp).Row
    For Bak = Say To 1 Step -1
        If Cells(Bak, "B")= 1 Then
            Range("A" & Bak & ":C" & Bak).Insert Shift:=xlDown
            Range("B" & Bak & ":C" & Bak) = 0
        End If
    Next
    MsgBox "İşlem tamamlandı.", vbInformation
End Sub

 

[asdsxx]

Numan Bey ve Dalgalıkur Bey ilgilerinize teşekkürler kod çalıştı.
Numan Bey'in kodu çalıştı. Dalgalıkur Bey'in kodunda tüm 1 yazanları ayırmış. Mesela 1, 11,12,13 gibi 1 gördüğü her hücreye ekleme yapmış
bu koda; "A" sütünu sabit kalsın demiştim. "A" sütunu da kayabilir mi

 

[Muzaffer Ali]

Sorunuzda 1 ile başlayan hücreleri demiştiniz onun için 1 ile başlayan her hücre dikkate alındı.
1 yazan deseydiniz farklı cevap verecektim elbette.
Kodu düzenledim. deneyebilirsiniz.

 

[asdsxx]

Kodda hata var sanırım.
1 yazan hücreleri bir hüce kaydırara

Sorunuzda 1 ile başlayan hücreleri demiştiniz onun için 1 ile başlayan her hücre dikkate alındı.
1 yazan deseydiniz farklı cevap verecektim elbette.
Kodu düzenledim. deneyebilirsiniz.

Evet haklısınız ben aslında ben sorumu yanlış anlaşılacak şekilde yazmışım sizden ve Numan Beyden de özür
benim istediğim şu idi
"B" sütununda 1 bulunan (sadece 1) satırları birer kaydırıp "B" hücresindeki boşalan hücrelere "0" yazsın yukarıdaki ilk mesaja A sütunu yerinde kalsın demiştim O da kayması gerekiyor. kodu uygulayınca ortaya çıktı.
Yani B sütununda 1 olan hücrelere 1 satır ekleyerek alta kaydıracak ve o hücrelere 0 yazacak

 

[Muzaffer Ali]

Yukarıdaki kodu düzenledim demiştim, denediniz mi?
Denediyseniz ve yanlış sonuç verdiyse yanlış olan kısmını söyleyin gözden geçireyim.

 

[asdsxx]

Sorunuzda 1 ile başlayan hücreleri demiştiniz onun için 1 ile başlayan her hücre dikkate alındı.
1 yazan deseydiniz farklı cevap verecektim elbette.
Kodu düzenledim. deneyebilirsiniz.

Dalgalıkur Bey ben mesaj yazarken siz kodu düzenlemişsiniz teşekkürler. Kod'a sadece tüm satır olacak şekilde ayarlayabilirmisiniz. dedim ya ben ilk soru yazarken hatalı yazmışım. Sizin son düzenlediğiniz koda "C" ile sınırlı değilde C den sonraki tüm sütunları kapsayacak şekilde olsun. A sütunu ile ilgili kısım tamam

 

[Muzaffer Ali]

Range("A" & Bak & ":C" & Bak).Insert Shift:=xlDown

satırını silin yerine

rows(bak).insert

satırını ekleyin

 

[asdsxx]

Çok teşekkürler...

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.