TARİHE GÖRE MAKRO

[shocaoglu]

TARÝHE G�RE MAKRO

EKTEKİ DOSYADA TEK HÜCREDE ARAÇ PLAKALARINI VE TAÞIDIÐI MALZEMEYİ GİREREK DİÐER ÇALIÞMA SAYFASINA ATMASI (Ã?RNEÐİN BİR GÜNDE AYNI ARAÇ 3 SEFER YAPTI FAKAT BEN AYNI HÜCREYE YAZARAK BU ÜÇ ARACIN TOPLAMINI ARACIN AYRI ÇALIÞMA SAYFASINA TOPLAM VERMESİ) BİLMEM ANLATA BİLDİMMİ. EKTEKİ DOSYAYI İNCELEDİÐİNİZDE NE YAPMAK İSTEDİÐİMİ ANLARSINIZ. YARDIMLARINIZ İÇİN TEÞEKKÜRLER.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e3dff5c0fe]Sub aktar()
On Error GoTo 20
Set s1 = Sheets("" & [b5])
sat = s1.[a1:a65536].Find([a5].Value).Row
For a = 3 To 16
If Cells(5, a) = 0 Then GoTo 10
s1.Cells(sat, a - 1) = Cells(5, a) + s1.Cells(sat, a - 1)
10 Next
Exit Sub
20 MsgBox "PLAKA VEYA TARİH GİRİÃžİ HATALIDIR"
End Sub
[/vb:1:e3dff5c0fe]