Farklı sayfalara veri girişi

[omerkaraca]

Dostlar merhaba

Şu şekilde bir makromuz var
Ama buna ek olarak
Veri doğrulama ile 2-3 sayfaya , hangı isimde ise ona bağlı olarak kaydetmesini istiyoruz ama bi türlü çıkamadık
Yardımcı olabilecek üstadlar

Google Drive: Sign-in

Access Google Drive with a Google account (for personal use) or Google Workspace account (for business use).

drive.google.com

Şimdi den teşekkürler

Sub KAYDET()

Application.ScreenUpdating = False
Application.CutCopyMode = False



Dim i As Integer
If hisam.Range("A2") = "" Then
i = 2
Else
i = hisam.Range("A1").End(xlDown).Row + 1
End If

For k = 1 To 5

giris.Range("F4").Offset(k, 0).Copy
hisam.Cells(i, k).PasteSpecial xlPasteValues
Next k


Application.ScreenUpdating = True
Application.CutCopyMode = True


End Sub