Şartlı kaydet

[efeem]

Arkadaşlar aşağıda yazdığım şartları makro kodu olarak yazabilecek biri varsa yardımcı olabilirmi?

Sayfa1 deki A1 hücresi Ocak ise Sayfa1 deki B5 B10 aralığındaki verileri Sayfa2 deki A5 A10 hücre aralığına kaydetsin. Bunu yapmak için user forma bir kaydet butonu ekleyerek yapabilirsiniz. Şimdiden teşekkürler.

 

[Skorpiyon]

Sayın efeem,

Userforma koyacağınız butonun kodlarını aşağıdaki şekilde yazarak bir deneyin.

If Sheets("Sayfa1").Ragne("A1").Value = "Ocak" Then
Sheets("Sayfa1").Range("B5:B10").Copy Sheets("Sayfa2").Range("A5:A10")
End If

 

[Ayhan Ercan]

Merhaba,

Alternatif olarak:

If Sheets("Sayfa1").Range("A1").Value = "Ocak" Then
For i = 5 To 10
Sheets("Sayfa2").Range("A" & i) = Sheets("Sayfa1").Range("B" & i)
Next
End If