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

• Fferi50 Topikgazda

  #35700

  #35699 johny989

  2017-07-08 12:57:00

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35699 johny989

  Szia!

  Mire hivatkoznál az "al" munkafüzet képletében? Jó lenne látni az adott képleteket.

  Üdv.

• johny989 csendes tag

  #35699 2017-07-08 11:49:03

  Új Válasz

  Ú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

  

  johny989

  csendes tag

  Sziasztok! Olyan problémám van hogy van egy "Fő" munkafüzetem és "al" munkafüzetem. A "fő" munkafüzetben egy adott cellára hivatkozok az "al" munkafüzetre. Amikor megnyitom a "fő" munkafüzetet majd után az "al" munkafüzetet a "fő" munkafüzetben elszáll #HIV-vel. Már beállítottam hogy nem frissítse automatikusan, fel vettem kapcsolatok közé, a tartományt is megosztottam. Mit tudok még tenni? Egyáltalán erre van megoldás? és Mindig azt veszem észre hogy a #HIV mindig az "al" munkafüzet munkalapjánál van a képletben. Ötlet?

  Köszönettel
  johny989

• Sgt. Chris aktív tag

  #35698

  #35697 Fferi50

  2017-07-07 20:57:27

  Új Válasz

  Ú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

  

  Sgt. Chris

  aktív tag

  #35697 Fferi50

  Rendben, hétfőn rápróbálok és jelzem sikerült-e! Köszi a tippet!

• Fferi50 Topikgazda

  #35697

  #35696 Sgt. Chris

  2017-07-07 15:09:47

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35696 Sgt. Chris

  Szia!

  A dátummező beszúrásnál megadhatod, hogy milyen formátumban jelenjen meg a dátum.
  {MERGEFIELD Dátum\@"yyyy.MM.dd" \*MERGEFORMAT}

  A kapcsos zárójel jelzi a mezőt (World teszi ki).

  Üdv.

• Sgt. Chris aktív tag

  #35696 2017-07-07 14:46:11

  Új Válasz

  Ú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

  

  Sgt. Chris

  aktív tag

  Üdv Urak!

  Eddig azt hittem, hogy amire nekem kell annyira pont ismerem a Office csomagot. De most van egy problémám, amit nem tudok megoldani...

  Szóval van egy sima excel tábla, amelyikből körlevelet készítek word ben...a táblában szerepelnek dátumok (határidők, születési dátumok, stb.) de ha ezt a cellát a körlevélben behivatkozom, akkor már US verzióban jelenik meg... Példa: 2017.07.06. az excelben, a worldben 07/06/2017....

  Nekem ez nem jó, a magyar, vagyis az Excel féle dátumforma kellene...de nem sikerül sehogy.
  A cellában hiba állítom be a cella típusát dátumnak, az se segít.

  A megoldásnak nagyon örülnék....(Tuti nem olyan bonyolult, amilyennek most tűnik)

• Delila_1 veterán

  #35695

  #35694 nemlehet

  2017-07-07 11:22:24

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35694 nemlehet

  Az általános formában megjelenített dátumokat is tudod vizsgálni a MA() függvény segítségével.

• nemlehet őstag

  #35694

  #35693 Delila_1

  2017-07-07 11:15:34

  Új Válasz

  Ú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

  

  nemlehet

  őstag

  #35693 Delila_1

  Annyira nem fontos, úgy is zárolva van, nem tudják elhúzgálni, de majd beírom.

  Most ahogy nézem itt valami nagy furcsaság van. Nézegetem a cellaformátumokat és most feltűnt, hogy hiába állítom át bármire ugyan úgy ugyan azt a dátumot írja ki.
  Tehát pl átrakom általánosra akkor a többi oszlopban a dátumból lesz ez a 42xxx szám, ebben viszont ugyan úgy marad 2012-12-10 (vagy ami dátum épp be van írva). Szóval olyan mintha beragadt volna szövegként a cella tartalma arra meg értelemszerűen nem tudja vizsgálni a MA függvényt.

  Sőt, ha csinálok egy olyat, hogy egy másik cellába olyat, hogy =Q3 (ugye, hogy megjelenjen benne a Q3 tartalma) akkor az sem működik. Ilyet még nem pipáltam.....

• Delila_1 veterán

  #35693

  #35692 nemlehet

  2017-07-07 11:07:41

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35692 nemlehet

  Az alsónál a képletekben a T elé tegyél $-t.

• nemlehet őstag

  #35692

  #35691 Delila_1

  2017-07-07 11:03:03

  Új Válasz

  Ú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

  

  nemlehet

  őstag

  #35691 Delila_1

  [Képlet]

  Az alsó az ami ugyan ebben a táblában a másik oszlopra működik. Próbáltam többféleképp dollárjelezni, próbáltam más színekkel hátha az a baja, hogy már "foglalt".

  Szerk: Most megnéztem egy ha függvénnyel, hogy az milyen eredményt dob ki:
  =HA(Q12<MA();"igen";"nem")
  2012-es dátumra is azt dobja ki, hogy "nem", tehát akkor itt valami cellaformátum probléma lesz. Csak azt nem értem, hogy ez is ugyan úgy, ugyan arra a dátum formátumra van rakva mint a másik oszlop.

• Delila_1 veterán

  #35691

  #35690 nemlehet

  2017-07-07 10:53:45

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35690 nemlehet

  Mi a formázó képleted?

• nemlehet őstag

  #35690

  #35689 Delila_1

  2017-07-07 10:52:44

  Új Válasz

  Ú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

  

  nemlehet

  őstag

  #35689 Delila_1

  Nem jó így se. Egyszerűen az oszlop összes cellájára a Q3 cella teljesülését vizsgálja. Nem bírom felfogni, hogy a másik oszlopban miért működik máshogy mint ebben.

• Delila_1 veterán

  #35689

  #35688 nemlehet

  2017-07-07 10:47:07

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35688 nemlehet

  Az oszlop betűjele előtt legyen $ jel, de a sorszám (3) előtt ne. A $ jel rögzíti az utána következő sorszámot, vagy oszlopot.

• nemlehet őstag

  #35688 2017-07-07 10:30:10

  Új Válasz

  Ú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

  

  nemlehet

  őstag

  Sziasztok!

  Van egy táblázatom aminek 1 oszlopa dátum szerint feltételes formázással színkódolva van. Szeretnék egy hasonló dátum szerinti feltételes formázást a táblázat egy másik oszlopára is de egyszerűen nem működik.

  Szóval az kéne nekem, hogy:
  Qx<ma() -> legyen sárga
  Qx<ma()-30 -> legyen narancs
  Qx<ma()-90 -> legyen piros

  Ez a T oszlopra (csak itt nem a T oszlop tartalmát vizsgálva) ebben a formában működik, a Q-ra viszont nem. Egyszerűen nem értem mi a baj.

  Amiket próbáltam:
  -biztos jól van beírva
  -egy másik táblázatban ugyan ez simán működik (hogy ugyan azt az oszlopot vizsgálom és formázom)
  -átmásoltam a T oszlop formázását a Q-ba, de az se jó valamiért ha átírom a feltételt.

  Kísérleteztem tovább, nekem úgy tűnik, hogy a Q oszlop esetén a megadott tartomány legelső cellájára vizsgálja a feltételt (tehát mindig Q3-ra), a másiknál meg soronként (tehát T3, majd T4, majd T5) és formáz. Számomra érthetetlen ez, mert ugyan azt írtam be, ugyan úgy...

• Fferi50 Topikgazda

  #35687

  #35676 Delila_1

  2017-07-06 19:20:42

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35676 Delila_1

  Szia!

  Az lehet, hogy tartományt vizsgálunk, de mindig egyetlen cella értékét fixáljuk. (A megoldásodban is ez történik, csak egy konstans értékkel.)

  Üdv.

• csongi veterán

  #35686 2017-07-06 18:45:28

  Új Válasz

  Ú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

  

  csongi

  veterán

  (#35637)
  Ez túlságosan komplikált?

• Delila_1 veterán

  #35685

  #35684 Carasc0

  2017-07-06 18:32:09

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35684 Carasc0

  Nézd meg, nem szöveg formátumúra van-e a cella állítva?

• Carasc0 őstag

  #35684

  #35683 Delila_1

  2017-07-06 18:30:50

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35683 Delila_1

  Tökéletes, de miért dob néha Type Mismatch hibát, mikor kézzel törlöm ki az I oszlopban az értékeket?

  If Target >= 3 Then <---- erre a sorra adja be.

  Nézd meg, nem szöveg formátumúra van-e a cella állítva?

  Nem! Szám formátumra van belőve, 0 tizedesjeggyel. (I16:I35 tartományt néztem)

• Delila_1 veterán

  #35683

  #35682 Carasc0

  2017-07-06 18:20:50

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35682 Carasc0

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 And Target < 5 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If

If Target >= 5 Then
Cells(Target.Row, "BE") = "I"
Cells(Target.Row, "BE").Locked = True
End If
End If
End Sub

• Carasc0 őstag

  #35682

  #35681 Delila_1

  2017-07-06 18:17:04

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35681 Delila_1

  Köszönöm tökéletesen működik!

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 5 Then
Cells(Target.Row, "BE") = "I"
Cells(Target.Row, "BE").Locked = True
End If
End If
End Sub

  Így viszont már nem! Ugyanis nekem több tartományra kéne érvényesítenem a dolgot. A BE oszlopos tartománynál már más a kritikus érték. Így nem engedi.

• Delila_1 veterán

  #35681

  #35680 Carasc0

  2017-07-06 18:02:45

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35680 Carasc0

  Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '****
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
End If
End Sub

• Carasc0 őstag

  #35680

  #35679 Delila_1

  2017-07-06 17:59:28

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35679 Delila_1

  I35 >>> AZ35

• Delila_1 veterán

  #35679

  #35678 Carasc0

  2017-07-06 17:57:16

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35678 Carasc0

  Meddig tart az "stb"?

• Carasc0 őstag

  #35678

  #35677 Delila_1

  2017-07-06 17:55:31

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35677 Delila_1

  Private Sub Worksheet_Change(ByVal Target As Range
If Target.Address = "$I$16" And Target >= 3 Then
Range("AZ16") = "I"
Range("$I$16").Locked = True
End If
End Sub

  Na ez kellett nekem! Én a zárolást csak azért hoztam fel, mert azt hittem azzal lehet megoldani a problémát. Tehát nem kellett a zárolás. No most ez a kód kéne nekem tartományra. Írom a példát:

  I16 >>> AZ16
  I17 >>> AZ17
  I18 >>> AZ18
  stb..

  Az kritikus érték természetesen továbbra is >=3.

• Delila_1 veterán

  #35677

  #35675 Carasc0

  2017-07-06 17:43:57

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35675 Carasc0

  Az AZ16 eleve legyen zárolt, az I16 pedig nem.

  Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '**********
If Target.Address = "$I$16" And Target >= 3 Then
Range("AZ16") = "I"
Range("$I$16").Locked = True
End If
End Sub

• Delila_1 veterán

  #35676

  #35674 Fferi50

  2017-07-06 17:39:27

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35674 Fferi50

  Ennél összetettebb, mert tartomány zárolásáról van szó, az A1 csak egy kis egyszerűsítés.

• Carasc0 őstag

  #35675 2017-07-06 17:38:20

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  Ok konkrétizálom a dolgot 1db cellára!

  Kritikus érték az "I" betű.
  Van egy cellám az AZ16: =HA(I16>=3;"I";"N")

  Én azt akarom, hogy ha egyszer az I16 cellába beírok 3 vagy annál nagyobb értéket, akkor az AZ16 cella tartalma váltson I betűre úgy, hogy ha utána bármilyen értéket is írok az I16-ba, akkor maradjon az I betű az AZ16-ban.

  Jelenleg az történik hogy:

  1. Beírom I16-ba hogy 3
  2. AZ16 értéke I lesz és zárolásra kerül a cella mert a script lefut
  3. Megváltoztatom az I16-ot 2-re.
  4. AZ16 értéke N betű lesz. <--- Na ezt ne legyen.

  Delila_1

  Ennél összetettebb, mert tartomány zárolásáról van szó, az A1 csak egy kis egyszerűsítés.

  Nem kell tartomány. OFF-ld. Elég ha 1 cellára mükszik, akkor többit is megbütykölöm már!

• Fferi50 Topikgazda

  #35674

  #35672 Carasc0

  2017-07-06 17:38:14

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35672 Carasc0

  Szia!

  Akkor az A1 cellában a képlet helyére be kell tenni az értéket:
  A zárolás előtt:
  Range("A1").Value=Range("A1").Value

  Üdv.

• Delila_1 veterán

  #35673

  #35672 Carasc0

  2017-07-06 17:30:41

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35672 Carasc0

  Lásd az előző választ.

  Add meg a tartományt, ahova beviszed az adatokat, és azt a tartományt, ami ezek hatására felveheti a kritikus értéket.

  Ez a bizonyos érték "X" karakter?

• Carasc0 őstag

  #35672

  #35670 Delila_1

  2017-07-06 17:25:37

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35670 Delila_1

  Kilogikáztam!

  Igen, a függő cellát kell Targetnak megadnom! Már a célban vagyunk, de van egy óriási hiba. Én azt akarom elérni hogy amikor A1 cella megkapja az X-et a target cella értéke alapján, akkor az A1 cella értéke maradjon örökre X. Mert ugyan zárolva lesz, de ha a Target-ban más értéket adok meg, akkor a zárolt cellában is megfog változni!

  Nem csak az A1-et, hanem azt a cellát is zárolni kell, amelyiknek a hatására az A1 felvette a kritikus értéket.

  Na azt nem akarom! Az egy általam kézzel változtatott cella.

  Máshogy fogalmazok!

  Az A1 cellában egy HA függvény működik. Megoldható-e az, hogy ha az A1 cella megkapja a kritikus értéket, akkor az A1 cella értéke ne HA függvény legyen, hanem a megkapott kritikus érték mint konstans. Végülis ugyanazt az eredményt kapom. Nem a zárolás a lényeg végülis. Hanem hogy amint megkapta a kritikus értéket a cella, az az érték büdösödjön meg benne és ne változzon tovább más cella hatására.

• Delila_1 veterán

  #35671

  #35669 Carasc0

  2017-07-06 17:23:07

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35669 Carasc0

  Nem csak az A1-et, hanem azt a cellát is zárolni kell, amelyiknek a hatására az A1 felvette a kritikus értéket.

• Delila_1 veterán

  #35670

  #35669 Carasc0

  2017-07-06 17:19:44

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35669 Carasc0

  Ez a makró akkor fut le, ha a lapon bármelyik cellába billentyűzetről viszel be adatot. Mivel nem az A1-be pötyögtetsz, azt a cellát kell figyeltetni, amelyiknek az értékétől függően az A1 ilyen, vagy olyan értéket vehet fel.

  Add meg konkrétan, melyik cellákat módosítod, és ezeknek a hatására melyik tartomány módosul. Továbbá, hogy milyen érték(ek)nél kell zárolni a tartományt.

• Carasc0 őstag

  #35669

  #35668 Delila_1

  2017-07-06 17:12:47

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35668 Delila_1

  Szia!

  Nem teljesen értem mi lehet a baj, de nem úgy működik ahogy vártam. Egyrészt csak 1x fut le a kód. Ha utána kézzel feloldom a munkalapot onnantól nem mükszik.

  Megpróbálom részletezni amit szeretnék.

  Legyen az A1 cella. Ebbe a cellába nem kézzel írnak bele, hanem az értéke egy HA függvénnyel van megadva. Na most ha a HA függvény pont úgy fut le, hogy pont az-az érték kerül az A1-be ami által már nem szabad hogy szerkeszthető legyen, na akkor kell a scriptnek lefutnia. De ha a függő cellában változik az érték, akkor is maradjon az A1 cella NE szerkeszthető. Magyarul ha egyszer megkapja az A1 cella a kívánt értéket, akkor onnantól kezdve a HA függvény ne legyen rá érvényes.

  Az a baj hogy ezt nem tudom letesztelni, mivel a script csak 1x fut le. Utána nem.

  FRISS!

  Csak akkor fut le még egyszer a script ha kézzel írom be a zárolással járó értéket!

• Delila_1 veterán

  #35668

  #35667 Carasc0

  2017-07-06 16:38:50

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35667 Carasc0

  Nem ennyire egyszerű. Az

  If Target.Address="$A$1" Then

  sor helyére

  If Not Intersect(Target, [A1:B20]) Is Nothing Then

  sort írj, ahol az [A1:B20] a vizsgált tartományod legyen.

• Carasc0 őstag

  #35667

  #35666 Delila_1

  2017-07-06 16:34:42

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  #35666 Delila_1

  Köszönöm kifogom próbálni!

  Amennyiben egy cellatartományban akarom ezt érvényesíteni, akkor az általad megadott kódban az A$1 helyére beírom a cél cellatartomány azonosítóját?

• Delila_1 veterán

  #35666

  #35665 Carasc0

  2017-07-06 14:23:39

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35665 Carasc0

  Vedd le a zárolást az A1 celláról, meg a többiről, amikbe írhat a felhasználó.

  Rendeld a laphoz a lenti makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "Gólyacsőr" Then '***********
Range("A1").Locked = True
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '************
End If
End If
End Sub

  A csillagokkal jelzett sorokon kell változtatnod. Az elsőben a "Gólyacsőr" helyére azt írd be, aminek a bevitele után nem akarod engedni az A1 módosítását, a másodikban az "aaa" helyén legyen a saját lapvédelmed jelszava.

• Carasc0 őstag

  #35665 2017-07-06 14:09:25

  Új Válasz

  Ú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

  

  Carasc0

  őstag

  Sziasztok!

  Egy érdekes Excelbeni probléma elé kerültem. Remélem van megoldás rá!

  A probléma kifejtése:

  Adott egy cella. Legyen A1. Ebben a cellában az alábbi algoritmust akarom megvalósítani:

  Ameddig az A1 cella tartalma értéke nem X, addig szerkeszthető, különben nem.

  Tehát ameddig nem kerül X a cellába, addig bármit be lehet írni, de amint valaki X-et ír be, a cella nem szerkeszthető többet.

  Erre keresek valami okosságot.

• Fferi50 Topikgazda

  #35664

  #35662 lenkei83

  2017-07-06 11:11:55

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35662 lenkei83

  Szia!

  Próbáltál már a Combó kiválasztás után egy refresh parancsot kiadni a diára (Excelben van, nem tudom PP-ben is létezik-e)?

  Üdv.

• EmberXY veterán

  #35663

  #35657 Fferi50

  2017-07-06 08:29:35

  Új Válasz

  Ú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

  

  EmberXY

  veterán

  #35657 Fferi50

  Szia!
  Valóban ez volt a gond, néhány száz oszlopra rányomtam a törlést, azóta működik a beszúrás. Köszönöm a segítséget!

• lenkei83 tag

  #35662

  #35656 Fferi50

  2017-07-06 08:28:18

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #35656 Fferi50

  Szia!

  De van, közben rájöttem mi a gond, de a megoldást még nem találtam ki.
  Combobox change-hez van hozzárendelve a színezés, viszont amikor kiválasztok a comboboxban egy másik értéket, az csak end sub után lesz aktív point. Vagyis amíg nem fut le teljesen a chang event, addig a diagram előző point értékeit veszi figyelembe és ez alapján színez. Viszont az előző dián lévő point az új combo választás szerint szerepelhet teljesen más helyen a diában és így teljesen bután néz ki a dia.

  Érthető ez így?

  üdv:
  P.

• Delila_1 veterán

  #35661

  #35660 Geryson

  2017-07-05 15:17:52

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35660 Geryson

  Szívesen.

  Sajnos arra, ha AS rendszerben (ahogy sikerül) vannak az adatok, nincs univerzális, jó képlet. Vagy van, de kilóg a vége az ablakon, és nagyon leterheli a memóriát.

• Geryson addikt

  #35660

  #35659 Delila_1

  2017-07-05 15:14:51

  Új Válasz

  Ú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

  

  Geryson

  addikt

  #35659 Delila_1

  Aztakutyafáját! Köszönöm szépen!

  Sajnos az eredeti celláknál (amit a korábbi képleted oldott meg) nem alkalmazható, de így is nagy segítség!

• Delila_1 veterán

  #35659

  #35658 Geryson

  2017-07-05 14:54:43

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35658 Geryson

  Alap: 42CRMO4-022(QT)

  =BAL(A1;SZÖVEG.KERES("-";A1)-1) & "+" & KÖZÉP(A1;SZÖVEG.KERES("(";A1)+1;SZÖVEG.KERES(")";A1)-SZÖVEG.KERES("(";A1)-1)

  eredménye:
  42CRMO4+QT

  =KÖZÉP(A1;SZÖVEG.KERES("-";A1)+1;HOSSZ(A1)-SZÖVEG.KERES("(";A1))*1

  eredménye: 22

• Geryson addikt

  #35658 2017-07-05 14:40:10

  Új Válasz

  Ú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

  

  Geryson

  addikt

  Csak vissza kell kérdeznem...

  Van egy ilyen tartalmú cella: 42CRMO4-022 és ebből 2 képlet csinál belőle az alábbi eredményt:

  =KÖZÉP(A477;1;SZÖVEG.KERES("-";A477;1)-1) = 42CRMO4
  =KÖZÉP(A477;SZÖVEG.KERES("-";A477)+1;20)*1 = 22

  Sajnos viszont van más stílusú/tartalmú cella is: 42CRMO4-022(QT)

  Ebből melyik képlet tudna nekem hasonló bontást csinálni, hogy az eredményem "42CRMO4+QT" és 22 legyen?

• Fferi50 Topikgazda

  #35657

  #35654 EmberXY

  2017-07-05 14:25:30

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35654 EmberXY

  Szia!

  Néha előfordul, hogy az Excel szemetel.... Attól, hogy nem látsz semmit a cellában, még lehet formázás, feltételes formázás, stb. ami érvényes a cellára.

  Próbáld meg kitörölni a most nem használt oszlopokat és sorokat a munkalap végéig. Azután szerintem mennie kell a beszúrásnak.

  Üdv.

• Fferi50 Topikgazda

  #35656

  #35651 lenkei83

  2017-07-05 14:23:19

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35651 lenkei83

  Szia!

  Powerpointban nincs Point tulajdonsága a SeriesCollection objektumnak?

  Üdv.

• oke senior tag

  #35655

  #35653 Delila_1

  2017-07-05 12:20:47

  Új Válasz

  Ú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

  

  oke

  senior tag

  #35653 Delila_1

  Bár így tudnék

• EmberXY veterán

  #35654 2017-07-05 12:08:21

  Új Válasz

  Ú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

  

  EmberXY

  veterán

  Sziasztok!
  Olyan problémával találkoztam, hogy ha egy adott munkalapon oszlopot szeretnék beszúrni, akkor a következő hibaüzenetet kapom:

  

  Ha a CTRL + END-et használom, egy teljesen üres cellára visz, nem értem, hogy mi a problémája... A lapon van néhány cella összevonás, egy fejléc rögzítés, de semmi extra, más lapokon is hasonló formázások mellett simán tudok oszlopot beszúrni. Valamit én csinálok rosszul?

• Delila_1 veterán

  #35653

  #35652 oke

  2017-07-05 11:44:21

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35652 oke

  Így jár, aki próba nélkül közöl makrót.

  Szerencsére megtaláltad a hibát.

• oke senior tag

  #35652

  #35648 Delila_1

  2017-07-05 11:35:26

  Új Válasz

  Ú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

  

  oke

  senior tag

  #35648 Delila_1

  Köszönöm, így tökéletes

  Van egy elírás benne: cunt-count:

  usor = Range("A" & Rows.cunt).End(xlUp).Row

  helyett:

  usor = Range("A" & Rows.count).End(xlUp).Row

• lenkei83 tag

  #35651 2017-07-05 10:24:01

  Új Válasz

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  Powerpointban ez beszínezi az egész seriescollectiont:
  ActivePresentation.Slides(1).Shapes(1).chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbBlue

  Hogy lehet ebből olyat varázsolni, hogy a SeriesCollection(1) egyetlen elemét színezze csak át?
  Excelben megy, powerpointban nem tudok rájönni.

  köszi
  P.

• lenkei83 tag

  #35650

  #35649 lenkei83

  2017-07-04 18:43:33

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #35649 lenkei83

  Megoldottam Workbook_SheetCalculate-el...

• lenkei83 tag

  #35649 2017-07-04 17:23:51

  Új Válasz

  Ú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

  

  lenkei83

  tag

  Ha berakok egy (diagramra) űrlap vezérlőből combo boxot és a callecsatolását beállítom egy munkalap adott pontjára ami ugye változik a legördülőből választott elem sorszámának megfelelően, akkor ezt miért nem érzékeli worksheet_change event-nek? Rá bírni valahogy? Mindenképpen kell egy change eventet varázsolnom valahogy ebből.

• Delila_1 veterán

  #35648

  #35647 oke

  2017-07-04 16:01:07

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35647 oke

  Nem az a baj, hanem az, hogy nem vettem figyelembe a sortörlések alapszabályát. Eszerint a törlési ciklust az alsó sortól felfelé kell indítani.

  Sub Torles()
Dim sor As Long, usor As Long

Application.ScreenUpdating = False
usor = Range("A" & Rows.cunt).End(xlUp).Row
For sor = usor To 2 Step -1
If Cells(sor, "J") = "-" And Cells(sor, "G") <> "Alma*" And _
Cells(sor, "G") <> "Körte*" And Cells(sor, "G") <> "Narancs*" Then _
Rows(sor).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub

• oke senior tag

  #35647

  #35640 Delila_1

  2017-07-04 15:52:00

  Új Válasz

  Ú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

  

  oke

  senior tag

  #35640 Delila_1

  Köszi, nagyjából jó, de valamiért nem törli ki elsőre az összes törlendőt, csak 15-20 futtatás után. Maga a tábla több mint 30 ezer sor. A leszűrt oszlop is kb 10 ezer sort tartalmaz. Lehet ez a gond?

• Delila_1 veterán

  #35646

  #35645 lenkei83

  2017-07-04 15:33:32

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35645 lenkei83

  Nincs mit, szívesen.

• lenkei83 tag

  #35645

  #35644 Delila_1

  2017-07-04 15:31:04

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #35644 Delila_1

  Mondom hogy fárdat vagyok...
  Köszönöm.

• Delila_1 veterán

  #35644

  #35643 lenkei83

  2017-07-04 15:26:19

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35643 lenkei83

  Adott egy tartomány mondjuk A1:G1 tele számokkal, és azt szeretném tudni, hogy a D1-ben lévő érték hányadik a sorban.

  A SORSZÁM függvényt alkalmazd.

• lenkei83 tag

  #35643

  #35642 Delila_1

  2017-07-04 15:23:49

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #35642 Delila_1

  Nem az érdekel hogy hol van a max, hanem egy hogy egy kiválasztott elem hanyadik a sorban.

• Delila_1 veterán

  #35642

  #35641 lenkei83

  2017-07-04 15:21:06

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35641 lenkei83

  =SORSZÁM(D1;A1:G1;0)

• lenkei83 tag

  #35641 2017-07-04 15:16:14

  Új Válasz

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  Adott egy tartomány mondjuk A1:G1 tele számokkal, és azt szeretném tudni, hogy a D1-ben lévő érték hányadik a sorban. Vagyis ha növekvő vagy csökkenőbe rendezném a számokat akkor hanyadik helyen állna.
  Tud valaki ilyen képelete? Az én agyam mára már felmondtam a szolgálatot.

  Köszi
  P.

• Delila_1 veterán

  #35640

  #35639 oke

  2017-07-04 12:17:52

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35639 oke

  Próbáld ki ezt:

  Sub mm()
Dim sor As Long, usor As Long, WF As WorksheetFunction
Dim ter As Range, CV As Range

Set WF = Application.WorksheetFunction
If WF.CountIf(Columns(7), "Alma*") + WF.CountIf(Columns(7), "Körte*") _
+ WF.CountIf(Columns(7), "Narancs*") > 0 Then
usor = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10, Criteria1:="-"

usor = Range("J" & Rows.Count).End(xlUp).Row
Set ter = Range("G2:G" & usor).SpecialCells(xlCellTypeVisible)

For Each CV In ter
If CV <> "Alma*" And CV <> "Körte*" And CV <> "Narancs*" Then _
Rows(CV.Row).Delete Shift:=xlUp
Next
usor = Range("J" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10
End If
End Sub

• oke senior tag

  #35639 2017-07-04 10:04:29

  Új Válasz

  Ú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

  

  oke

  senior tag

  Sziasztok!

  Van egy makró részletem, szűrésre és törlésre, a "G" oszlop alapján:

  If WF.CountIf(Columns(7), "Alma*") + WF.CountIf(Columns(7), "Körte*") + WF.CountIf(Columns(7), "Narancs*")> 0 Then
usor = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=7, Criteria1:=Array( _
"Alma", "Körte", "Narancs"), Operator:=xlFilterValues
Range("A2:AK" & usor).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=7
End If

  Ezt szeretném átalakítani úgy, hogy a "J" oszlopba kiválasztanék egy értéket: "-" (gondolatjel) és az ez által látszódó adatokból a "G" oszlopban a nem egyezőket törölném. Mondjuk a fenti példa alapján azokat a sorokat törölném, ami nem "Körte" és "Narancs".
  Valójában ennél sokkal több adat szerepel a "G" oszlopban, ezért kellene az ellenkezőre szűrés. Remélem érthető

  Excel 2007

  U.I.: Nem vagyok nagy makrókészítő, a fenti is Delila-nak köszönhető, azt alakítgatom

• BullZeye veterán

  #35638

  #35636 lappy

  2017-07-04 09:16:22

  Új Válasz

  Ú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

  

  BullZeye

  veterán

  #35636 lappy

  Áh köszi, én már sajnos túlkompikáltam, és már min-max értékek kihagyásával próbálkoztam, de valóban ez a lehető legegyszerűbb

  =(SZUM(D35:D50)-D45)/(DARAB(D35:D50)-1)

• csongi veterán

  #35637 2017-07-04 08:31:29

  Új Válasz

  Ú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

  

  csongi

  veterán

  Sziasztok!
  Újra itt!
  Az alábbit szeretném megoldani.
  Szeretnék optimalizálni. Mégpedig az alábbiak szerint.
  A a árga mezőbe a képleteket be tudom írni. ezek a cellák már számolt értékek,
  A lényege, hogy ezekben a cellákban lévő értékek mindegyikét figyelembe kellene venni, és optimalizálni.
  A másik munkalapon.
  Amire szükségem van, hogy egy szálanyagbol melyik értékeket lehet kivágni, és mennyi a maradék.
  Illetve hány szálra van szükségem az 1-es illetve a 2-es profilból.

  A tételek száma nem ismert, lehet akár 100-is.

  

  Optimalizált munkalapon.
  

  Milyen képletettel lehet ezt megoldani?
  Előre is köszönöm!

• lappy őstag

  #35636

  #35634 BullZeye

  2017-07-03 19:29:52

  Új Válasz

  Ú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

  

  lappy

  őstag

  #35634 BullZeye

  Kiszámolod az összegét kivonond belőle a maximum értéket és osztod a darabszám-1 el.

• Pulsar veterán

  #35635

  #35620 Delila_1

  2017-07-03 19:02:29

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  #35620 Delila_1

  Nagy köszönet érte, csütörtökön lesz időm és elmélyülök benne.

• BullZeye veterán

  #35634 2017-07-03 18:48:59

  Új Válasz

  Ú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

  

  BullZeye

  veterán

  10 soros táblázat, átlagot szeretnék, viszont van egy kiemelkedően magas érték, mivel tudom megoldani, hogy ezt az értéket kihagyja az átlagszámításnál?
  Ez az érték mindig az F:45 cellában lesz.

• Delila_1 veterán

  #35633

  #35632 Geryson

  2017-07-03 15:56:06

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35632 Geryson

  Szívesen.

• Geryson addikt

  #35632

  #35631 Delila_1

  2017-07-03 15:52:42

  Új Válasz

  Ú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

  

  Geryson

  addikt

  #35631 Delila_1

  Tökéletes, köszönöm szépen!

• Delila_1 veterán

  #35631

  #35630 Geryson

  2017-07-03 15:30:56

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35630 Geryson

  Akkor a szorzás jó lesz.

• Geryson addikt

  #35630

  #35629 Delila_1

  2017-07-03 15:29:19

  Új Válasz

  Ú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

  

  Geryson

  addikt

  #35629 Delila_1

  Igen-igen. Vagy kettő darab, vagy egy darab nullával. Gondoltam, hogy az egy darabra ha megírod, akkor én már csak át tudom írni.

• Delila_1 veterán

  #35629

  #35628 Geryson

  2017-07-03 15:26:38

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35628 Geryson

  Mindig 0-val kezdődik a kötőjel utáni rész?

  Legyen
  =KÖZÉP(F2;SZÖVEG.KERES("-";F2)+1;20)*1

  A szorzással számmá alakítod a jobb oldalt.

• Geryson addikt

  #35628

  #35626 Delila_1

  2017-07-03 15:25:11

  Új Válasz

  Ú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

  

  Geryson

  addikt

  #35626 Delila_1

  Nagyon szépen köszönöm, ellenben egy pici módosítást még kérek szépen:

  A cella valójában így néz ki: S235JR-010

  Nekem úgy kellene a kötőjel utáni rész, hogy a "0" (a nulla) nincs benne.

• Delila_1 veterán

  #35627

  #35625 JagdPanther

  2017-07-03 15:10:03

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35625 JagdPanther

  Örülök, hogy sikerült, szívesen.

• Delila_1 veterán

  #35626

  #35624 Geryson

  2017-07-03 15:09:38

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35624 Geryson

  Szia!

  =KÖZÉP(F2;SZÖVEG.KERES("-";F2)+1;20)

• JagdPanther aktív tag

  #35625

  #35623 Delila_1

  2017-07-03 15:03:10

  Új Válasz

  Ú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

  

  JagdPanther

  aktív tag

  #35623 Delila_1

  köszönöm szépen a segítséget! tökéletesen tudja azt amit szerettem volna!

• Geryson addikt

  #35624 2017-07-03 14:59:15

  Új Válasz

  Ú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

  

  Geryson

  addikt

  Delila, kaptam Tőled anno egy képletet:

  Van egy cellám, amiben ez az érték van: 526752-CMC és ezt a cellából szedi ki a számot ez a képlet:

  =KÖZÉP(F2;1;SZÖVEG.KERES("-";F2;1)-1)

  De hogyan állítom át úgy, hogy a kötőjel utáni részt hozza ki eredményként?

• Delila_1 veterán

  #35623

  #35622 JagdPanther

  2017-07-03 14:15:25

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35622 JagdPanther

  Töröld a laphoz rendelt makrót, a modulban lévőt írd át.

  Sub Masol()
Dim sor As Long
sor = Selection.Row
With Sheets("Számla")
.Range("B12") = Cells(sor, "E")
.Range("B28") = Cells(sor, "F")
.Range("H12") = Cells(sor, "J")
.Range("D10") = Cells(sor, "N")
End With
End Sub

  A füzetben a Makrók menüben (Alt + F8), a Masol makrót kiválasztva az Egyebek almenüben bill. kombinációt rendelhetsz hozzá.

• JagdPanther aktív tag

  #35622

  #35621 Delila_1

  2017-07-03 14:04:49

  Új Válasz

  Ú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

  

  JagdPanther

  aktív tag

  #35621 Delila_1

  Szuper, nagyon szépen köszönöm!
  Még annyi kiegészítő kérdésem lenne, hogy ha nem jobb klikk-re szeretném indatani a makrót, hanem billentyűkombinációra, pl. 'Ctrl+í' -re, mire kell módosítanom a kódot?

• Delila_1 veterán

  #35621

  #35619 JagdPanther

  2017-07-03 12:26:17

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35619 JagdPanther

  Az Ebay laphoz rendeltem egy makrót.

  Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Masol Target.Row
Cancel = True
End Sub

  Modulba jön a másik.

  Sub Masol(sor)
With Sheets("Számla")
.Range("B12") = Cells(sor, "E")
.Range("B28") = Cells(sor, "F")
.Range("H12") = Cells(sor, "J")
.Range("D10") = Cells(sor, "N")
End With
End Sub

  Az Ebay lapon egy sor valamelyik celláján jobb klikk, indul az eseményvezérelt makró, majd indítja a másolást.
  Rendelheted más eseményhez is.

• Delila_1 veterán

  #35620

  #35618 Pulsar

  2017-07-03 12:08:12

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35618 Pulsar

  Feltöltöttem egy fájlt.
  A Munka1 lapon az eredeti elrendezésben van a táblázatod. Itt egy elég összetett képlettel sikerült összehozni a műszakok jelét, de csak a hónap 21. napjáig, mert onnan kezdve az oszlopoknak 2 karakterből áll a betűjele. Ki lehetett volna bővíteni a képletet, de minek.

  A Munka2 lapon transzponáltam a táblázatodat, így már rövidebb képlettel sikerül elérni az eredményt.

• JagdPanther aktív tag

  #35619 2017-07-03 11:33:21

  Új Válasz

  Ú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

  

  JagdPanther

  aktív tag

  Sziasztok!

  Légyszi segítsetek egy makró megírásában, magyar nyelvű Office 2010, (angol) VBA 7.0 környezetben. A feladat a következő.

  Az Ebay nevű lapon kijelölök egyetlen, tetszőleges cellát. Ebben a sorban, bizonyos oszlopokban levő cellák értékét át akarom másolni a Számla nevű lapon, meghatározott cellákba. A cellamásolások egész pontosan az alábbiak:

  (kijelölési hely -> beillesztési hely)
  E oszlop -> B12
  F oszlop -> B28
  J oszlop -> H12
  N oszlop -> D10

  A lényeg, hogy az Ebay lapon egy tetszőleges cella kijelölése határozza meg, hogy a sor E, F, J és N celláját másoljam a Számla fülre.
  

• Pulsar veterán

  #35618

  #35617 Delila_1

  2017-07-02 17:02:35

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  #35617 Delila_1

  12 órás munkarend van, így a nappalos eleje és vége, az éjszakás műszak vége és eleje A képen amit küldtem, a jobb oldalon ott van példának egy hónap, pl az júniusi, hogy mikor melyik műszak dolgozik (Vízszintesen az A, B , C, D mint műszak jelölés, függőlegesen pedig a napok) Így van két nap meló délelőtt, aztán két nap pihi, aztán megint két nap meló délelőtt, kettő pihi, majd két nap éjszaka, kettő pihi, megint két nap és végül két nap éjszaka.
  Megnéztem a képletet, amit küldtél, de abból nem tudom hogy tudnám megcsinálni tovább

• Delila_1 veterán

  #35617

  #35616 Pulsar

  2017-07-02 16:08:48

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35616 Pulsar

  Csak a nappalos műszak elejét és végét adtad meg, ami 12 órát foglal magában. A közölt képen is N és É van, az A; B; C és D betűket nem tudtam mire vélni.
  Nálatok egy nap 48 óra?

  Az előzőek szerint már össze tudod állítani a táblázatodat. Ha nagyon nem megy, itt valószínűleg kapsz segítséget.

• Pulsar veterán

  #35616

  #35615 Delila_1

  2017-07-02 15:23:38

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  #35615 Delila_1

  nagy köszönet, de nem teljesen erre gondoltam
  Én azt szeretném látni, hogy melyik műszaknak felel meg az adott időpont. Tehát, hogy A, B, C vagy D.
  Bocsánat ha rosszul fogalmaztam. De köszönöm a fáradozásod, már ebből is tanultam valami újat

• Delila_1 veterán

  #35615

  #35614 Pulsar

  2017-07-02 14:54:40

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35614 Pulsar

  Az E oszlopba betettem a nevezetes időpontokat. Ezek vannak a G oszlopban is, de már általános formátumban (G1-> =E1). A G1:G6 tartományt érdemes saját magára értékként beilleszteni, akkor az E1:E6 feleslegessé válik, törölhető. A B oszlop képlete a G1:H6 tartományra hivatkozik, mikor itt keresi az A oszlopból képzett időpontot. A G:H tartományt teheted máshova is.

  

  A B1 cella képlete lehet az INDEXes helyett
  =FKERES(IDŐ(ÓRA(A1);PERC(A1);0);$G$1:$H$6;2)

• Pulsar veterán

  #35614

  #35613 Delila_1

  2017-07-02 14:12:36

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  #35613 Delila_1

  Köszönöm, valóban (Office 2008-ban PERCEK van, PERC helyett )
  De mégsem lesz ez a jó megoldás.
  Amit meg szerettem volna oldani ezzel, hogy van egy adat halmom időpontokkal, és azt szeretném egy beosztással összepárosítani.
  Tehát hogy a mellékelt képen a B oszlopba (vagy akárhová) írja oda, hogy melyik műszaknak felel meg az adott időpont.
  A ami nehezítés, hogy a Nappalos műszak 5:30-tól van 17:30-ig.
  Milyen megoldással lehetne ezt kivitelezni?
  

• Delila_1 veterán

  #35613

  #35612 Pulsar

  2017-07-02 13:43:07

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35612 Pulsar

  A teljes dátumból kiveheted az időt a

  =IDŐ(ÓRA(A2);PERC(A2);0)

  képlettel. Itt a teljes dátum az A2 cellában van.

• Pulsar veterán

  #35612 2017-07-02 12:34:20

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  Sziasztok,

  Képlettel szeretnék idő alapján feltételeket megadni
  pl:

  =HA(ÉS($L$1>N2;$K$1<N2);"DE";"EJ")
  Ahol L1-et és K1-et én adtam meg 10:00 formában
  Viszont az adataim egy adatbázisból exportált eredmény tábla, ahol pedig a dátum teljes, tehát 2017.06.30 17:21:53 N2 pedig egy formázott cella időre, de óó:pp nem segített rajtam. Mi ilyenkor a megoldás?
  Előre is köszönöm

• AMDPista tag

  #35611

  #35610 Fferi50

  2017-07-02 11:49:48

  Új Válasz

  Ú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

  

  AMDPista

  tag

  #35610 Fferi50

  köszi a segítséget

  sikerült

• Fferi50 Topikgazda

  #35610

  #35609 AMDPista

  2017-07-02 11:22:15

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35609 AMDPista

  Szia!

  Pl. az alábbi képlet jó lehet:
  =SZUMHATÖBB(Munka2!$C$2:$C$13;Munka2!$A$2:$A$13;$A2;Munka2!$B$2:$B$13;B$1)
  Ezt teszed a B2 cellába, majd végighúzod az oszlopokon és a sorokon.
  Ha az eredeti adataid nem a Munka2 munkalapon vannak, helyettesítsd be annak a nevével légy szíves.

  Üdv.

• AMDPista tag

  #35609 2017-07-02 10:26:16

  Új Válasz

  Ú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

  

  AMDPista

  tag

  Sziasztok!

  Excel függvényben tudna valaki segíteni?

  Van két táblázatom. Az első táblázatba szeretném valahogyan a második táblázat adatait függvény segítségével beilleszteni.

  A sárga mezőbe szeretném a második táblázat nevei mellett szereplő értékeket beilleszteni

  

  

  Köszi

• Fferi50 Topikgazda

  #35608

  #35607 Retro11

  2017-07-01 19:34:10

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35607 Retro11

  Szia!

  "Eddig =OFFSET-el próbálkoztam, mindeddig sikertelenül."

  Pedig ott lesz a megoldás, csak kicsit trükközni kell vele:
  =SZUMIFS(OFFSET(Sheet2!$A:$A;0;2*(COLUMN()-1);;1);OFFSET(Sheet2!$B:$B;0;2*(COLUMN()-1);;1);"Product1")
  Mivel 2 oszlopot lépsz, azt figyelembe kell venni az A és B oszlopoktól kiindulva, ezért a 2-es szorzó.

  Üdv.

• Retro11 senior tag

  #35607 2017-07-01 16:10:45

  Új Válasz

  Ú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

  

  Retro11

  senior tag

  Sziasztok,

  Excel készségem eléggé csapnivaló, így problémába ütköztem amire nem igazán találok megoldást. Remélem tudtok segíteni.

  Adott egy SUMIFS formula, ami a 'Sheet1' B3 cellájában található. A "sum range" (B : B), a "criteria range" pedig (A : A) a 'Sheet2'-n. A 'Sheet1' B3 cellában található formula a következő. =SUMIFS(Sheet2!B : B;Sheet2!A : A;"Product1")

  A probléma az, hogy amikor a formulát jobbra húzással másolni szeretném a jobbra levő cellába (C3), akkor a formula a következő lesz. =SUMIFS(Sheet2!C : C;Sheet2!B : B;"Product1"). Ez viszont számomra nem jó.

  A cél ugyanis az lenne, hogy a 'Sheet1' B3 cellában elhelyezett formula jobbra húzással történő másolásakor a 'Sheet2'-n található "sum range" és "criteria range" ne csak egyet lépjen jobbra, hanem kettőt-kettőt, azaz (B : B) változzon (D : D)-re, illetve a (A:A) változzon (C : C)-re, tehát a 'Sheet1"-n található formula NE =SUMIFS(Sheet2!C : C;Sheet2!B : B;"Product1") legyen, hanem =SUMIFS(Sheet2!D : D;Sheet2!C : C;"Product1"), majd ez a pattern ismétlődjön a további jobbra húzásokkor.

  
  

  Eddig =OFFSET-el próbálkoztam, mindeddig sikertelenül.

  Segítségeteket előre is köszönöm.

  Üdv,
  Retro11

• Fferi50 Topikgazda

  #35606

  #35583 lenkei83

  2017-07-01 12:21:44

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #35583 lenkei83

  Szia!

  Sajnos ez nem lehetséges jelenleg. Azt javaslom, hogy egészítsd ki a munkalap nevét egy H ill. egy V betűvel (plusz szóköz esetleg) az elején vagy a végén a listában.
  Esetleg csinálhatsz két oszlopos listboxot, amelyikben szétválasztva sorolod fel a munkalapokat (egyik H, másik V), persze ilyenkor a kiválasztás nem lesz egyértelmű.

  Üdv.

• Delila_1 veterán

  #35605

  #35604 maestro87

  2017-06-30 06:51:21

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #35604 maestro87

  Ezért írtam a "gyalogos" képletet.

  Megoldhatod csoportba foglalással is, csak ott az A oszlopban azonos adatoknak kell lenniük az összegzendő B számok mellett. Ilyenkor a Részösszeg beszúrásakor vedd ki a pipát az "Összeg az adatok alatt" opció elől.
  Hátránya, hogy 2× szerepel majd az összeg, 1× végösszegként, 1× meg mint a csoport összege.

  Szerk.:
  Másik hátrány, hogy új sor felvitelekor újra kell kezdeni a csoportosítást.

• maestro87 őstag

  #35604

  #35603 lappy

  2017-06-29 20:18:40

  Új Válasz

  Ú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

  

  maestro87

  őstag

  #35603 lappy

  Nem megy. Körkörös hivatkozást vagy mit ír ki, ha kivágom az alsó sorból. Meg azt hiszem nem is működik utána.

• lappy őstag

  #35603

  #35602 maestro87

  2017-06-29 19:40:35

  Új Válasz

  Ú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

  

  lappy

  őstag

  #35602 maestro87

  akkor tedd fel a második sorba

• maestro87 őstag

  #35602

  #35597 Delila_1

  2017-06-29 19:15:26

  Új Válasz

  Ú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

  

  maestro87

  őstag

  #35597 Delila_1

  Én nem ilyen manuálisra gondoltam.
  Van a Tervezés menüpontban egy olyan, hogy Összegsor. Ha azt bekapcsolod, akkor automatikusan képzi az oszlopban lévő számok összegét, átlagát, maximumát vagy amit akarsz, merthogy átkapcsolható a cella lenyíló menüjében. Na ezt szeretném felülre hozni.

• Pakliman tag

  #35601

  #35594 exalto

  2017-06-29 18:20:34

  Új Válasz

  Ú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

  

  Pakliman

  tag

  #35594 exalto

  Tedd azt...

  Én csak kicsit kibővítettem a lehetőségeit a SPLIT-nek.
  Nem kötelező kipróbálni sem...

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