Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #37539 logitechh csendes tag tgumis #37538
    Új Válasz #37539
    Ú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

    logitechh

    csendes tag

    válasz tgumis #37538 üzenetére

    Neked erre van szükséged
    Nem olyan stílusos mint Delila_1 megoldása de funkciójában ez tökéletesen működik

    Sub szur_masol_beilleszt_torol()
    Sheets("bevitel").Unprotect Password:="pw"
    Sheets("összesítés").Unprotect Password:="pw"
    Sheets("összesítés").Select
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter
    Sheets("bevitel").Select
    Sheets("bevitel").Range("D2").Activate
    Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK", Operator:=xlAnd
    usor = Range("D2").End(xlDown).Row
    Range("D2:T" & usor).Select
    Selection.Copy
    Sheets("összesítés").Select
    Dim Asor As Long
    Dim Bsor As Long
    Dim i As Integer
    Asor = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("B" & Asor).PasteSpecial xlPasteValues
    Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
    Range("S2:V2").Copy Destination:=Range("S" & Asor & ":S" & Bsor - 1)
    For i = Asor To Bsor - 1
    Range("A" & i) = Range("A" & i - 1) + 1
    Next i
    With Range("A1").CurrentRegion
    .BorderAround LineStyle:=xlContinuous, Weight:=xlThin
    .Borders(xlInsideVertical).Weight = xlThin
    .Borders(xlInsideHorizontal).Weight = xlThin
    End With
    Sheets("összesítés").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True,
    AllowFormattingColumns:=True
    Sheets("bevitel").Select
    Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17
    Range("D2:E200,G2:G200,H2:I200").Select
    Range("H2").Activate
    Range("D2:E200,G2:G200,H2:I200,B1:B6").Select
    Range("B1").Activate
    Selection.ClearContents
    Selection.ClearContents
    Sheets("bevitel").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True,
    AllowFormattingColumns:=True
    End Sub

    A message bax-al történő makró vezérlése viszont engem is érdekel. Szóval ha igen lefusson a makró ha nem akkor meg nem. Arra tud valaki olyan példát amiből ki lehet ezt venni és más makrókhoz felhasználni

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