Basit ekstre hazırlanması

[aliberberoglu1981]

Birl.veri yazıyor =EĞER(F6="";"";B6&C6&D6&E6&F6&G6&H6&I6&J6&K6&L6&M6&N6&O6&P6&Q6&R6&S6&T6) müstahsil sayfasında tüm a stünunda var hocam

 

[kulomer46]

hocam çok sağolun tam istediğim gibi .......
birde uygun hocamın a sütünundaki formul bu aktarımla mı ilgili.

Evet A sütunundaki formül bu aktarımla ilgilidir.

Makroyu açıp baktığımızda Sub sayfalara_gönder() kod bloğunun içinde aşağıdaki kod satırları bulunmaktadır.

Sub sayfalara_gönder()
....
....
If WorksheetFunction.CountIf(s2.Range("a6:a" & sonsatir), Cells(i, "a")) = 0 Then
....
....
End sub

Bu kod ile 'MUSTAHSİL ALIM LİSTESİ' Sayfasındaki verileri ilgili sayfalarına sırasıyla aktarırken, Aktarılacak sayfada sırasıyla aktarılan kayıt bilgileri birebir aynı olan daha önce kayıt yoksa aktarma işlemini yapmaktadır.

Yukardaki kod bu durumu kontrol etmekte, aktarılacak sayfada birebir aynı bilgileri içeren veriler varsa 'MUSTAHSİL ALIM LİSTESİ' Sayfasındaki ilgili satırı hiç aktarmamakta, bir aşağı satırdan kodlar çalışmaya devam etmektedir.

A sütunundaki formüller birebir aktarımın sağlıklı yapılabilmesi içindir.

Selamlar...