- Katılım
- 26 Nisan 2023
- Mesajlar
- 1
- Excel Vers. ve Dili
- Office 365
Merhaba, herkese kolay gelsin. Bir excel üzerinden çalışıyordum ve bir sütunda tk sayısını saymasını istiyorum fakat 1004 hatası ile baş başa kalıyorum. Konu ile alâkalı bilginiz mevcut ise yardım ederseniz sevinirim. İyi çalışmalar.
Kod:
Sub tip_transkript_kontrol()
Dim adisoyadi As String
adisoyadi = Cells(5, "I")
Dim birdonem As Integer
Dim ikidonem As Integer
Dim ucdonem As Integer
Dim dortdonem As Integer
Dim besdonem As Integer
Dim altidonem As Integer
Dim tksayisi As Integer
Dim tknottoplam As Integer
Dim sayac As Integer
tksayisi = 0
Dim i As Integer
MsgBox (adisoyadi & " Adlı kişinin transkripti kontrol ediliyor.")
'For i = 0 To 400 'Dönemleri kontrol edeceğiz
If Cells(i, "A") = "Dönem1" And birdonem <> 1 Then
Do While Veri.FormatConditions(1).Interior.Color = 15 'arka planı gri olanlara bakacak
sayac = i + 1
Do While Cells(sayac, "U" = "ANO / AGNO") ' TK Sayılarını bulacak
If (Cells(sayac, "U" = "TK")) Then
tksayisi = tksayisi + 1
End If
MsgBox (tksayisi)
Loop
Loop
End If
'Next i
End Sub