Új hozzászólás Aktív témák

• #27505 Delila_1 veterán scott_free #27501

  Új Válasz 2015-06-24 13:02:03 #27505

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz scott_free #27501 üzenetére

  A helyedben a combobox feltöltését a userform aktiválásához rendelném.

  Private Sub UserForm_Activate()
  Dim szám
  For Each szám In Sheets(1).Range("C1:C20")
  If Len(szám) = 10 Then
  ComboBox1.AddItem szám.Offset(0, -2).Value
  End If
  Next szám
  End Sub

  A len(szám)-nál hiba volt len(szám.value)-t írni, hiszen a len függvény a beolvasott adat hosszát adja, a value pedig az értékét.

Új hozzászólás Aktív témák