Merhabalar Kolay Gelsin,
Aşağıda belirtiğim şekilde bir kod kullanıyorum ancak kod örnekte 3 personel ile çalıştığımda çok yavaş çalışıyor hızlandırmak için bir öneriniz olursa sevinirim.
Kolay gelsin iyi Çalışmalar.
Aşağıda belirtiğim şekilde bir kod kullanıyorum ancak kod örnekte 3 personel ile çalıştığımda çok yavaş çalışıyor hızlandırmak için bir öneriniz olursa sevinirim.
Kolay gelsin iyi Çalışmalar.
Kod:
Private Sub CommandButton1_Click()
Dim k, i As Integer
Application.CutCopyMode = False
Application.ScreenUpdating = False
i = 12
Do Until Sheets("PuantajGiriş").Cells(i, 2) = ""
k = 5
Do Until Sheets("PuantajGiriş").Cells(11, k) = ""
Sheets("KontrolPaneli").Rows(2).Insert
'Tarihleri kopyala
Sheets("PuantajGiriş").Cells(11, k).Copy
Sheets("KontrolPaneli").Cells(2, 1).PasteSpecial xlPasteValues
Sheets("KontrolPaneli").Cells(2, 1).NumberFormat = "dd.mm.yyyy"
'Durumları Kopyala
Sheets("PuantajGiriş").Cells(i, k).Copy
Sheets("KontrolPaneli").Cells(2, 3).PasteSpecial xlPasteValues
'İsmi Kopyala
Sheets("PuantajGiriş").Cells(i, 3).Copy
Sheets("KontrolPaneli").Cells(2, 2).PasteSpecial xlPasteValues
k = k + 1
Loop
i = i + 1
Loop
MsgBox "Kayıtlar Kayıt Edilmiştir.Yeni Aya Geçebilirsiniz.", vbInformation, "Bilgilendirme"
ThisWorkbook.RefreshAll
Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub