hücre aralığını başka sayfaya kopyalama

[YUSUF44]

Aşağıdaki kod istediğiniz işlemi yapıyor görünüyor:

Sub donanim()
    Set s1 = Sheets("BİGM DİZÜSTÜ ENVANTER")
    Set s2 = Sheets("İCMAL")
    s2.[B4:D9].ClearContents
    son = WorksheetFunction.Max(20, s1.Cells(Rows.Count, "E").End(3).Row)

    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

    sorgu = "select distinct [DONANIM TİPİ] from[" & s1.Name & "$] where [DONANIM TİPİ] is not null"
    Set rs = con.Execute(sorgu)
    s2.[B4].CopyFromRecordset rs
End Sub

 

[katip06]

Aşağıdaki kod istediğiniz işlemi yapıyor görünüyor:

Sub donanim()
    Set s1 = Sheets("BİGM DİZÜSTÜ ENVANTER")
    Set s2 = Sheets("İCMAL")
    s2.[B4:D9].ClearContents
    son = WorksheetFunction.Max(20, s1.Cells(Rows.Count, "E").End(3).Row)

    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

    sorgu = "select distinct [DONANIM TİPİ] from[" & s1.Name & "$] where [DONANIM TİPİ] is not null"
    Set rs = con.Execute(sorgu)
    s2.[B4].CopyFromRecordset rs
End Sub

Çok sağol hocam Allah razı olsun, teşekkür ederim.

 

[Prgkolik]

Merhabalar Sn. qasha;
Sayfa2 A3 hücresine, Sayfa1 A1 hücre içeriğini;
Sayfa2 A5 hücresine, Sayfa1 A2 hücre içeriğini örnek olarak şu şekilde alabilirsiniz.

Sayfa2.Range("A3").Value = Sayfa1.Range("A1").Value
Sayfa2.Range("A5").Value = Sayfa1.Range("A2").Value

peki aralık olarak seçmek istiyorsam ne yapmak gerekir ? yani A1:A1000 Arasını sayfa1 den sayfa 2 ye getirmek istiyorum bunun yolu nedir ?

 

[AdemCan]

Sn @Prgkolik

Sabit aralıkları

Sayfa2.Range("A1:A1000").Value = Sayfa1.Range("A1:A1000").Value

şeklinde kopyalayabilirsiniz.

 

[scooby]

Çok işime yaradı teşekkürler