Farklı Kayıtları Aktarma

[akavak]

Merhaba

Dosyada 2 sayfa var. 1. sayfada giriş yaparken girdiğimiz barkod rapor sayfasında yok ise barkod ve ürün adını rapor sayfasına ekleyerek, yukarıdaki formüllerin de aynı satırda devam etmesini istiyorum.

Bunun için Auto Open da tek tek barkodları karşılaştırarak eksik olanları aktarabiliyorum ancak bu seferde dosya açıkken rapor sayfası güncel olmuyor.

Giriş sayfasına barkod girildiğinde hemen rapor sayfasının güncellemek istiyorum.

şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.
D sütununa giriş yaptığınızda kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Selection.Count > 1 Then Exit Sub
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    
    Dim Sr As Worksheet, say As Integer, ay As Byte, son As Long
    
    Set Sr = Sheets("RAPOR")

    With Target
        If .Row < 2 Then Exit Sub
        If .Value = "" Then Exit Sub
        If Cells(.Row, "A") = "" Then Exit Sub
        say = WorksheetFunction.CountIf(Sr.[A:A], Cells(.Row, "A"))
        If say = 0 Then
            son = Sr.Cells(Rows.Count, "A").End(xlUp).Row + 1
            Sr.Cells(son, "A") = Cells(.Row, "A")
            Sr.Cells(son, "B") = Cells(.Row, "B")
            ay = Month(Cells(.Row, "D")) + 2
            Sr.Cells(son, ay) = Cells(.Row, "C")
        End If
    End With
  
End Sub

.

 

[akavak]

Private Sub Worksheet_Change(ByVal Target As Range)

If Selection.Count > 1 Then Exit Sub
If Intersect(Target, Range("D")) Is Nothing Then Exit Sub

Dim Sr As Worksheet, say As Integer, ay As Byte, son As Long

Set Sr = Sheets("RAPOR")

With Target
If .Row < 2 Then Exit Sub
If .Value = "" Then Exit Sub
If Cells(.Row, "A") = "" Then Exit Sub
say = WorksheetFunction.CountIf(Sr.[A:A], Cells(.Row, "A"))
If say = 0 Then
son = Sr.Cells(Rows.Count, "A").End(xlUp).Row + 1
Sr.Cells(son, "A") = Cells(.Row, "A")
Sr.Cells(son, "B") = Cells(.Row, "B")

Buraya kadar tamam ancak aşağıda bölüm yerine
Rapor sayfasında eklenmiş olan her bir yeni satır için C:E kolonlarındaki formülün de yeni satıra eklenmesi gerekiyor.

ay = Month(Cells(.Row, "D")) + 2
Sr.Cells(son, ay) = Cells(.Row, "C")
End If
End With

End Sub

 

[Ömer]

ay = Month(Cells(.Row, "D")) + 2

Yukarıdaki satırdan hemen sonra aşağıdaki satırı ekleyin.

Sr.Cells(1, ay) = Format(Cells(.Row, "D"), "mmmm")

.

 

[akavak]

Ömer bey merhaba

Rapor sayfasında diyelim ki 7. satıra yeni barkodu ekledi.
C:E 7 kolonlarına ( rapor sayfasındaki ) bir üst satırdaki formülleri kopyalamak istiyorum.

 

[Ömer]

O halde, giriş sayfasının D sütunundaki tarihe bakıp aktarım yapmasının bir manası yok sanırım. Keşke örneği eklerken farklı ayların işlemesi olan birkaç satır ilave etseydiniz. Sorunuz daha net anlaşılırdı. Yeni bir örnek ekleyerek bu detayları da dosya içinde göstermenizi rica ederim.

 

[akavak]

Ömer bey dosyanın yeni halini ekledim.
sanırım bu sefer daha anlaşılır yaptım.

iyi çalışmalar