Keresés

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

  • Declare

    őstag

    válasz Fferi50 #32636 üzenetére

    Tegnap egesz nap makroztam es nap vegere kicsit bezsibbadt az agyam :D ..jogos, amit irsz, de egyben asszem meg is valaszoltad a kerdesem :K

    Ez maga a kod (azaz F oszlopban megkeresi az összes "Position" erteket es törli. Ezen kivül van meg 3 db különbözö szöveg, amit ugyan igy keresni es törölni kell es erre gondoltam, hogy valahogy & jellel hozzaadni, mint feltetelt.... :B

    Dim FoundCell As Range
    Application.ScreenUpdating = False
    Set FoundCell = Range("F:F").Find(what:="Position")
    Do Until FoundCell Is Nothing
    FoundCell.ClearContents
    Set FoundCell = Range("F:F").FindNext
    Loop

    (amugy az alapjat egy nagyobb makronak pont az kepezi, amiben Te es Delila_1 segitettetek....nagyon jo segitseg, majd azert megmutatom, mit alkottam belöle, csak ugy erdekesseg keppen. Sok mindent megtanulgattam a netes leirasok segitsegevel + a makroitokat felhasznalva :R )

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