Formül eğer hücre doluysa atlayıp yan hücreye yazdırsın...

[astrae]

Benim sorum tam olarak şu... Bir çalışma sayfasında veri giriyorum, sonuçlar başka sayfada otomatik kopyalanıyor bir sütuna, ertesi gün aynı veri giriş ekranında eski verileri silip tekrar gireceğim, program otomatik olark diğer çalışma sayfasında yan sütuna bugünün verilerini kopyalayacak... Teşekkürler...

 

[Necdet]

Benim sorum tam olarak şu... Bir çalışma sayfasında veri giriyorum, sonuçlar başka sayfada otomatik kopyalanıyor bir sütuna, ertesi gün aynı veri giriş ekranında eski verileri silip tekrar gireceğim, program otomatik olark diğer çalışma sayfasında yan sütuna bugünün verilerini kopyalayacak... Teşekkürler...

Biz teşekkür ederiz örnek dosya hazırladığınız için

 

[astrae]

ÖZÜR

örnek hazırlamamışım. şimdi gönderdim. yardımlarınız için saolun...

 

[Necdet]

Merhaba,

Makrolu çözüm isterseniz aşağıdaki kodları bir modüle kopyalamanız gerekir, ya da ekli dosyayı inceleyiniz.

Sayfa2 de tarihleri peşin yazmaktansa onu da Veriler sayfasından alır şekilde düzenledim. Veriler sayfasındaki A1 hücresine otomatik tarih getirttim.
Dolayısıyla tarihi ile birlikte aktaracaktır.

Sub Aktar()
    
    Dim i   As Integer, _
        Kol As Integer, _
        ShV As Worksheet, _
        Sh2 As Worksheet
    
    Set ShV = Sheets("VERİLER")
    Set Sh2 = Sheets("Sayfa2")
    
    Kol = Sh2.Cells(1, Columns.Count).End(1).Column + 1
    
    i = ShV.Cells(Rows.Count, "A").End(3).Row
    If i = 1 Then
        MsgBox "VERİLERİ DOLUDURUNUZ....", vbCritical
        Exit Sub
    End If
    
    Range("A1:A" & i).Copy Sh2.Cells(1, Kol)
    Range("A2:A" & i).ClearContents
    
End Sub

 

[astrae]

çok teşekkrler.. Bir sorum daha olacak. Bu kodla benim orjinal dosyaya nasıl uyarlayabilirim. Dosyada kopyalanacak veri j4 ten aşağıya kadar, kopyalanacak yer ise yan sayfada d3 ten aşağıya kadar. Ayrıca bu butonu nasıl oluşturabilirim? Tekrar saolun.

 

[astrae]

Daha da kolayı ben sizi uğraştırmadan dosyayı ekleyeyim. Dosyada veri deki j sütunlarında formül çalışıyor. Bu sütun oluşur oluşmaz(AMA TABİ SON HALİNİ OLUŞTURAN ONAYLARSA KOPYALANSIN ÇÜNKÜ SÜREKLİ DEĞİŞEBİLİR. YANİ ONAY ALINCA AKTARSIN) , son sayfasında d sütunundan başlayarak her gün ayrı ayrı yazmasını istiyorum. Ama formüller bozulmamalı. Teşekkürler...