Dim db As Database Dim rs As Recordset Dim r As Long Set db = OpenDatabase("C:\Documents and Settings\ogrenci\Desktop\yunus\deneme.mdb") Set rs = db.OpenRecordset("myTable", dbOpenTable) r = 10 Do While Len(Range("C" & r).Formula) > 0 With rs .AddNew .Fields("Sira") = Range("B" & r).Value .Fields("Sira_No") = Range("B" & r).Value & " Hat1" .Fields("Stok_No") = Range("C" & r).Value .Fields("Isletme_Kodu") = Range("D" & r).Value .Fields("Marka_Kodu") = Range("E" & r).Value .Fields("Model") = Range("F" & r).Value .Fields("Plan") = Range("M" & r).Value .Fields("Fiili") = Range("N" & r).Value .Fields("1") = Range("O" & r).Value .Fields("2") = Range("P" & r).Value .Fields("3") = Range("Q" & r).Value .Fields("4") = Range("R" & r).Value .Fields("5") = Range("S" & r).Value .Fields("6") = Range("T" & r).Value .Fields("7") = Range("U" & r).Value .Fields("8") = Range("V" & r).Value .Fields("9") = Range("W" & r).Value .Fields("10") = Range("X" & r).Value .Fields("11") = Range("Y" & r).Value .Fields("12") = Range("Z" & r).Value .Fields("13") = Range("AA" & r).Value .Fields("14") = Range("AB" & r).Value .Fields("15") = Range("AC" & r).Value .Fields("16") = Range("AD" & r).Value .Fields("17") = Range("AE" & r).Value .Fields("18") = Range("AF" & r).Value .Fields("19") = Range("AG" & r).Value .Fields("20") = Range("AH" & r).Value .Fields("21") = Range("AI" & r).Value .Fields("22") = Range("AJ" & r).Value .Fields("23") = Range("AK" & r).Value .Fields("24") = Range("AL" & r).Value .Fields("25") = Range("AM" & r).Value .Fields("26") = Range("AN" & r).Value .Fields("27") = Range("AO" & r).Value .Fields("28") = Range("AP" & r).Value .Fields("29") = Range("AQ" & r).Value .Fields("30") = Range("AR" & r).Value .Fields("31") = Range("AS" & r).Value .Update End With r = r + 1 Loop rs.Close Set rs = Nothing db.Close Set db = Nothing
