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

• #8736 Delila_1 veterán mcll #8735

  Új Válasz 2010-11-28 19:34:52 #8736

  Ú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 mcll #8735 üzenetére

  Miért akarod makróval formázni a result.xls-t? Csináld meg gyalog, sokkal gyorsabb.

  Ha fejléc is lesz benne, akkor a sor_r=1 helyett sor_r=2 kell, vagy ha a címek 2 sort foglalnak le, sor_r=3. A 3 sor helyett beírt 1 sor néhány változót is fölöslegessé tett, inkább megint beteszem a lecsökkent forráskódot újra.

  Sub Lel()
  Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
  Dim nev
  
  Windows("ex2.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  sor_r = 2
  
  For sor = 1 To usor
  nev = Cells(sor, 2)
  Windows("ex1.xls").Activate
  Sheets(1).Select
  
  With Columns("B:B")
  Set talal = .Find(nev, LookIn:=xlValues)
  If talal Is Nothing Then
  Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)
  sor_r = sor_r + 1
  End If
  End With
  
  Windows("ex2.xls").Activate
  Next
  End Sub

  Ha az ex1.xls és az ex2.xls is tartalmaz címsort, a For sor=1 To usor is For sor=2 To usor-ra változik.

  Az elmúlt héten (vagy előtte) többen több helyet ajánlottunk a VB megismeréséhez, lapozz kicsit vissza.

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