hücre çoklama

[zencmore]

Emir Hüseyin Çoban' Alıntı:
. . .

İsimlerin A1' den başladığını varsayarak. Aşağıdaki kodları deneyiniz.

Kod:
Sub KOD()
Application.ScreenUpdating = False

For i = [A65536].End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
Rows(i).Insert Shift:=xlDown
Cells(i, "A") = Cells(i + 1, "A")
End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub
. . .

merhaba, yukarıdaki macroyu başka konudan aldım ama sadece a1 stununa yapıyor. bu macroyu b ve c stunlarına da aynı anda eklemek için ne yapmak lazım.

a, b, c stunları aynı anda çoklansın istiyorum.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları deneyin.

Sub Test()
    Dim Kolon As Variant
    Dim Bak As Integer
    Application.ScreenUpdating = False
    For Each Kolon In Array("A", "B", "C")
        For Bak = Cells(Rows.Count, Kolon).End(xlUp).Row To 1 Step -1
            If Cells(Bak, Kolon) <> "" Then
                Cells(Bak, Kolon).Insert shift:=xlDown
                Cells(Bak, Kolon) = Cells(Bak + 1, Kolon)
            End If
        Next
    Next
    Application.ScreenUpdating = True
    MsgBox "Tamamlandı"
End Sub

 

[zencmore]

Merhaba.

Aşağıdaki kodları deneyin.

Sub Test()
    Dim Kolon As Variant
    Dim BakKolon As Integer
    Dim Bak As Integer
    Kolon = Array("A", "B", "C")
    Application.ScreenUpdating = False
    For BakKolon = 0 To UBound(Kolon) - 1
        For Bak = Cells(Rows.Count, Kolon(BakKolon)).End(xlUp).Row To 1 Step -1
            If Cells(Bak, Kolon(BakKolon)) <> "" Then
                Cells(Bak, Kolon(BakKolon)).Insert shift:=xlDown
                Cells(Bak, Kolon(BakKolon)) = Cells(Bak + 1, Kolon(BakKolon))
            End If
        Next
    Next
    Application.ScreenUpdating = True
    MsgBox "Tamamlandı"
End Sub

merhaba, teşekkür ederim. A ve B ye uyguladı fakat C ye uygulamadı. neden kaynaklanmış olabilir?

 

[Muzaffer Ali]

Kodu düzelttim tekrar deneyin.

 

[zencmore]

çok teşekkür ederim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.