özet rapor

[SATYON]

merhaba konular içinde aradım ama tam olarak istediğimi veren bir cevap bulamadım. istediğim şu : örnek dosyada sheet1'de sipariş kolonu dolu olanları sheet2'de ilgili kolonların altına getirsin. Ama sheet1'den de silinmesin.
yardımlarınız için şimdiden teşekkürler...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SİPARİŞ_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Satır As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    
    S2.Range("A3:D" & Rows.Count).ClearContents
    Satır = 3
    
    For X = 3 To S1.Cells(Rows.Count, 1).End(3).Row
        If S1.Cells(X, "F") <> "" Then
            S2.Cells(Satır, 1) = S1.Cells(X, 1)
            S2.Cells(Satır, 2) = S1.Cells(X, 2)
            S2.Cells(Satır, 3) = S1.Cells(X, 6)
            S2.Cells(Satır, 4) = S1.Cells(X, 10)
            Satır = Satır + 1
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "Siparişleriniz aktarılmıştır.", vbInformation
End Sub

 

[SATYON]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SİPARİŞ_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Satır As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    
    S2.Range("A3:D" & Rows.Count).ClearContents
    Satır = 3
    
    For X = 3 To S1.Cells(Rows.Count, 1).End(3).Row
        If S1.Cells(X, "F") <> "" Then
            S2.Cells(Satır, 1) = S1.Cells(X, 1)
            S2.Cells(Satır, 2) = S1.Cells(X, 2)
            S2.Cells(Satır, 3) = S1.Cells(X, 6)
            S2.Cells(Satır, 4) = S1.Cells(X, 10)
            Satır = Satır + 1
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "Siparişleriniz aktarılmıştır.", vbInformation
End Sub

öncelikle ilgilendiğiniz için teşekkür ederim. bu işlemi bir butona bağlı çalıştırmam daha doğrusu kodun çalışması için extra bir işlem yapmam gerek oysa ben sipariş oluştururken diğer taraftan kendiliğinden diğer sayfa da oluşsun istiyorum.

 

[SATYON]

merhaba konular içinde aradım ama tam olarak istediğimi veren bir cevap bulamadım. istediğim şu : örnek dosyada sheet1'de sipariş kolonu dolu olanları sheet2'de ilgili kolonların altına getirsin. Ama sheet1'den de silinmesin.
yardımlarınız için şimdiden teşekkürler...

sanırım istediğimi tam olarak anlatamadım ben sheet1 de çalışırken sheet2 de kendiliğinden oluşsun sheet2 ye verilerin gitmesi için bir butona ihtiyaç duymayayım. yardımlarınız için teşekkürler

 

[Korhan Ayhan]

Merhaba,

Sorularınızı sorarken yaptığınız açıklamalara göre verilen cevaplar şekillenmektedir. Bu sebeple ilk mesajınızda bütün taleplerinizi belirtmeye özen gösterin.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın. F sütununa sipariş miktarı girip enter tuşuna bastığınızda ilgili satırdaki bilgiler diğer sayfaya aktarılacaktır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Long
 
    If Intersect(Target, Range("F3:F" & Rows.Count)) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
 
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
 
    Satır = S2.Cells(Rows.Count, 1).End(3).Row + 1
 
    If S1.Cells(Target.Row, "F") <> "" Then
        S2.Cells(Satır, 1) = S1.Cells(Target.Row, 1)
        S2.Cells(Satır, 2) = S1.Cells(Target.Row, 2)
        S2.Cells(Satır, 3) = S1.Cells(Target.Row, 6)
        S2.Cells(Satır, 4) = S1.Cells(Target.Row, 10)
    End If
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    Application.ScreenUpdating = True
End Sub

 

[SATYON]

teşekkür ederim elinize sağlık...

 

[SATYON]

Merhaba,

Sorularınızı sorarken yaptığınız açıklamalara göre verilen cevaplar şekillenmektedir. Bu sebeple ilk mesajınızda bütün taleplerinizi belirtmeye özen gösterin.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın. F sütununa sipariş miktarı girip enter tuşuna bastığınızda ilgili satırdaki bilgiler diğer sayfaya aktarılacaktır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Long
 
    If Intersect(Target, Range("F3:F" & Rows.Count)) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
 
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
 
    Satır = S2.Cells(Rows.Count, 1).End(3).Row + 1
 
    If S1.Cells(Target.Row, "F") <> "" Then
        S2.Cells(Satır, 1) = S1.Cells(Target.Row, 1)
        S2.Cells(Satır, 2) = S1.Cells(Target.Row, 2)
        S2.Cells(Satır, 3) = S1.Cells(Target.Row, 6)
        S2.Cells(Satır, 4) = S1.Cells(Target.Row, 10)
    End If
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    Application.ScreenUpdating = True
End Sub

"Satır = S2.Cells(Rows.Count, 1).End(3).Row + 1" ne ifade ediyor anlayamadım açıklayabilir misiniz? teşekkürler..