Sub DataAktar()
Dim s1 As Worksheet, son As Long
Set s1 = Sheets("VERİ")
son = s1.[B65536].End(3).Row + 1
s1.Range("A" & son).Value = son - 1
s1.Range("B" & son).Value = Range("B1").Value
şeklinde data aktar makrosu kullanıyorum
bu excelde diğer sayfaya aktarıyor. bu ilerleyen zamankarda cok yavaşlıyor.
data Access tamanına nasıl aktarrım
eş zamanlı olacak
Dim s1 As Worksheet, son As Long
Set s1 = Sheets("VERİ")
son = s1.[B65536].End(3).Row + 1
s1.Range("A" & son).Value = son - 1
s1.Range("B" & son).Value = Range("B1").Value
şeklinde data aktar makrosu kullanıyorum
bu excelde diğer sayfaya aktarıyor. bu ilerleyen zamankarda cok yavaşlıyor.
data Access tamanına nasıl aktarrım
eş zamanlı olacak