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

• #32313 Delila_1 veterán lizakattila #32310

  Új Válasz 2016-08-12 16:21:21 #32313

  Ú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 lizakattila #32310 üzenetére

  A beolvasás is lehet egyszerűbb, a reg1 ComboBox Change eseményéhez rendelve.

  Private Sub reg1_Change()
Dim sor, oszlop As Integer

With Sheets("Sheet2")
sor = Application.Match(reg1, .Columns(1), 0)
For oszlop = 2 To 11
Controls("reg" & oszlop) = .Cells(sor, oszlop)
Next
End With
End Sub

  A gomb esetében marad az az 1 sor, amit írtam (+ elé a sor kikeresése a MATCH függvénnyel). Esetleg még a végére a form bezárása: Unload Me

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