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

• #10176 Delila_1 veterán Oly #10175

  Új Válasz 2011-04-27 19:25:49 #10176

  Ú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 Oly #10175 üzenetére

  Látom, értékeket illesztettél be a table lapra. Ha ez nem fontos, fel lehet gyorsítani azzal, hogy kihagyjuk a Select-eket.

  Sub Masol()
  Dim sor%, sor_1%
  Sheets("make").Select
  sor_1% = 1
  For sor% = 1 To 111
  If Cells(sor%, 1) > "" Then
  Sheets("table").Cells(sor_1%, 1).EntireRow.Insert
  Range("A" & sor% & ":I" & sor%).Copy Sheets("table").Cells(sor_1%, 1)
  sor_1% = sor_1% + 1
  End If
  Next
  End Sub

  Ha mégis az értékek beillesztése kell, holnap megírom.

  Szerk.: ez az A1-től másol, az A11-től való másolásnál a For-Next ciklust 11-től kell indítani.
  A makródban nem látom a sorok beszúrását (EntireRow.Insert).

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