iyi akşamlar
1 spreadsheet nesnesinde kaç adet satır ve sütun var
2 yaptığım çalışmada userform_initialize olayında form üzerindeki label lere spread sheetten kız erkek sayısını çekmeye çalışıyorum fakat yapamadım.
not:çalışma kitabında sayaçlar doğru çalışıyor.fakat ben sayaçları spreadsheet in e sütununda çalıştırmak istiyorum
For i = 1 To Me.Spreadsheet1.Sheets(1).[a100].End(3).Row
If Me.Spreadsheet1.Sheets(1).Cells(i, "e") = "kız" Then
say1 = say1 + 1
Me.Label1.Caption = say1
ElseIf Me.Spreadsheet1.Sheets(1).Cells(i, "e") = "erkek" Then
say2 = say2 + 1
Me.Label2.Caption = say2
End If
Next
1 spreadsheet nesnesinde kaç adet satır ve sütun var
2 yaptığım çalışmada userform_initialize olayında form üzerindeki label lere spread sheetten kız erkek sayısını çekmeye çalışıyorum fakat yapamadım.
not:çalışma kitabında sayaçlar doğru çalışıyor.fakat ben sayaçları spreadsheet in e sütununda çalıştırmak istiyorum
For i = 1 To Me.Spreadsheet1.Sheets(1).[a100].End(3).Row
If Me.Spreadsheet1.Sheets(1).Cells(i, "e") = "kız" Then
say1 = say1 + 1
Me.Label1.Caption = say1
ElseIf Me.Spreadsheet1.Sheets(1).Cells(i, "e") = "erkek" Then
say2 = say2 + 1
Me.Label2.Caption = say2
End If
Next
