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

• #20820 earth csendes tag

  Új Válasz 2014-03-07 09:34:37 #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 & "" & 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