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

• #35962 Acustic újonc

  Új Válasz 2017-08-12 22:17:00 #35962

  Ú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

  

  Acustic

  újonc

  Sziasztok!
  Ti már sok mindent láttatok, ezért fordulok hozzátok Én sehol nem találtam meg ...... A probléma a következő:
  Amikor egy három oszlopos táblázatban cserét akarok végrehajtani, akkor beütöm a keresett szöveget, és a csere szöveget. A dokumentum elejéről elindulok (oszlop) és a következőt megnyomva, megtalálja az első cellát. Rányomok a cserére, és át is változtatja. Innen már csak space-t vagy entert kell nyomnom, és ugrik a következőre. És a következőre. Egészen addig nem ad új oldalt, amíg le nem érek a monitor aljára. Amikor oda elérek, akkor ad egy új oldat. Csakhogy az a monitor közepén lesz. Vagyis ez nem új oldal, csak egy fél.
  Kérdés: Be lehetne azt állítani, hogy ne a monitor közepére, hanem a felső rész 1/5-ére ugorjon? És amikor új oldalt fog adni akkor ne a monitor legaljánál tegye meg, hanem a 4/5-énél?
  Köszönöm a segítségeteket ...hátha ti már találkoztatok ezzel .........
  Még talán az is jobb lenne, ha állandóan egy pozícióba tenné a cserélni kívánt cellát ........(ezáltal folyamatos lenne a lefele gördulés)
  A problémám onnan fakad, hogy a legalsó cellánál nem lehet látni, hogy mi fog következni, és amikor vált, akkor már nagyon késő, -továbbá, hogy a feléig ugrik csak fel az új lap adásánál, így a monitor fele teljesen felesleges .......
  Remélem érthetően írtam le .... Előre is köszi a segítséget ....
  Attila

• #35827 Acustic újonc

  Új Válasz 2017-07-26 22:11:56 #35827

  Ú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

  

  Acustic

  újonc

  Delila! Feri!
  Köszönöm a segítséget Most már megy a laphoz rendelés és a modulba írás is Nagy dolgok ezek, higgyétek el.
  Sikerült beilleszteni őket, és működik is. Még nem tudom, hogy melyikkel fogok tovább haladni, de hasznos volt a tanácsotok .....köszönöm
  B. Attila

• #35720 Acustic újonc Delila_1 #35717

  Új Válasz 2017-07-13 23:58:36 #35720

  Ú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

  

  Acustic

  újonc

  válasz Delila_1 #35717 üzenetére

  Szia Delila!
  MOst végeztem a melóval .....az agyam nem valami friss, de már annyira vártam, hogy legyen idQm belenézni a fórumba. ElQször is köszönöm a segítségeteket.
  Egy dolgot elfelejtettem mondani Az a rész, hogy hogyan pirosítom a felvett szereplQt, már nem érdekes, mert - Ha már az aktuális szerepnév be van sárgázva és jobra fel van rendezve, és a csere-funkció beállt az elsQ sárga kockába, akkor egy csere okézásával, már csak a space-eket kell nyomkodnom, és automatikusan vált pirosra, és ugrik a következQ sárgára.
  Nekem egy fontos dologra "van szükségem" ......hogy az általam kijelölt cellába pl. ("H1") beírt név társai, amik az A oszlopban szerepelnek random, más sok szereplQvel keveredve, - szintén besárguljanak. És, a csere táblában a név formátuma már pirosra álljon, és megkeresse a legelsQ sárga cellát. Ennnyi. Onnantól már én elindítom az egyes-cserét, és átírja automatikusan piros névre, és balra föl rendezi. .......húú, remélem értehtQ voltam.
  Az a baj, hogy nagyon érdekel ez az egész, de nem látom még át ... HOlnap belevetem magam ......most már fáradt vagyok .....reggel 5 óta nyomom.....
  Szia és még egyszer nagyon köszönöm.
  Attila

• #35716 Acustic újonc Fferi50 #35715

  Új Válasz 2017-07-12 22:36:40 #35716

  Ú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

  

  Acustic

  újonc

  válasz Fferi50 #35715 üzenetére

  Sub névminta()
  '
  ' névminta Makró
  ' ctrl+n a neveket előbb besárgítja, majd kereső funkcióra áll, megtalálja az első nevet.
  '
  ' Billentyűparancs: Ctrl+n
  '
  Range("H1").Select
  Selection.Copy
  Range("I1").Select
  Application.ReplaceFormat.Clear
  Application.ReplaceFormat.NumberFormat = "General"
  With Application.ReplaceFormat
  .HorizontalAlignment = xlRight
  .VerticalAlignment = xlTop
  .WrapText = False
  .Orientation = 0
  .AddIndent = False
  .ShrinkToFit = False
  End With
  With Application.ReplaceFormat.Font
  .Name = "Arial"
  .FontStyle = "Normál"
  .Size = 12
  .Strikethrough = False
  .Superscript = False
  .Subscript = False
  .ThemeColor = 2
  .TintAndShade = 0
  .ThemeFont = xlThemeFontNone
  End With
  Application.ReplaceFormat.Borders(xlLeft).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlRight).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlBottom).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlDiagonalDown).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlDiagonalUp).LineStyle = xlNone
  With Application.ReplaceFormat.Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535
  .TintAndShade = 0
  .PatternTintAndShade = 0
  End With
  Application.ReplaceFormat.Locked = True
  Application.ReplaceFormat.FormulaHidden = False
  Columns("A:A").Select
  Selection.Replace What:="John", Replacement:="John", LookAt:=xlWhole, _
  SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=True
  Application.ReplaceFormat.NumberFormat = "General"
  Range("I2").Select
  Application.ReplaceFormat.Clear
  Application.ReplaceFormat.NumberFormat = "General"
  With Application.ReplaceFormat
  .HorizontalAlignment = xlLeft
  .VerticalAlignment = xlTop
  .WrapText = False
  .Orientation = 0
  .AddIndent = False
  .ShrinkToFit = False
  End With
  With Application.ReplaceFormat.Font
  .Name = "Arial"
  .FontStyle = "Normál"
  .Size = 12
  .Strikethrough = False
  .Superscript = False
  .Subscript = False
  .Color = -16776961
  .TintAndShade = 0
  .ThemeFont = xlThemeFontNone
  End With
  Application.ReplaceFormat.Borders(xlLeft).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlRight).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlBottom).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlDiagonalDown).LineStyle = xlNone
  Application.ReplaceFormat.Borders(xlDiagonalUp).LineStyle = xlNone
  With Application.ReplaceFormat.Interior
  .Pattern = xlNone
  .TintAndShade = 0
  .PatternTintAndShade = 0
  End With
  Application.ReplaceFormat.Locked = True
  Application.ReplaceFormat.FormulaHidden = False
  Range("A1").Select
  Cells.Find(What:="John", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
  :=False, SearchFormat:=False).Activate
  End Sub

  A keresés Mindig a H1 ben lévo szóra indulna el, ami változik, hiszen a "h" oszlopban szereplo nevek érkezési sorrendben változnak. Hogy értheto legyen ....... Szinkront rendezek. Jon egy színész, és azt mondom, hogy van egy John nevu karaktere. Besárgítom neki az összes John-t, hogy jobban átláthato legyen számára. Amikor pedig felvettük azt a sort, akkor átváltozik pirosra a név. ebbbol tudom, hogy már fölvettuk azt a szereplot. De mivel egy nap 60 szor kell ezt megcsinálni, az már fáraszto. Minden munkafolyamatra van már kész makro-m ....de ez már naggyon megakasztott ) köszönöm a segítségedet ......az is nagy dolog, ha legalább azt meg tudod mondani, hogy merre induljak el. MÁr az angol oldalakat is végignéztem, de valószínuleg nem látom át a lehetoségeket. .....

• #35714 Acustic újonc

  Új Válasz 2017-07-12 10:40:05 #35714

  Ú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

  

  Acustic

  újonc

  Sziasztok!
  Most már napok óta nem tudok tovább lépni egy kérdés megoldásán. Ha tudtok, légyszi segítsetek. Már az is jó, ha azt mondjátok, hogy nem lehetséges Excelben, vagy hogy másfele induljak el.
  Van egy A oszlopom. Három névvel. (john,Mike,Dave)
  Van egy H oszlopom ahol szerepel ez a három név. (john, Mike,Dave) H1,H2,H3
  Van egy I oszlopom amiben csak formátum szerepel. ( "I1" sárga kitöltés, a betu fekete, és felülre és jobra rendez) A másik: "I2" nincs kitöltés, felülre és balra rendez, és a betu benne piros.

  Úgy kezdem a munkámat, hogy kopizom a nevet (H2), majd a formátumot, ("I1") és kicserélem az összes John-t erre a formátumra, majd a formátumot kicserélem "I2" re, és a dokumentum legelso cellájába lépve, elindítom a keresést, hogy megtalálja az elso MIke-ot.
  A következQ lépés, hogy kicserélem. Ekkor átváltázik piros betu, balrarendez stb.
  Ezt szeretném makrózni, de sehogy sem sikerül.
  Illetve sikerül, de amikor Dave-vel szeretném ugyanezt megcsinálni, akkor is Mike-ra fogja kicseréllni.

  A legjobb az lenne, ha a formátum cserét onnan indítaná, ahonnan én szeretném. Legyen az H1, vagy H25. A lényeg, hogy a szövegben ("A") beállt állapot az legyen, hogy minden azonos név sárga legyen, és ott legyek az oszlopban ("A") megjelenQ legelso névnél.

  Esténként úgy fekszem le, hogy még mindig ezen gondolkodom, ami valamilyen szinten jó, .....de tovább kellene most már lépnem.
  Ha azt ajánljátok, hogy Balaton felé induljak el, azt is megfontolom ))

  Köszönöm. Attila

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