Hirdetés

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

  • Carasc0

    őstag

    Sziasztok!

    Lenne egy 1 icurka-picurka problémám, illetve szükséges lenne egy roppant egyszerű script.

    1. A probléma!

    Korábban kaptam egy nagyon hasznos és tökéletes kódot:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$V$3" And Target > "" Then Range("D7") = Range("D7") + Target
    End Sub

    A gondom csak annyi vele, hogy azon a munkalapon, ahol ez a kód aktívan lefut, formázok tök idegen cellákat, néha bejön a "Type mismatch" Hiba 13-as ablak. Típushiba biztosan, csak nem tudom hogyan kellene javítani. :R

    2. A kérés!

    Adott egymás alatt 4 cella: A1 : D1 Ebbe a négy cellába generáljon cellánként 1 db számot az 1 és 10 tartományban, úgy hogy ugyanazt nem generálhatja! Tehát 2 db ugyanazon szám nem lehet. Lehet nevetséges de csak erre lenne szükségem. :R

    [ Szerkesztve ]

    Gondolkodj globálisan és tegyél lokálisan!

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