Çözüldü Mizan dan sonra (Devir İşlemi VBA)

Yedeklere kaydetme kısmını inceleyin doğruluk sonucuna bakın, son dolu satırdan itibaren kopyalama yaparcaktır.
Bir modül içine ekleyin,

ve ya
Bir buton içine bunu ( KopyalamaIslemleri ) yapştırın çalıştırın



Diğer kopyalama işlem başlıklarını ben bulamadım net anlat.

asax' Alıntı:

Diğer kopyalama işlem başlıklarını ben bulamadım net anlat.

Genişletmek için tıkla...

Kopyalama işlemini kontrol ettim sorunsuz çalışıyor.

Bu kopyalama işlemini yaptıktan sonra Alış ve Satış Faturalarında ki verileri temizleyip.
Mizan320 sayfasında mavi ile işaretlediğim satırlar AlisFaturalari Sayfasına E sütunundaki değer 0 > olan satırlar
Mizan320 sayfasında mavi ile işaretlediğim satırlar SatisFaturalari Sayfasına F sütunundaki değer 0 > olan satırlar

Ben örnekleri manuel olarak AlisFaturalari Sayfasına ve SatisFaturalari Sayfasına kopyaladım anlayacaksın bunu kodla yapmak istiyorum. Normalde Mizan320 Sayfasındaki veriler aşağıya doğru çok uzun gidiyor dosyayı sığdırmak için bazı verileri sildim.

Tekrar deneyiniz. Temizleme işlemi eklendi.

[COLOR=%s]Sayfanızda ciddiyet gördüğüm için deneme yöntemleri ile değil, sadece odaklanan sonuca ulaşmak için,[/COLOR]

Mizan320 sayfasında mavi ile işaretlediğim satırlar AlisFaturalari Sayfasına E sütunundaki değer 0 > olan satırlar? nereden nereye alınacak.
Örnek: Mizan320 sayfasında ki 0> olan satırları A2:E aralığını, AlisFaturalari A2:G aralığı gibi belirtin.

Mizan320 sayfasında mavi ile işaretlediğim satırlar SatisFaturalari Sayfasına F sütunundaki değer 0 > olan satırlar? nereden nereye alınacak.
Örnek: Mizan320 sayfasında ki 0> olan satırları A2:F aralığını, SatisFaturalariA2:G aralığı gibi belirtin.

asax' Alıntı:

Tekrar deneyiniz.

Genişletmek için tıkla...

Mizan320 sayfasında MAVİ ile işaretlediğim satırlar AlisFaturalari Sayfasına E sütunundaki değer 0 > olan satırlar?
Doğru Örnek: Mizan320 sayfasında ki 0> olan satırları A2:E aralığını, AlisFaturalari A2:G aralığına alınacak
Ama Şu şekilde olacak

Mizan320 Sayfasında E sutununda ilk 0> olan değeri bulduğunda
AlisFaturalari sayfası A2 Hücresine = Mizan320 "T8" Hücresinde ki değer Alınacak (Bu değer Sabit olacak)
AlisFaturalari sayfası B2 Hücresine = AF00 (Bu değer her satır arttığında AF01,AF02... diye artacak)
AlisFaturalari sayfası C2 Hücresine = "Devir A" (Bu değer Sabit olacak)
AlisFaturalari sayfası D2 Hücresine = Mizan320 deki E sutununda 0> olan ilk değerin A sütunundaki Cari Kodu Yazılacak
AlisFaturalari sayfası E2 Hücresine = Mizan320 deki E sutununda0> olan ilk değerin B sütunundaki Cari Hesap Adı Yazılacak
AlisFaturalari sayfası F2 Hücresine = Mizan320 deki E sutununda0> olan ilk değerin E sütunundaki Miktarı Yazılacak
AlisFaturalari sayfası G2 Hücresine = Mizan320 "T9" Hücresinde ki değer Alınacak (Bu değer Sabit olacak)

****************************************************************************************************************************************

Mizan320 sayfasında KIRMIZI ile işaretlediğim satırlar SatisFaturalari Sayfasına F sütunundaki değer 0 > olan satırlar? nereden nereye alınacak.
Buda Doğru Örnek: Mizan320 sayfasında ki 0> olan satırları A2:F aralığını, SatisFaturalariA2:G aralığına alınacak
Bu da

Mizan320 Sayfasında F sutununda ilk 0> olan değeri bulduğunda
SatisFaturalari sayfası A2 Hücresine = Mizan320 "T8" Hücresinde ki değer Alınacak (Bu değer Sabit olacak)
SatisFaturalari sayfası B2 Hücresine = SF00 (Bu değer her satır arttığında SF01,SF02... diye artacak)
SatisFaturalari sayfası C2 Hücresine = "Devir B" (Bu değer Sabit olacak)
SatisFaturalari sayfası D2 Hücresine = Mizan320 deki F sutununda 0> olan ilk değerin A sütunundaki Cari Kodu Yazılacak
SatisFaturalari sayfası E2 Hücresine = Mizan320 deki F sutununda 0> olan ilk değerin B sütunundaki Cari Hesap Adı Yazılacak
SatisFaturalari sayfası F2 Hücresine = Mizan320 deki F sutununda 0> olan ilk değerin E sütunundaki Miktarı Yazılacak
SatisFaturalari sayfası G2 Hücresine = Mizan320 "T9" Hücresinde ki değer Alınacak (Bu değer Sabit olacak)

Gönderdiğim dosyada örneği var daha iyi anlaşılması için ekledim.

Sadece AlisFaturalari kısmının kodlarını yazdım deneyip bilgi verin, çok uğraştırdı
Sub KopyalamaIslemleri() bu satırı çalıştıracaksınız,

asax' Alıntı:

Sadece AlisFaturalari kısmının kodlarını yazdım deneyip bilgi verin

Genişletmek için tıkla...

Arkadaşım denedim AlışFaturaları sorunsuz çalışıyor

İki tane Modül olacak alış ve satış kodları için,

Sub KopyalamaIslemleri() bu satırı çalıştıracaksınız.

Birinci Modül kodları

Deneyiniz, umarım başarılı olmuştur.

İkinci modül kodları

asax' Alıntı:

İkinci modül kodları

Genişletmek için tıkla...

Bu kodları ayrı bir modüle mi kopyalayacağım yoksa birinci modülün altına mı kopyalayacağım

Evet ayrı modül ekleyin 2. kodları ona yapıştırın

AlışFAturaları sayfasına kaydedilen verilerde problem yok ama
SatışFaturaları sayfasına kaydedilen verilerde Mizan320 deki F sütunudki verileri yazması gerekirken E sütunundaki değerleri yazıyor.
bir tek oranın düzelmesi gerekiyor.

2. Modül kodunu bununla değiştir harf hatalarını düzelttim

Arkadaşım Eline emeğine sağlık tam olarak her şey yerine geldi
Teşekkür ederim.