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

• #45973 p5quser tag Delila_1 #45972

  Új Válasz 2021-02-07 15:07:48 #45973

  Ú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

  

  p5quser

  tag

  válasz Delila_1 #45972 üzenetére

  Szia!
  Köszi a választ! Elsiklottam dolgok felett.
  A ComboBox_Change() így néz ki;
  Private Sub ComboBox1_Change()
    Dim i As Long
    For i = 1 To Application.WorksheetFunction.CountA(Sheets(1).Range("B:B"))
        If LCase(Left(Sheets(1).Cells(i, 2), 1)) = Me.ComboBox1 And Me.ComboBox1 <> vbNullString Then
            Me.ComboBox1.AddItem Sheets(1).Cells(i, 2)
        End If
    Next i
    Me.ComboBox1.DropDown
End Sub
  Ő egy "auto suggestion" combobox, mindig a "B" oszlopból húzza be az ajánlott nevet. Ez egy 3xxx soros lista, amit a duplázások elkerülése végett ír ki. De - gondolom - minden módosításnál újraszámolja a cellákat. Lassabb gépeken (hdd) körülményes. Ha a userform incializálásakor megszámoltatnám vele, talán gördülékenyebb lenne. Ha a
  Application.WorksheetFunction.CountA(Sheets(1).Range("B:B")) -t
  deklarálnám és utána már csak behúznám, az segítene?

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