mükerrer kayıtlar

[SOYOLA]

Merhaba

Bir excel sayfasında ürün kodu 1 ile ve 3 ile başlayan kodlar var.
Amacım 1 ile başlıyanları bir sayfaya 3 ile başlayanları diğer bir sayfaya aktarmak
Arama yaptım ama bulamdam
saygılarımla

 

[hamitcan]

Örnek dosya ekleyin.

 

[SOYOLA]

Mükerrek kayıt

kUSURA BAKMAYIN ŞİMDİ EKLİYORUM

 

[hamitcan]

Bu şekilde deneyin.

Sub Aktar()
    Set cn = CreateObject("ADODB.Connection")
    cn.Open _
        "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _
            ThisWorkbook.FullName
    
    Set rs = cn.Execute("SELECT [FİRMA KODU],[FİRMA ADI],[BAKİYE], [durum] FROM [Sayfa1$] where left([FİRMA KODU],3) = 320 GROUP BY [FİRMA KODU],[FİRMA ADI],[BAKİYE], [durum]")
    Sheets("320").Range("B3").CopyFromRecordset rs
    Set rs = cn.Execute("SELECT [FİRMA KODU],[FİRMA ADI],[BAKİYE], [durum] FROM [Sayfa1$] where left([FİRMA KODU],3) = 120 GROUP BY [FİRMA KODU],[FİRMA ADI],[BAKİYE], [durum]")
    Sheets("120").Range("B3").CopyFromRecordset rs
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

 

[SOYOLA]

makrosuz yapmak mümkünmü şirkette makro kullanamıyoruz

 

[Mesafe]

makrosuz yapmak mümkünmü şirkette makro kullanamıyoruz

Bu uygulamayı bende çalıştığım şirkette bazı bilgisayarlarda yapmak istiyorum. Exceldeki makro kullanımı nasıl engellenebiliyor ??

 

[hamitcan]

makrosuz yapmak mümkünmü şirkette makro kullanamıyoruz

Olabilir diye düşünüyorum, forumda benzer örnekler mevcut.