- Katılım
- 12 Ocak 2009
- Mesajlar
- 838
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 07-02-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error Resume Next
Dim s1, s2 As Worksheet
Dim i, k As Long
Set s1 = Sheets("ITK_KARAR_DOSYASI")
Set s2 = Sheets("ITK_KARAR_TUTANAĞI")
i = WorksheetFunction.Max(s1.[A:A]) + 5
If i > 5 Then s1.Range("A6:M" & i).ClearContents
For n = 1 To Val(ListView1.ColumnHeaders.Count)
Sheets("ITK_KARAR_DOSYASI").Cells(1, n).Value = Sheets("ITK_KARAR_DOSYASI").Cells(1, n).Value
Next
sat1 = Worksheets("ITK_KARAR_DOSYASI").[b65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count
For i = 2 To ListView1.ColumnHeaders.Count
Sheets("ITK_KARAR_DOSYASI").Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Next i
sat1 = sat1 + 1
Next r
For i = 1 To s1.Cells(Rows.Count, "B").End(3).Row - 5
s1.Range("A" & i + 5) = i
Next
Application.ScreenUpdating = True
End Sub