Hücre aralığına değişken ekleme

[ozturk38]

merhaba arkadaşlar ; A9:H9 hücre aralığını seçip bu seçime aşağıdaki koddaki Alan değişkenini nasıl eklerim yardımcı olabilirseniz çok sevinirim.

Private Sub CommandButton1_Click()


Set Bul = Range("A:A").Find(Date, Cells(Rows.Count, 1), , xlWhole)
Set bas = Range("a9:h9")
If Not Bul Is Nothing Then
Say = WorksheetFunction.CountIf(Range("A:A"), Date)
Alan = "A" & Bul.Row & ":H" & Bul.Row + Say - 1
Range(Alan).Select

End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Range(Alan).Select

satırını silip yerine aşağıdaki satırı yazın

Bas.Value = Range(Alan).Value

 

[ozturk38]

Hocam herhangi bir seçim yapmıyoruz ama aynı zamanda A9:H9 hücre aralığı ile alan değişkeninde ki aralığı birlikte seçmem gerekiyor.

 

[Muzaffer Ali]

Şu kod ile seçim yapabilirsiniz.

Range(Alan & ",A9:H9").Select