- Katılım
- 25 Aralık 2007
- Mesajlar
- 335
- Excel Vers. ve Dili
- exel 2000 türkçe
herkese selamlar
Private Sub UserForm_Initialize()
Dim X As Long
For X = 2 To Range("K65536").End(3).Row
If Cells(X, "R") <> Empty Then
If Sheets("RAPOR").Range("A1") = Empty Then
Satır = 1
Else
Satır = Sheets("RAPOR").Range("A65536").End(3).Row + 1
End If
Range("K" & X & ":S" & X).Copy Sheets("RAPOR").Cells(Satır, "A")
Range("K" & X & ":S" & X).Clear
End If
Next
............ kodu ilesıralama K ile S sutunları arasındaki bilgileri rapor sayfasına aktarıyorum.
Ancak aylık ortalama 35.000 işlem yapılacagından sayfa buna yetmiyor hangi database i nasıl kullanmam gerekli detaylı bi şekilde bana yardımcı olursanız müteşekkir kalırım.
Private Sub UserForm_Initialize()
Dim X As Long
For X = 2 To Range("K65536").End(3).Row
If Cells(X, "R") <> Empty Then
If Sheets("RAPOR").Range("A1") = Empty Then
Satır = 1
Else
Satır = Sheets("RAPOR").Range("A65536").End(3).Row + 1
End If
Range("K" & X & ":S" & X).Copy Sheets("RAPOR").Cells(Satır, "A")
Range("K" & X & ":S" & X).Clear
End If
Next
............ kodu ilesıralama K ile S sutunları arasındaki bilgileri rapor sayfasına aktarıyorum.
Ancak aylık ortalama 35.000 işlem yapılacagından sayfa buna yetmiyor hangi database i nasıl kullanmam gerekli detaylı bi şekilde bana yardımcı olursanız müteşekkir kalırım.
