Koddaki ekskliğe lütfen yardım

[hakpin]

Açıklamasını ekteki dosyada yapmış olduğum konuya yardımcı olursanız çok sevinirim.Çünkü 2 gündür sizin için çok basit olan bu ekskliği düzeltemedim.

 

[Orion1]

Merhaba.
AKTAR butonundaki kod aşağıdaki gibi olacak.

Sub Düğme4_Tıklat()
Sayfa = ("STOK")
son = WorksheetFunction.CountA(Sheets(Sayfa).[u3:u600]) + 1
Sheets(Sayfa).Cells(son + 2, "u") = Date
Sheets(Sayfa).Cells(son + 2, "q") = [ac4]
Sheets(Sayfa).Cells(son + 2, "r") = [d4]
Sheets(Sayfa).Cells(son + 2, "m") = [al4]
Sheets(Sayfa).Cells(son + 2, "n") = [bh4]
Sheets(Sayfa).Cells(son + 2, "o") = [bn4]
Sheets(Sayfa).Cells(son + 2, "p") = [bs4]
Sheets(Sayfa).Cells(son + 2, "s") = [by4]
Sheets("STOK").Cells(Sheets("GİRİŞ").Range("A1").Value + 3, "J").Value = _
Sheets("STOK").Cells(Sheets("GİRİŞ").Range("A1").Value + 3, "J").Value + _
Sheets("GİRİŞ").Range("by4").Value
MsgBox "A K T A R M A   Y A P I L D I..!!"
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. Sezar sorunuzu cevaplamış ama alternatif olması açısından kodunuzu biraz düzenledim. Aşağıdaki şekildede kullanabilirsiniz.

Sub AKTAR()
    Set SS = Sheets("STOK")
    Set SG = Sheets("GİRİŞ")
    SON = SS.[U65536].End(3).Row + 1
    SS.Cells(SON, "U") = Date
    SS.Cells(SON, "Q") = [AC4]
    SS.Cells(SON, "R") = [D4]
    SS.Cells(SON, "M") = [AL4]
    SS.Cells(SON, "N") = [BH4]
    SS.Cells(SON, "O") = [BN4]
    SS.Cells(SON, "P") = [BS4]
    SS.Cells(SON, "S") = [BY4]
    SS.Cells(SG.[A1] + 3, "J") = SS.Cells(SG.[A1] + 3, "J") + SG.[BY4]
    Set SS = Nothing
    Set SG = Nothing
    MsgBox "BİLGİLER AKTARILMIŞTIR.", vbInformation
End Sub

 

[hakpin]

Sayın Sezar ;
Size ilginizden ve yardımlarınızdan dolayı çok teşekkür ederim.sizinde bütün işleriniz kolay gelsin .

 

[Orion1]

Rica Ederim.
İyi çalışmalar.

 

[hakpin]

Sayın Cost_Control;
İlginizden ve yardımlarınızdan dolayı sizede çok teşekkür ederim.İşleriniz kolay gelsin.