2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    IT café

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #32307 Delila_1 Topikgazda lizakattila #32306
    Új Válasz #32307
    Ú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

    Topikgazda

    válasz lizakattila #32306 üzenetére

    Az Item-nek már eleve a textbox helyett comboboxot érdemes tenni, ahol a RowSource tulajdonságba beírod a tartományt, ahonnan az értékeket veszi, pl. Sheet2!A1:A200.

    Elég egyszer kikeresni a sort, aminek az értékeihez hozzá akarod adni a UserFormon megadott adatokat.

    Private Sub cmdClose_Click()
    Dim sor

    'Ellenőrzés
    If reg1 = "" Or reg2 = "" Or reg3 = "" Or reg4 = "" Then
    MsgBox "Hiányos kitöltés", vbExclamation
    Exit Sub
    End If

    With Sheets("Sheet2")
    sor = Application.Match(reg1, .Range("A:A"), 0)
    .Cells(sor, 2) = .Cells(sor, 2) + reg2 * 1
    .Cells(sor, 3) = .Cells(sor, 3) + reg3 * 1
    .Cells(sor, 4) = .Cells(sor, 4) + reg4 * 1
    End With
    End Sub

    A szorzás azért kell, hogy a textboxban szereplő szöveget (szöveg, azért text) számmá alakítsuk.

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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