tarihle rakamı eşitleyip yerine yazdırma

[şaban aydın]

Arkadaşlar;
aşağıya eklemiş olduğum dosyamın veri sayfasından diğer soforvri sayfasına,gök sayfasına,anıt sayfasına,öztimur sayfasına,simge sayfasına şarta bağlı kalarak dağıtım yaptırabilirmiyiz.
veri sayfası.....soforveri sayfası şart......veri sayfasında plaka stununun altındaki plakalar tarih stununda hangi tarihlerde veri girişi yapılmışsa ...soforveri sayfasında o tarihe ((1)) yazmasını istiyorum.
veri sayfası...gök anıt simge öztimur sayfaları arasında ilişki..
firması stununda isimlere göre ..aynı isimdeki çalışma sayfasına kayıt yaratmasını istiyorum...
teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub İMALAT()

Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("VERİ")
Set s3 = Sheets("SOFORVERI")

s1.[C6:C16].Copy

'VERİ sayfasına kaydetme
yeniveri = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(yeniveri, "A").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

'SOFORVERİ sayfasına kaydetme
gun = Day(s1.[C8])
son = s3.Cells(Rows.Count, "A").End(3).Row
plaka = WorksheetFunction.Match(s1.[C7], s3.Range("A1:A" & son), 0)
s3.Cells(plaka, gun + 1) = 1

'FİRMA sayfasına kaydetme
firma = s1.[C9]
yenifirma = Sheets(firma).Cells(Rows.Count, "A").End(3).Row + 1
Sheets(firma).Cells(yenifirma, "A").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        
'GİRİŞ sayfasını temizleme
s1.[C6:C16].ClearContents
s1.Range("C6").Select

Application.CutCopyMode = False
 
End Sub

 

[şaban aydın]

ÇOK TEŞEKKÜR EDERİM..MÜKEMMEL..