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

• #37525 Fferi50 Topikgazda Kobe #37524

  Új Válasz 2018-03-14 13:43:57 #37525

  Ú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

  

  Fferi50

  Topikgazda

  válasz Kobe #37524 üzenetére

  Szia!

  A következőt javaslom: a listbox listáját átalakítjuk szöveggé és ebben keressük az adott nevet.

  Dim szuro as string ' ez természetesen csak egyszer kell, valahol máshol előtte is lehet.
szuro=Join(Application.Transpose(ListBox2.List), ";")
If szuro Like "*" & Range("B" & i) & "*" Or szuro Like "*" & Range("C" & i) & "*" Then
Rows(i).EntireRow.Delete Shift:=xlUp

  Üdv.

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