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

• #38207 csferke senior tag

  Új Válasz 2018-06-04 12:26:57 #38207

  Ú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

  

  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