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

• Delila_1 veterán

  #2677

  #2676 YAN0U

  2016-02-29 07:29:24

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2676 YAN0U

  #2676 YAN0U

  Sziasztok,

  Segítségre lenne szükségem. Hogyan tudom elérni, hogy minden egyes indításkor az E2 legyen a kezdő cella. ha ezt használom mindig az E2-ben marad és nem lép egyet lefele.

  xlWorkSheet.Range("E2").Select()

  Választ köszönöm

  If e.KeyCode = Keys.Enter And RadioButton1.Checked = True Then
  e.SuppressKeyPress = True

  xlWorkBook = xlApp.Workbooks.Open("C:\Desktop\hwp.xlsx")
  xlWorkSheet = xlWorkBook.Worksheets("munka1")

  With xlWorkSheet
  xlApp.ActiveCell.Value = TextBox1.Text
  xlApp.ActiveCell.Offset(1, 0).Select()

  End With
  xlWorkBook.Save()
  xlWorkBook.Close()
  TextBox1.Clear()

  End If

  Ennél jóval egyszerűbben elérheted. A megnyitandó füzeted ThisWorkbook lapjához beírod ezt a makrót:

  Private Sub Workbook_Open()
  Sheets("Munka1").Select
  Range("E2").Select
  End Sub

  Ha egy füzet ThisWorkbook lapján Workbook_Open eseményvezérelt makró van, akkor a nyitásakor az végrehajtódik.

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