veri aktarma

[bedirbey]

merhaba
a6 ile f6 arasındaki hücrelerdeki verileri (asıl kayıt kalması koşulu ile) sheets2 ye aynı hücrelere (a6 - f6 ) nasıl kopyalayabilirim. forumdan bulduğum bi kopyalama makrosunun uyguladım fakat asıl verinin olduğu sayfada veri kalmıyor istediğim aynı verilerin sadece sheets2 ye kopyalanması. buton kullanmadan hücre değerini yazmanın bir yolu varmıdır.

 

[Ayhan Ercan]

Merhaba

Sheets("Sheets1").Range("A6:F6").Copy Sheets("Sheets2").Range("A6")

 

[bedirbey]

hocam çok teşekür ederim eline sağlık

peki hocam bu çalışma kitabında çok fazla formul var buda çalışmasını ağırlaştırıyor. formulleri çalışma sayfasını kasmadan yazmanın bir yolu varmı hocam. teşekkürler

 

[InfoTech]

Peki Seçimli Kopyalama Nasıl Olabilir Mesela A C I Sutunundakileri Sıralamayı Bozmadan Verileri Sheet2'deki A B C Sütunlarına Nasıl kopyalabilirim... Bunun VBA Kodlaması ne Olabilir Acaba?

 

[Haluk]

Peki Seçimli Kopyalama Nasıl Olabilir Mesela A C I Sutunundakileri Sıralamayı Bozmadan Verileri Sheet2'deki A B C Sütunlarına Nasıl kopyalabilirim... Bunun VBA Kodlaması ne Olabilir Acaba?

Ekli dosyada DAO ile bir çözüm veriyorum...

.

 

[InfoTech]

Ekli dosyada DAO ile bir çözüm veriyorum...

.

Teşekkürler Haluk Bey Çok Sağolun..

 

[InfoTech]

Peki Ben Şimdi Ana Sayfa Diye Bir Bölüm Yaptım ve CommandButton1'i Oraya Koydum... Ancak Ben O butonun Aktif Olmasını Nasıl Sağlıcam Üzerine Gelip Click yapmak İstediğimde HAlen Edit Seçeneği Çıkıyor...

Sub Test()
    Dim DB As Object
    Dim RS As Object
    Dim dbRow As Long
    Dim KapDosya As String
    
    KapDosya = ThisWorkbook.FullName
    
    On Error Resume Next
        Set daoDBEngine = CreateObject("DAO.DBEngine")
        Set daoDBEngine = CreateObject("DAO.DBEngine.36")
    On Error GoTo 0
    
    Set DB = daoDBEngine.OpenDatabase(KapDosya, False, True, "Excel 8.0;")
    [COLOR="Red"]Set RS = DB.OpenRecordset("select Sipariş No, FROM [Genel Rapor$]")[/COLOR]
    
    With RS
        .MoveLast
         dbRow = .RecordCount
        .MoveFirst
    End With
    
    Sheets("Filtreli Rapor").Range("A2").CopyFromRecordset RS
    
    MsgBox "Filtreleme Tamam...."
    RS.Close
    DB.Close
    Set RS = Nothing
    Set DB = Nothing
    Set daoDBEngine = Nothing
End Sub

Kendime Göre Uyarladım Ancak Arada Boşluk Olduğu İçin mi "Run Time Error '3075' Hatası Alıyorum...

 

[Haluk]

Bu şekilde deneyin....

Set RS = DB.OpenRecordset("select `Sipariş No` FROM [Genel Rapor$]")

.

 

[InfoTech]

Bu şekilde deneyin....

Set RS = DB.OpenRecordset("select `Sipariş No` FROM [Genel Rapor$]")

.

Düşündüğüm Gibiymiş Haluk Bey Umarım Sıkıntı Vermiyorumdur
Bu Olay Rapor Alan Çalışanları Baya Bir Rahatlatacak... Ondan Sizi Rahatsız Ediyorum...