Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • 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

  • #52877 Fferi50 Topikgazda gycs02 #52875
    Új Válasz #52877
    Ú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

    Fferi50

    Topikgazda

    válasz gycs02 #52875 üzenetére

    Szia!
    Próbáld ki esetleg ezeket:
    Sub Lathatoba_xV1()
        Dim elso As Integer, utolso As Integer, srng As Range, cl As Range
        elso = 13 ' Ide azt a számot írd, ahol a szűrés kezdődik
        utolso = Range("A" & Rows.Count).End(xlUp).Row
        Set srng = Range("A" & elso & ":A" & utolso) ' ha nem összefüggő a szűrt terület, cellánként kell végigmenni sajnos.
        For Each cl In srng.Columns(1).SpecialCells(xlCellTypeVisible).Cells
            cl.Value = "x"
        Next
    End Sub
    Sub masolo_V1()
        Dim elso As Integer, utolso As Integer, srng As Range
        elso = 13
        utolso = Range("A" & Rows.Count).End(xlUp).Row
        Set srng = Range("A13:A" & utolso)
        srng.SpecialCells(xlCellTypeVisible).Copy
        With Sheets("Munka2").Range("A1")
             .PasteSpecial Paste:=xlPasteColumnWidths 'bemásoljuk az oszlopszélességet0
             .PasteSpecial Paste:=xlPasteValuesAndNumberFormats 'majd az értéket és a számformátumot
        End With
        Application.CutCopyMode = False
    End Sub
    Üdv.

  • #52876 Delila_1 veterán gycs02 #52875
    Új Válasz #52876
    Ú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 gycs02 #52875 üzenetére

    Sub Lathatoba_x()
        Dim elso As Integer, utolso As Integer
        elso = Range("A13:A1000").SpecialCells(xlCellTypeVisible).Row
        utolso = Range("A" & Rows.Count).End(xlUp).Row
        If elso = utolso Then
            Range("A" & elso) = "x"
        Else
            Range("A" & elso & ":A" & utolso).SpecialCells(xlCellTypeVisible) = "x"
        End If
    End Sub

    Sub masol()
        Dim elso As Integer, utolso As Integer
        elso = Range("A13:A1000").SpecialCells(xlCellTypeVisible).Row
        utolso = Range("A" & Rows.Count).End(xlUp).Row
        If elso = utolso Then
            Range("A" & elso).Copy Sheets("Munka2").Range("A1")
        Else
            Range("A13:A1000").SpecialCells(xlCellTypeVisible).Copy Sheets("Munka2").Range("A1")
        End If
    End Sub

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