Listeye aktarırken yeni değeri bir alt satıra yazma

[eyço]

Sayın üstadlar benim problemim şöyle;

ekte gönderdiğim DENEME.xls dosyasının ilk "MİF-tüketim" sayfasında her fiş düzenlediğimde yazdır-aktar komutuna bastığımda " L İ S T E " sayfasındaki ilgilii yerlere "Mif tüketim" sayfasındaki sarı ile renklendirdiğim hücrelerdeki değerlerin aktarılmasını sağlamak.

"MİF-tüketim" sayfasında her değer girişinde, listeye aktarılacak değer bir alt satırdaki boş hücrelere gelecek şekilde aktarım yapılacak


yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Dim sAt As Long
    
    ActiveSheet.PrintOut
    
    With Sheets("L İ S T E")
        sAt = .Cells(Rows.Count, "C").End(xlUp).Row + 1
        .Range("B" & sAt) = sAt - 2
        .Range("C" & sAt) = Range("G3")
        .Range("D" & sAt) = Range("C3")
        .Range("E" & sAt) = Range("C4")
        .Range("F" & sAt) = Range("E50")
    End With
 
End Sub

.

 

[eyço]

teşekküürler Ömer Bey. sorunumu çözdüm


sağolasın...