Kayıt Makrosu hk.

[HACI46]

Arkadaşlar Merhaba
Aşağıda örnek sayfa yükledim, FaturaTMP! sayfasına "S2:AI x" sütunlarına getirdiğim verileri, FaturaHareketleri! sayfasına Kayıt Makrosu oluşturmaya çalıştım ama beceremedim, FaturaHareketleri! Sayfasının satırları her kayıttan sonra artıyor tabi ki.
Buna bir Makro yada Kod yazar mısınız.
Herkese sağlıklı günler dileği ile Selamlar.

 

[Mdemir63]

Selamlar
Anladığım kadarıyla makro kaydet ile yapmaya çalıştım.
İnceleyiniz

 

[HACI46]

Öncelikle ilginize çok teşekkür ederim, Ellerinize sağlık.
"FaturaTMP!" Sayfasında kaydedilecek satır sayısı da değişken olması gerekiyor, Tek satırlı olunca yine hata verdi.
Bende defalarca Makro yaptım ama hep aynı sorunu verdi.
Makroda hata satırını 'Yorum satırına dönüştürdüm, Dosyayı tekrar yüklüyorum.
Sağlıklı günler dileği ile Selamlar.

 

[AdemCan]

Merhaba, Her seferinde S2:AI aralığını diğer sayfaya aktarmak istiyorsanız aşağıdaki kodları kullanabilirsiniz.

Sub KayitYap()

Dim s1 As Worksheet, s2 As Worksheet
Dim son1 As Long, son2 As Long

Set s1 = Sheets("FaturaTMP")
Set s2 = Sheets("FaturaHareketleri")

son1 = s1.Range("S" & Rows.Count).End(3).Row
son2 = s2.Range("A" & Rows.Count).End(3).Row + 1

s1.Range("S2:AI" & son1).Copy s2.Range("A" & son2)

Set s1 = Nothing: Set s2 = Nothing
son1 = 0: son2 = 0
End Sub

 

[HACI46]

Merhaba, Her seferinde S2:AI aralığını diğer sayfaya aktarmak istiyorsanız aşağıdaki kodları kullanabilirsiniz.

Sub KayitYap()

Dim s1 As Worksheet, s2 As Worksheet
Dim son1 As Long, son2 As Long

Set s1 = Sheets("FaturaTMP")
Set s2 = Sheets("FaturaHareketleri")

son1 = s1.Range("S" & Rows.Count).End(3).Row
son2 = s2.Range("A" & Rows.Count).End(3).Row + 1

s1.Range("S2:AI" & son1).Copy s2.Range("A" & son2)

Set s1 = Nothing: Set s2 = Nothing
son1 = 0: son2 = 0
End Sub

Kıymetli kardeşim ellerine sağlık, Geçmişlerine rahmet olsun. Kaç gündür burayı aşmaya çalışıyordum, amatör bir kullanıcı olarak.
Rica etsem müsait olduğunda birde şu şekilde bir kod yazabilir misin.
Örneğin bu kodu hazırladığınız Örnek çalışmada S2 den AI ya kadar olan veriler ve Satırlar (kaç satırdan oluşuyorsa) topluca geliyor.
Bunu "FaturaHareketleri!"ne atarken
1 satırın "A" sütunu, "B" sütunu, "C" sütunu, "D" sütunu.........., "Q" sütunu nun value si
Ancak bura da Satır da (x) yani alacağım sayfanın kaçıncı Satırındaysa. Verdiğim Şarta göre bulup alacak x=(Şart)
2 satırın "A" sütunu, "B" sütunu, "C" sütunu, "D" sütunu.........., "Q" sütunu nun value si gibi
.
.
x Kaç satır sa , şeklinde bir kod yazar sanı bana çok işime yarayacak inşallah.
Mesela burada "FaturaTMP!"e bu verileri getirirken 3 sefer yer değiştirdim, bir kaç (Sütun) {"*-1"} hücresinde işlem yapıp değiştirebilmek için.
böyle bir kod um olsa idi bun tek seferde de halledebilirdim.
Ben tekrar alakanız, bilginiz ve emeğiniz için çok çok teşekkür ediyor, Size sevdikleriniz ve tüm arkadaşlara sağlıklı günler diliyorum. Selamlar.

 

[AdemCan]

Aleyküm Selam, güzel düşünceleriniz için çok teşekkür ederim.

Mesajınızda bahsettiğiniz durumlar için dosyada örnek vererek açıklayabilir misiniz?

Örneğin bu kodu hazırladığınız Örnek çalışmada S2 den AI ya kadar olan veriler ve Satırlar (kaç satırdan oluşuyorsa) topluca geliyor.
Bunu "FaturaHareketleri!"ne atarken
1 satırın "A" sütunu, "B" sütunu, "C" sütunu, "D" sütunu.........., "Q" sütunu nun value si
Ancak bura da Satır da (x) yani alacağım sayfanın kaçıncı Satırındaysa. Verdiğim Şarta göre bulup alacak x=(Şart)
2 satırın "A" sütunu, "B" sütunu, "C" sütunu, "D" sütunu.........., "Q" sütunu nun value si gibi
.
.
x Kaç satır sa , şeklinde bir kod yazar sanı bana çok işime yarayacak inşallah.
Mesela burada "FaturaTMP!"e bu verileri getirirken 3 sefer yer değiştirdim, bir kaç (Sütun) {"*-1"} hücresinde işlem yapıp değiştirebilmek için.
böyle bir kod um olsa idi bun tek seferde de halledebilirdim.

 

[HACI46]

Aleyküm Selam, güzel düşünceleriniz için çok teşekkür ederim.

Mesajınızda bahsettiğiniz durumlar için dosyada örnek vererek açıklayabilir misiniz?

İlginiz için Tekrar çok teşekkürler.
Tekrar örnek dosya ve resim yüklüyorum İnşaAllah anlatabilmişimdir. Sağlıklı günler dileği ile Selamlar.

 

[HACI46]

Sevgili kardeşim Başka bir Dosya daha ekliyorum .
Bunda da Programı Aç tıktan sanra, Fatura ekle click, Stok Seç, click, Stok listesinden birini seçince FrmFatura formunda TxtStokKodu na gelen stoğun , Stok mevcutunu form daki ilgili TxtStokMevcutu na çağırımısın, Ben For döngüsünde de zayıfım.
Allah a emanet olunuz.

 

[HACI46]

Sevgili kardeşim Başka bir Dosya daha ekliyorum .
Bunda da Programı Aç tıktan sanra, Fatura ekle click, Stok Seç, click, Stok listesinden birini seçince FrmFatura formunda TxtStokKodu na gelen stoğun , Stok mevcutunu form daki ilgili TxtStokMevcutu na çağırımısın, Ben For döngüsünde de zayıfım.
Allah a emanet olunuz.

Dim x As Long
Dim y As Long
For y = 2 To 1000000
If Sheets("Stoklar").Range("A" & y).Value = "" Then Exit For
If Sheets("Stoklar").Range("A" & y).Value = TxtStokKodu.Value Then
TxtStokMevcut.Value = Sheets("Stoklar").Range("H" & y).Value
End If
Next
2.Dosyadaki sorumu bu kod ile çözdüm, deneme yanılma ile. Bu konuya cevap vermeseniz de olur.
Tekrar esenlikler dilerim. Selamlar

 

[HACI46]

İlginiz için Tekrar çok teşekkürler.
Tekrar örnek dosya ve resim yüklüyorum İnşaAllah anlatabilmişimdir. Sağlıklı günler dileği ile Selamlar.
Ekli dosyayı görüntüle 228479

Merhaba
yeni değişik örnek dosya yülüyorum. Burada bir şeyler yaptım ama Bir sıralama sorunum var.
Selamlar