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

• #13251 Delila_1 veterán kokopeti #13247

  Új Válasz 2012-03-22 18:12:15 #13251

  Ú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 kokopeti #13247 üzenetére

  Fire megadta a választ.

  Egyszerűsítheted az adatok felírását az Adatok lapra, valamint a TextBoxok tartalmának a lenullázását, ha a beszédes nevek – vevo_nev, vevo_cim – helyett kivételesen a nehezebben követhető TB1, TB2 ... TB11 nevet adsz.

  Private Sub Bevisz_Click()
  Dim WSA As Worksheet, hova As Long, oszlop%, nev As String
  
  Set WSA = Sheets("Adatok")
  hova = WSA.Range("A65536").End(xlUp).Row + 1
  For oszlop% = 1 To 11
  nev = "TB" & oszlop%
  WSA.Cells(hova, oszlop) = Controls(nev).Text
  Controls(nev).Text = ""
  Next
  End Sub

  Megjegyzésben beírhatod a makróba, melyik TextBox milyen értéket tartalmaz.

• #13249 Fire/SOUL/CD félisten kokopeti #13247

  Új Válasz 2012-03-22 17:52:59 #13249

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz kokopeti #13247 üzenetére

  Value vagy index-el, attól függően, hogy milyen objektumot használsz TabStrip avagy MultiPage. ("többoldalas Userform" nincs...)

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