koşula bağlı olarak sadece değerleri aktarma

[baron07]

ekteki sayfa1 üzerinde A sutünunda bulunan bilgileri A1 Hücresindeki ay koşuluna bağlı olarak ilgili oldukları aya değer olarak kopyalamak istiyorum sayfa2 deki bilgiler her ay değiştiği için bunu makro yardımı yapmak istiyorum .
ilgileriniz için teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:da9f11b3b4]Sub aktar()
On Error Resume Next
Set s1 = Sheets("sayfa1")
kolon = s1.[b1:m1].Find(s1.[a2].Value).Column
For a = 3 To 6
Cells(a, kolon) = Cells(a, 1).Value
Next
End Sub
[/vb:1:da9f11b3b4]

 

[baron07]

sayın leventm
teşekkür ederim sağolun

 

[baron07]

yine aktarmada bir sorunum çıktı
1 -)
Private Sub CommandButton1_Click()
On Error Resume Next
Set s1 = Sheets("öz,gid")
kolon = s1.[ae2:ap2].Find(s1.[y1].Value).Column
For a = 3 To 22
Cells(a, kolon) = Cells(a, 28).Value
Next
End Sub
yaptığım zaman ancak 18. hücreye kadar aktarıyor
benim aktarmak istediğim hücre aralığı bir sütunda 22 hücre var.
2-) birde yanyana A sütunu ve B sütunundaki bilgiler var
A sütunundaki bilgiler C sütununa
B sütunundaki bilgiler D sütununa
daha sonra E, F G,H diye devam ediyor
Yine A1 hücresindeki koşula dayalı olarak aktarmak istiyorum
İlgilenirseniz memnun olurum
Teşekkürler saygılar

 

[Levent Menteşoğlu]

For a = 3 To 22

1.sorunuz için yukarıdaki döngünün değerlerini değiştirin. Başka türlü eksik veri aktaramaz.

2.sorunuzdan ne kasdettiğinizi anlayamadım. Biraz daha deteylandırırmısınız?

 

[baron07]

ekte gönderdim
incelerseniz memnun olurum diğerinden farkı iki sütundaki değerleri ikişerli sütunlar halinde aktarmak istiyorum
ilgileriniz için teşekkür ederim .
saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:b4d7354ee7]Private Sub CommandButton1_Click()
On Error Resume Next
Set s1 = Sheets("sayfa1")
kolon = s1.[b1:m1].Find(s1.[a2].Value).Column
For a = 3 To Cells(65536, 1).End(xlUp).Row
Cells(a, kolon) = Cells(a, 1).Value
Cells(a, kolon + 1) = Cells(a, 2).Value
Next
End Sub[/vb:1:b4d7354ee7]

 

[baron07]

teşekkür ederim