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

  • #20820 earth csendes tag
    Új Válasz #20820
    Ú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

    earth

    csendes tag

    Sziasztok.
    Azt tudja valaki hogyan változtassam meg ezt a program részletet hogy mindent (formátum, aláhúzások stb.) másoljon át az egyik lapról a másikra csak a képleteket ne. Gondolom a .PasteSpecial xlPasteValues ezt kellene megváltoztatni de nem tudom milyen parancsra.

    Program részlet:

    Private Sub Végrehajtás_Click()
    Dim row_main As Integer, row_sec As Integer
    Sheets("proba").Range("A10:Q1000").ClearContents
    Sheets("számítás").Select
    row_sec = 10

    For row_main = 10 To 200
    If Cells(row_main, 12).Value >= 1 Then
    Range("A" & row_main & ":R" & row_main).Copy
    Worksheets("proba").Range("A" & row_sec).PasteSpecial xlPasteValues
    row_sec = row_sec + 1
    End If
    Next row_main

    Segítséget előre is köszönöm.

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