göreceli makro hatası

[shia_aurian]

Merhaba arkadaşlar,

Forumdaki stok takip programları istediğimi vermiyordu. Bende kendim bir şeyler yaptım ama beceremedim. Çünkü datayı sildiğim zaman göreceli makro kaldığı yerden devam ediyor. Oysaki dolu olan sonra satırın altına gitmesi gerekiyordu. Nerede hata yapıyorum? yardımcı olabilirseniz sevinirim.

Birde stok giriş çıkışında aynı koda sahip ürünlerin kalanlarını listelemem gerekiyor. (3. sayfada).
Yardımcı olabilirseniz sevinirim.

Edit: Dosyaya buradan da ulaşabilirsiniz.

Herkese iyi günler

 

[shia_aurian]

Yardımcı olabilecek kimse var mı? Pazartesiye bitirmiş olmam gerekiyor.

 

[TanerSaydam]

Dosyayı normal bir yükleme sitesine yüklerseniz bakayım. Buradan indiremiyorum.

 

[shia_aurian]

Buraya yükledim. İlgilendiğiniz için teşekkür ederim.

 

[shia_aurian]

yardımcı olabilecek kimse yok mu?

 

[YUSUF44]

Aşağıdaki makroları kullanabilirsiniz:
Giriş için:

Sub gelen_ekle()
Set s1 = Sheets("Giriş")
Set s2 = Sheets("Gelen")

yeni = s2.Cells(Rows.Count, "C").End(3).Row + 1
s1.[A3:L3].Copy s2.Cells(yeni, "C")
s1.[A3:L3] = ""
        
End Sub

Çıkış için:

Sub çıkış_ekle()
Set s1 = Sheets("Giriş")
Set s2 = Sheets("verilen")

yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
s1.[A12:J12].Copy s2.Cells(yeni, "A")
s1.[A12:J12] = ""
        
End Sub

Fark listeleme için:

Sub kontrol()
Set s1 = Sheets("Liste")
Set s2 = Sheets("Gelen")
Set s3 = Sheets("verilen")

song = s2.Cells(Rows.Count, "C").End(3).Row
sonç = s3.Cells(Rows.Count, "A").End(3).Row
eski = WorksheetFunction.Max(4, s1.Cells(Rows.Count, "A").End(3).Row)
s1.Range("A4:I" & eski) = ""

For gelen = 3 To song
    For çıkan = 3 To sonç
        If s2.Cells(gelen, "E") = s3.Cells(çıkan, "C") Then
            yeni = s1.Cells(Rows.Count, "A").End(3).Row + 1
            s1.Cells(yeni, "A") = yeni - 3
            s1.Cells(yeni, "B") = s2.Cells(gelen, "F")
            s1.Cells(yeni, "C") = s2.Cells(gelen, "E")
            s1.Cells(yeni, "D") = s2.Cells(gelen, "G")
            s1.Cells(yeni, "E") = s2.Cells(gelen, "H")
            s1.Cells(yeni, "F") = s3.Cells(çıkan, "E")
            s1.Cells(yeni, "G") = s3.Cells(çıkan, "F")
            s1.Cells(yeni, "H") = s1.Cells(yeni, "D") - s1.Cells(yeni, "F")
            s1.Cells(yeni, "I") = s1.Cells(yeni, "E")
            
        End If
    Next
Next
            
End Sub