EXCEL - VBA - színkereső - kigyűjtő

Programozás - kezdő

░░░░░░░░░░░░░
░ MEGOLDVA! ░
░ KÖSZÖNÖM! ░
░░░░░░░░░░░░░

Sziasztok!

Van két file:
adatok.xls
scriptek.xlsm

Az adatok.xls tartalma sok munkafüzetlapból áll.
Minden munkafüzetlapon van egy sor amiben van egy sárga cella, de mindig másik sorban.
(Odáig már eljutottam, hogy minden munkafüzetlapon a keresett sor egyik cellája legyen citromsárga.)
A cél az lenne, hogy minden olyan sort ahol van citromsárga cella, másolja
át a scriptek.xlsm munkafüzetlap2-be, ami a kigyűjtést követően lesz jópár soros a végén.
Van esetleg valakinek "link" ötlete, ahol már találkozott ilyennel, vagy okos és már megoldott ilyet?

  • 2525 megtekintés
Sub GetSheetNames()
Dim wSheet As Worksheet
  For Each wSheet In Worksheets
    On Error Resume Next
    ActiveCell.Value = wSheet.Name
    ActiveCell.Offset(1, 0).Select
  Next wSheet
End Sub

Ebből kibogarászhatod, hogyan veheted sorra a worksheeteket.
Read more : http://www.ehow.com/how_8503026_list-worksheets-excel-using-vba.html

Üdv,
Marci

Szia!
http://takitibi.hu/excel/proba.xlsm
idáig jutottam, lefut, de nem értem, nem pakolja át a gyujto fülre a kért
sorokat. Ki tudnád próbálni, megnézni? Görcsölök rajta, de nem ez a szakterületem, és borzasztóan izzadok ettől... Köszönöm előre is!
---
Üdv: TakiTibi

Frissítve:
Külön "nyomógombként" a lapfülnév kigyűjtő kigyűjti most már a neveket a GYŰJTŐ fül A40-es cellájától lefelé. Így már lehet hivatkozni a cellanévre!
Jó ez így, talán még ma készen leszek vele.

------------
Szia!
Hihetetlen, köszönöm szépen! :-) Nagy Guru vagy! Valóban így már működik.
Ez azt jelenti, hogy lentebbi sorból (5.sor) kezdje scannelni az oszlopot?
Lefut frankó! Már csak a Marci(mrceeka) féle ügyet kellene belerakni, hogy az összes munkalapfülön keresztülmenjen, amik más más nevűek.
Köszi az eddigieket is!
---
Üdv: TakiTibi