Ú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

• #32311 Delila_1 veterán lizakattila #32310

  Új Válasz 2016-08-12 15:59:15 #32311

  Ú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

  Akkor a feltöltés Ok, csak a levonás kell.

  Sheets("Sheet2").Cells(sor, 5) = Sheets("Sheet2").Cells(sor, 5) - reg5* 1

  Már ha a reg5 valóban az E oszlop megfelelője.

  Azért a feltöltésnél alkalmazhatnád, amit a sor kikereséséről írtam előbb. Ugyanannak a sornak az n-edik tagját viszed a textboxokba, ezért elég lenne 1 keresés.

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