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

• #8741 Delila_1 veterán mcll #8738

  Új Válasz 2010-11-29 08:46:17 #8741

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

  Szívesen.
  Makrót az ismétlődő feladatokhoz érdemes írni, az egyszer előfordulókhoz, mint egy egyszeri formázás, nem, legfeljebb gyakorlás céljából.

• #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.

• #8734 Delila_1 veterán mcll #8732

  Új Válasz 2010-11-28 18:27:17 #8734

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

  Az If talal Is Nothing Then után lévő 3 sor helyett ezt írd be:

  Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)

  Remélem, ez 1 sorban látszik, a Copy után egy szóközzel következik a Workbooks.

• #8733 Delila_1 veterán mcll #8732

  Új Válasz 2010-11-28 18:21:27 #8733

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

  

• #8731 Delila_1 veterán mcll #8730

  Új Válasz 2010-11-28 18:17:24 #8731

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

  Az első oszlopot sorszámnak néztem.

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

• #8729 Delila_1 veterán mcll #8728

  Új Válasz 2010-11-28 18:11:00 #8729

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

  KÉT oszlopot mondtál, mindjárt átalakítom.

• #8727 Delila_1 veterán mcll #8726

  Új Válasz 2010-11-28 18:03:53 #8727

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

  Ennek örülök, szívesen.

• #8725 Delila_1 veterán mcll #8724

  Új Válasz 2010-11-28 17:57:19 #8725

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

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

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