Cells ile aralık belirleme

[Ergün Güler]

Selam,
aşağıdaki kod ile Sayfa1'in A1 sütunundaki değeri Sayfa2'nin 1.satırında buluyor. sayfa1'in A3:A10 arasındaki değerleri de Sayfa2'nin bulunan sütununun 3 ila 10 satıra aktarmasını istiyorum. ne yapmam gerekiyor?

Sub AKTAR()
Dim sut As Integer
If Range("A1") = "" Then
MsgBox "Lütfen veri girişi yapınız !", vbExclamation
Exit Sub
End If
For sut = 1 To 10
If Range("A1") = Sheets("Sayfa2").Cells(1, sut) Then
Sheets("Sayfa2").Cells(3, sut).Value = Range("A3:A10").Value
Exit For
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sheets("Sayfa2").Cells(3, sut).Value

bu şekil yaparsam sadece A3'ü kopyalıyor.
ancak ben

Sheets("Sayfa2").Range(Cells(3, sut), Cells(10, sut).Value

bu şekil yapmaya çalıştım. beceremedim.
yardımcı olursanız çok sevinirim.
İyi çalışmalar.

 

[zafer]

Merhaba

Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")

sut = ActiveCell.Column ' aktif olan hücrenin kolon numarası
'veya
'sut = InputBox("sutun numarası") ' giriş kutusu ile 

For i = 3 To 10

s2.Cells(i, sut) = s1.Cells(i, 1)

Next

 

[Ergün Güler]

Selam,
Çok teşekkürler Sayın Zafer,

Sayenizde aşağıdaki kodu Sayfa1kod sayfasına uygulayarak problem çözüldü.

Sub AKTAR()
Dim sut As Integer
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
sut = ActiveCell.Column
If s1.Range("A1") = "" Then
MsgBox "Lütfen veri girişi yapınız !", vbExclamation
Exit Sub
End If
For sut = 1 To 10
For i = 3 To 10

If s1.Range("A1") = s2.Cells(1, sut) Then
s2.Cells(i, sut).Value = s1.Cells(i, 1).Value

End If
Next
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sadece

sut = ActiveCell.Column

kısmının mantığını pek anlayamadım.

 

[zafer]

Merhaba

o an bulunduğunuz hücrenin sutun numarasını değişkene aktarır.

sut : değişken
activecell : üzerinde bulunduğunuz hücre
column = sütun

 

[Ergün Güler]

Çok teşekkürler Sayın Zafer. Çok sağolun.