Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #18909 rtom senior tag
    Új Válasz #18909
    Ú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

    rtom

    senior tag

    Szevasztok!

    Egy makróm nem akar működni, de nem értem miért áll meg a debug a Range("B21:B" & usor). Select sornál.

    A kód:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim usor As Long
    Dim lapnev As String

    If Range("A2") <> Empty And Range("A4") = "OK" Then
    Range("D2").Select
    Selection.Copy
    lapnev = Range("F2")
    Sheets(lapnev).Select
    usor = ThisWorkbook.Sheets(lapnev).Range("B21:B" & Rows.Count).End(xlDown).Row + 1

    Range("B21:B" & usor).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("beolvas").Select
    Range("A2").Select
    Selection.Clear
    End If

    End Sub

    Szerk.: a kiemelés nem látszik programkódban...

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