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

• #15504 Metathrone1 csendes tag Metathrone1 #15503

  Új Válasz 2012-11-12 20:42:50 #15504

  Ú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

  válasz Metathrone1 #15503 üzenetére

  megoldottam

• #15502 Delila_1 veterán Metathrone1 #15501

  Új Válasz 2012-11-12 19:27:06 #15502

  Ú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

  

  Delila_1

  veterán

  válasz Metathrone1 #15501 üzenetére

  Nincs mit.

• #15500 Delila_1 veterán Metathrone1 #15499

  Új Válasz 2012-11-12 19:23:16 #15500

  Ú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

  

  Delila_1

  veterán

  válasz Metathrone1 #15499 üzenetére

  Például így:

  Private Sub Workbook_Open()
  Range("GX60000") = InputBox("Írd be a neved", "Név")
  End Sub

• #15494 Delila_1 veterán Metathrone1 #15493

  Új Válasz 2012-11-12 19:01:29 #15494

  Ú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

  

  Delila_1

  veterán

  válasz Metathrone1 #15493 üzenetére

  Az inputboxba beírt nevet tedd be egy távoli cellába, pl. a GX60000-be.

  A másik makró

  Sub Insert_date()
  ActiveCell = Date
  ActiveCell.Offset(, 1) = range("GX60000")
  End Sub

  Ehhez a makróhoz rendelhetsz bill. kombinációt.
  Az elsőből nem kell meghívnod a másodikat.

  Private Sub Workbook_Open()
  Range("GX60000") = InputBox("Írd be a neved", "Név")
  End Sub

• #15492 Delila_1 veterán Metathrone1 #15491

  Új Válasz 2012-11-12 18:47:26 #15492

  Ú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

  

  Delila_1

  veterán

  válasz Metathrone1 #15491 üzenetére

  Át kell adnod a valami nevű változót a második makrónak. A vicc a dologban, hogy ha Workbook_Opennel indítod az első makrót, akkor az A1 cella lesz aktív hivatalból.

  Private Sub Workbook_Open()
  valami = InputBox("Írd be a neved", "Név")
  Insert_date valami
  End Sub

  Sub Insert_date(valami)
  ActiveCell = valami
  ActiveCell.Offset(, 1) = Date
  End Sub

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