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

  • csferke

    senior tag

    Sziasztok!
    Az alábbi kóddal az E oszlop éppen kiválasztott cellájába szeretnék adatot felvenni DE CSAK NAGYBETŰ mehet a cellába.
    Az is megoldás lenne ha az egész E oszlopot le lehetne formázni NAGYBETŰS-re.

    Sub bevitel()
    Dim xpos, ypos, Prompt, Title, Default, MyValue
    Prompt = ""
    Title = "ADATBEVITEL"
    xpos = 5000
    ypos = 5800

    ActiveCell.Offset(0, 1).Select
    Default = ""
    Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
    MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
    ActiveCell = MyValue
    End Sub

    Mi a legegyszerűbb megoldás arra, hogy az E oszlop celláiba csak ezeket a betűket lehessen megadni H, RR, F, I, A, R, L, N, O ?

    Segítséget kérek.

    köszi

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