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

• #38248 csferke senior tag

  Új Válasz 2018-06-07 12:30:29 #38248

  Ú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!
  Egy kicsit "regény" formátumban fogalmaztam meg a kérdésemet. Remélem, hogy értelmezhető.
  Sub ÚjTétel()
Sheets("Eladás").Select
Range("G9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Default = ""
Prompt = "A kiadott árú kódja"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
'*******************************
' a kódot a Sheets("Áru") "A" oszlopában kell kell keresni a MyValue alapján
' IF kódot nem találta
' msgbox "Ezzel a kóddal "&MyValue&" nem találtam árút"
' exitsub
' endif
'*******************************
ActiveCell = MyValue
End Sub

  A csillagozott sorok közötti részre kellene megoldás a segítségetekkel.

  Köszi, üdv

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