kod açıklama

[acar6783]

Sub Doldur()
[COLOR="Red"]ActiveWorkbook.RefreshAll[/COLOR]
    
    Dim i   As Long, _
        Sat As Long, _
        j   As Integer, _
        Kol As Integer, _
        Grp As Integer
    [COLOR="Red"]Dim SV As Worksheet
        Set SV = Sheets("veri")[/COLOR]

    [COLOR="Red"]Application.ScreenUpdating = False[/COLOR]
    
    Grp = 1
    Sat = 1
    j = 0
    Kol = 1
    [COLOR="Red"]Range("A:D").ClearContents[/COLOR]
    
    For i = 2 To SV.Cells(Rows.Count, "A").End(3).Row
    
    [COLOR="Red"]If SV.Cells(i, "A") = "(boş)" Then[/COLOR]
    Else
    
    
        Cells(Sat, Kol) = SV.Cells(i, "A")
        Cells(Sat + 1, Kol) = SV.Cells(i, "B")
        Cells(Sat + 2, Kol) = SV.Cells(i, "C")

        
        Sat = Sat + 3
        j = j + 1
        If j > 4 Then
            j = 0
            Sat = (Grp - 1) * 15 + 1
            Kol = Kol + 1
            If Kol = 9 Then Kol = Kol + 1
            If Kol > 4 Then
                Kol = 1
                Grp = Grp + 1
                Sat = (Grp - 1) * 15 + 1
            End If
        End If
    End If
    Next i
    
    Application.ScreenUpdating = True
End Sub

kolay glsin arkadaşlar
kod hakkında yardım alabilrimyiim .
Kodun acılımını öğrenmek istiyorum en ayrıntısına kadar kendimce geliştirmem gerekiyor .
Bildiklerimi ben belirtim ama diğerlerini bilmiyorum .

 

[m_murat]

Slm bir excel sayfası açılınca hoş geldiniz. bu gün nasılsınız ve günün tarih ve saatini gösteren bir mesaj için kod lazım.

 

[acar6783]

Slm bir excel sayfası açılınca hoş geldiniz. bu gün nasılsınız ve günün tarih ve saatini gösteren bir mesaj için kod lazım.

ekteki dosya işnizi görür mü
sayfa 1 e gectiğinzde istediklerinz yazcaktır