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

• #5698 Delila_1 veterán Pulsar #5697

  Új Válasz 2009-11-23 08:17:28 #5698

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

  Nem egészen tiszta, mit akarsz 114-szer átrakni.
  Átírtam úgy a makrót, hogy a Data lapon gyűjti össze az adatokat az A2-től kezdve. Az A oszlopba beírja a munkalap nevét, mellé a B-be a darabszámot.
  A Data lap legyen a füzetben az első helyen.

  Nagy különbség! A lapokon a Q oszlopban szereplő x szöveg, míg a makróban lévő szám. Hogy ne zavarjon az azonos kinézet, az x változó nevét átírtam darab-ra, de csak azért, hogy ne zavarjon.

  Sub Xek()
  Dim sor, darab, lap, sor_data
  darab = 0
  sor_data = 2
  For lap = 2 To Worksheets.Count
  Sheets(lap).Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" _
  And Cells(sor, 17) = "x" Then darab = darab + 1
  Next
  Sheets("Data").Cells(sor_data, 1) = Sheets(lap).Name
  Sheets("Data").Cells(sor_data, 2) = darab
  darab = 0
  sor_data = sor_data + 1
  Next lap
  End Sub

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