balanar
Altın Üye
- Katılım
- 22 Şubat 2021
- Mesajlar
- 347
- Excel Vers. ve Dili
- Excel 2007
- Altın Üyelik Bitiş Tarihi
- 09-03-2027
Kod:
Private Sub Worksheet_Activate()
Sheets("Rapor").ComboBox1.Clear
Set s = Sheets("Eğitimler")
For i = 1 To s.[A65536].End(3).Row
If WorksheetFunction.CountIf(s.Range("A1:A" & i), s.Cells(i, "A")) = 1 Then
ComboBox1.AddItem s.Cells(i, "A").Value
End If
Next i
End Sub
Son düzenleme: