dolu satırın bir altından devam etmesi

[esad45]

arkadaşlar bir listem var 100 kişilik bu listeden de yüzlercesi var bu bazen 1 kişilik bazen 4 kişilik ama en çok 100 kişilik liste oluyor bu listeyi barkod ile excel e okutuyorum kaydet tulşuna basınca öteki sayfaya gelir sayfasına en son dolu olabn satırın bir altına yapıştırmak istiyorum nasıl bir formül yazmam lazım ek te dosyamın bir öreneği var yardımcı olursanız çok sevinirim

 

[esad45]

yok mu bir cevap verecekk

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub KAYDET()
    Satir = Sheets("veri gir").Cells(Rows.Count, 2).End(3).Row
    Sheets("veri gir").Range("B4:I" & Satir).Copy Sheets("gelir ").Cells(Rows.Count, 2).End(3).Offset(1, 0)
    MsgBox "Veriler kaydedildi...", vbInformation
End Sub

 

[esad45]

Aşağıdaki kodu deneyiniz.

Sub KAYDET()
    Satir = Sheets("veri gir").Cells(Rows.Count, 2).End(3).Row
    Sheets("veri gir").Range("B4:I" & Satir).Copy Sheets("gelir ").Cells(Rows.Count, 2).End(3).Offset(1, 0)
    MsgBox "Veriler kaydedildi...", vbInformation
End Sub

teşekkür ederim dosyamda uygulayınca ekteki resimdeki hatayı verdi nered hata yapıyorum acaba

 

[Korhan Ayhan]

Ben foruma eklediğiniz dosyada hatasız çalıştırdım. Orjinal dosyanızın içeriğini bilemem. Sayfa isimlerini kontrol edin.

 

[esad45]

evet bir boşluk gelirden sonra boşluk bırakmışım ondan olmuş ama bu sayfadaki formülleri yapıştırıyor ben formül yerine değerleri yapıştırmak için ne yapmalıyım

 

[esad45]

Offset

formülünde formülleri kopyalıyor oysa ben değerleri yapıştırmasını isityorum nasıl yapabilirim

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub KAYDET()
    Satir = Sheets("veri gir").Cells(Rows.Count, 2).End(3).Row
    Sheets("veri gir").Range("B4:I" & Satir).Copy
    Sheets("gelir ").Cells(Rows.Count, 2).End(3).Offset(1, 0).PasteSpecial xlValues
    Application.CutCopyMode = False
    MsgBox "Veriler kaydedildi...", vbInformation
End Sub

 

[esad45]

teşekkür ve bir soru daha

korhan bey çok teşekkür ederim sağolun size bir sorum daha olsa çok olurmu bilmem ben 2 tarih arası perşembe günlerinin sayısını bulma istiyorum bunu yapabilecek bir formül var mı foruma baktım ama istediğim gibi değil ben ek tekiş gibi bir şey istiyorum yardım edebilirmisiniz

 

[Korhan Ayhan]

Aşağıdaki formülü deneyiniz.

=TOPLA.ÇARPIM(--(HAFTANINGÜNÜ(SATIR(DOLAYLI(B3&":"&C3));2)=1))