değişkene göre sayfaya aktarma

[osman.osman]

kolay gelsin satırlar daki 5 değişkenden birisinde farklılık varsa tarih sırasına göre sayfa1 e aktarabilirmiyiz tarih sırasına göre olabilirmi birde formülle olursa şimdiden teşekkür ediyorum

 

[Orion1]

Formülle çözümler için sorunuzu Fonksiyonlar bölümüne sorabilirsiniz.

 

[osman.osman]

tekrar konu açmayalım siz aktarabilirmisiniz.aktarmasını bilmiyorum

 

[Orion1]

tekrar konu açmayalım siz aktarabilirmisiniz.aktarmasını bilmiyorum

Tamam bir dahaki sefere yaparsınız.

 

[osman.osman]

yardımcı olabilecekmisiniz

 

[ÖmerBey]

Merhaba,
Makro ile çözüm isterseniz aşağıdaki kodu deneyiniz.

Sub KOD()
Set dt = Sheets("data")
Set s1 = Sheets("Sayfa1")
x = 3
s1.Range("A3:J65500").ClearContents
For a = 4 To dt.Range("B65500").End(3).Row
    If dt.Cells(a, "B") <> dt.Cells(a + 1, "B") Or _
        dt.Cells(a, "C") <> dt.Cells(a + 1, "C") Or _
        dt.Cells(a, "D") <> dt.Cells(a + 1, "D") Or _
        dt.Cells(a, "E") <> dt.Cells(a + 1, "E") Or _
        dt.Cells(a, "J") <> dt.Cells(a + 1, "J") Then
            s1.Cells(x, "A") = dt.Cells(a, "J")
            s1.Cells(x, "B") = dt.Cells(a, "B")
            s1.Cells(x, "C") = dt.Cells(a, "C")
            s1.Cells(x, "D") = dt.Cells(a, "D")
            s1.Cells(x, "E") = dt.Cells(a, "E")
            
            x = x + 1
    End If
Next
        
s1.Range("A3:J65500").Sort s1.Range("A3")
End Sub

 

[osman.osman]

yaptığım çalışmada bu sayfayla alakalı diğer çalışmalarda formulle yapıldığı için buda formullü olursa daha uygun olacak

 

[osman.osman]

kolay gelsin eğer yukarıdaki çalışma formülle olmuyorsa bu makroya göre data sayfasında j sütununda veri olan satırı aktarsa ve tarih sıralı olsa olur mu? J sütunu boşsa aktarmasın

 

[ÖmerBey]

Kodu şu şekilde değiştirebilirsiniz.

Sub KOD()
Set dt = Sheets("data")
Set s1 = Sheets("Sayfa1")
x = 3
s1.Range("A3:J65500").ClearContents
For a = 4 To dt.Range("B65500").End(3).Row
    If (dt.Cells(a, "B") <> dt.Cells(a + 1, "B") Or _
        dt.Cells(a, "C") <> dt.Cells(a + 1, "C") Or _
        dt.Cells(a, "D") <> dt.Cells(a + 1, "D") Or _
        dt.Cells(a, "E") <> dt.Cells(a + 1, "E") Or _
        dt.Cells(a, "J") <> dt.Cells(a + 1, "J")) And _
        dt.Cells(a, "J") <> "" Then
            s1.Cells(x, "A") = dt.Cells(a, "J")
            s1.Cells(x, "B") = dt.Cells(a, "B")
            s1.Cells(x, "C") = dt.Cells(a, "C")
            s1.Cells(x, "D") = dt.Cells(a, "D")
            s1.Cells(x, "E") = dt.Cells(a, "E")
            
            x = x + 1
    End If
Next
        
s1.Range("A3:J65500").Sort s1.Range("A3")
End Sub

Ekte de formülle hazırlanmış örneğiniz bulunmaktadır, inceleyiniz.
Data sayfasında A sütunu yardımcı sütun olarak kullanıldı.

 

[osman.osman]

çok teşekkür ediyorum ellerine sağlık