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

• #40508 Bishop1 tag

  Új Válasz 2019-03-22 09:12:38 #40508

  Ú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

  

  Bishop1

  tag

  Sziasztok!
  A segítségeteket szeretném kérni. Egy oszlop értékei alapján kellene megkapjam egy másik oszlop értékeinek összegét egy cellába.
  Kicsit pontosabban, mondjuk az A oszlop szummáját kellene kiírni egy cellába, minden olyan sorból ahol a B oszlop értéke X.
  Segítségeteket előre is köszönöm.

• #16859 Bishop1 tag Bishop1 #16858

  Új Válasz 2013-02-23 13:59:56 #16859

  Ú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

  

  Bishop1

  tag

  válasz Bishop1 #16858 üzenetére

  Erre jutottam végül kis segítséggel, de ez nem számlálja az oldalakat, vagyis ha aznap még egy munkalapot nyitnék akkor hibaüzenetet ad az azonos munkalap nevek miatt. Ezt továbbgondolva, mi a módja hogy ha ilyenkor nyitáskor azonos munkalap nevet talál felülírja a frissebbel?

  Sub Gomb80_Kattintás()
  '
  ' Gomb80_Kattintás Makró
  '
  
  '
  Sheets("t").Select
  Range("A1").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$1:$D$66").AutoFilter Field:=3, Criteria1:="<>"
  Selection.Copy
  Sheets.Add(After:=Worksheets(Sheets.Count)).Name = Date
  Columns("A:A").ColumnWidth = 24
  ActiveSheet.Paste
  Range("A1").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "2/23/2013"
  Sheets("t").Select
  Selection.AutoFilter
  Sheets("napi").Select
  Range("O8").Select
  End Sub

• #16858 Bishop1 tag Delila_1 #16856

  Új Válasz 2013-02-23 13:32:02 #16858

  Ú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

  

  Bishop1

  tag

  válasz Delila_1 #16856 üzenetére

  Nem igazán akar működni a makró, az új oldalt megcsinálja, a neve a dátum, eddig stimmel.
  Viszont a t nevű munkalapról az autószűrővel szűrt adatok nem kerülnek át az új munkalapra.
  Megvallom, cseppet sem értek a makrókhoz, makrórögzítővel raktam össze a fenti programot (egyébként tökéletesen működik csak annyi kellene hogy dátum legyen az új munkalap neve ami nem frissül)
  Amit csináltál megcsinálja az új munkalapot, névként megvan a dátum aztán hibát ad a következő üzenettel:
  Run-time error 1004 és debug módban a következő sort jelzi hibásnak: Selection.CurrentRegion.Select (Ln17 , Col1).
  Amit csináltam az egyébként leszűri a t munkalapon lévő táblázatból az üres sorokat, nyit egy új munkalapot, beszúrja, fölé betesz egy dátumot, vissza t-re, autószűrő kikapcsol, vissza napi-ra (ahol a gomb van ami az egészet indítja) és üríti a vágólapot.
  Jól sejtem hogy a tiédet még valahogy össze kell kombinálnom az enyémmel?

• #16855 Bishop1 tag Delila_1 #16854

  Új Válasz 2013-02-23 09:50:00 #16855

  Ú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

  

  Bishop1

  tag

  válasz Delila_1 #16854 üzenetére

  Szia!
  Leköteleztél! MIndjárt ki is próbálom őket.

• #16852 Bishop1 tag Delila_1 #16830

  Új Válasz 2013-02-23 01:07:26 #16852

  Ú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

  

  Bishop1

  tag

  válasz Delila_1 #16830 üzenetére

  Köszönöm, közben megoldódott.
  Érdekes hogy egy másik gépen szintén nem sikerült vízszintes léptető nyilat húzni, egy harmadikon meg igen...
  Közben új kérdések merültek fel.
  Hogy tudnám a következő makrót úgy módosítani hogy a megnyitott új munkalap neve az aktuális dátum legyen? Sokat bonyolítana hogy ha többször nyit új munkalapot egy nap akkor egy számlálóval a végére beszúrjon egy számot?

  Sub Gomb80_Kattintás()
  '
  ' Gomb80_Kattintás Makró
  '
  
  '
  Sheets("t").Select
  Range("A1").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$1:$D$66").AutoFilter Field:=4, Criteria1:="<>"
  Selection.Copy
  Sheets.Add After:=Sheets(Sheets.Count)
  Columns("A:A").ColumnWidth = 24
  ActiveSheet.Paste
  Range("A1").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "=TODAY()"
  Sheets("t").Select
  Selection.AutoFilter
  Sheets("napi").Select
  End Sub

  Illetve a másik kérdésem hogy meg lehet megoldani hogy minden 20-al kezdődő nevű munkalap adott két celláját (pl c1 és d1) egy munkalapon visszakapjam egymás alá listázva?

• #16829 Bishop1 tag Delila_1 #16828

  Új Válasz 2013-02-21 10:16:02 #16829

  Ú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

  

  Bishop1

  tag

  válasz Delila_1 #16828 üzenetére

  Akkor valamilyen helyi hibaba futottam mert barhogy rajzolom allo lesz. Azert koszonom!

• #16826 Bishop1 tag Bishop1 #16815

  Új Válasz 2013-02-20 22:08:06 #16826

  Ú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

  

  Bishop1

  tag

  válasz Bishop1 #16815 üzenetére

  Senki nem tud segíteni? :S Nagyon fontos lenne még ma megoldanom és azt hittem csak valami csúnyán elkerüli a figyelmemet. Bosszantó hogy full kezdőként a függvényeket simán megírtam a nyavajás nyilat meg nem tudom elfordítani.

• #16815 Bishop1 tag

  Új Válasz 2013-02-20 00:25:49 #16815

  Ú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

  

  Bishop1

  tag

  Sziasztok!
  Bagatell kérdésem volna, hogy lehet a léptetőnyilat átfordítani?
  Hogy ne le-fel hanem jobb bal irányba mutasson.
  Active x vezérlőnyilat gond nélkül átfordítja ha keresztülhúzom a szemközti sarkon de a sima űrlap vezérlőnyilat nem és kezdek a falra mászni...

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