DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Fare ile verileri seçtikten sonra (2 sütun, istediğiniz kadar satır...), aşağıdaki Test isimli makroyu çalıştırın.Aynı çalışmayı textboxtan değilde sayfa üzerinden seçili alanı (örn. 5 satır, 2 sütun) aktarmak istersek nasıl bir değişiklik gereklidir...
Sub Test()
Dim Conn As Object
Dim MyArr()
Set Conn = CreateObject("ADODB.Connection")
MyArr = Range(Selection.Address)
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\veri.xls" & ";Extended Properties=Excel 8.0;"
For i = 1 To Selection.Rows.Count
Conn.Execute "Insert into [Sheet1$] (Ad, Soyad)" & " values ('" & MyArr(i, 1) & "','" & MyArr(i, 2) & "')"
Next
Conn.Close
End Sub