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

• #15491 Metathrone1 csendes tag

  Új Válasz 2012-11-12 18:39:56 #15491

  Ú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

  

  Metathrone1

  csendes tag

  Sziasztok

  Megakadtam, kérlek segítsetek.
  Azt szeretném elérni, hogy egy új üres dokumentum nyitásakor egy inbox bekérjen egy szöveget, amit egy makró minden futtatásnál használ. A makró annyi lenne, hogy aktív cellába bedobja az aktuális dátumot és egy cellával jobbra tőle beírja a nyitáskor beírt szöveget.
  Most ott tartok, hogy az inbox megvan nyitáskor:
  Thisworkbook-ban van ez a kód:
  Dim valami As String
  valami = InputBox("Írd be a neved!", "Név")
  A moduloknál pedig ez:
  Sub Insert_date()
  Selection.Value = Date
  Cells(ActiveWindow.RangeSelection.Row, ActiveWindow.RangeSelection.Column + 1).Value = valami
  End Sub

  Miért nem írja be a dátum mellé az elején bekért nevet?

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