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

• #17679 Delila_1 veterán m.zmrzlina #17678

  Új Válasz 2013-04-09 14:22:16 #17679

  Ú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 m.zmrzlina #17678 üzenetére

  Makróban
  dim utvonal$
  utvonal$=range("A1"), ahol az A1 -> C:\almappa\al_almappa\

• #17672 Delila_1 veterán Gandalf80 #17671

  Új Válasz 2013-04-08 21:32:00 #17672

  Ú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 Gandalf80 #17671 üzenetére

  Szívesen.

  Az összes eladás értékének a kiszámításához az utolsó 2 paramétert (B:B;F4) hagyd el, vagy összegezd a termékenkéntieket (micsoda szó! ).

• #17670 Delila_1 veterán Gandalf80 #17669

  Új Válasz 2013-04-08 21:17:14 #17670

  Ú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 Gandalf80 #17669 üzenetére

  A G4 cella képlete =SZUMHATÖBB(C:C;A:A;">=" &$F$2;A:A;"<=" & $H$2;B:B;F4) Ezt lemásolod az alatta lévő két termék mellé.

  

• #17668 Delila_1 veterán Gandalf80 #17666

  Új Válasz 2013-04-08 20:56:10 #17668

  Ú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 Gandalf80 #17666 üzenetére

  NE VOND össze a cellákat az A oszlopban, és minden sorba írd be a dátumot, akkor már erre az oszlopra is hivatkozhatsz a szumhatöbb függvénnyel.
  Ha zavar a sok dátum, az elsőn kívül mindegyiket a háttér színével írd.

• #17667 Delila_1 veterán kekkec #17665

  Új Válasz 2013-04-08 20:51:25 #17667

  Ú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 kekkec #17665 üzenetére

  Ha rögtön a mostani képet adod meg, nem kellett volna duplán dolgozni. Igaz, az elmélet kitalálása volt a nehezebb dolog.

  A színkódokat ismét a 2. lapra kell tenni, mint előzőleg, az A1:C10 tartományba. Ezeket az értékeket kedved, és ízlésed szerint módosíthatod.

  Az új, laphoz rendelt makró:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row < 28 And Target.Row > 2 And Target.Row Mod 2 = 1 Then
  maxx = Application.WorksheetFunction.Max(Range("B" & Target.Row & ":N" & Target.Row))
  R = Application.Transpose(Sheets(2).Range("A1:A10"))
  G = Application.Transpose(Sheets(2).Range("B1:B10"))
  B = Application.Transpose(Sheets(2).Range("C1:C10"))
  hatar1 = maxx * 0.1
  hatar2 = maxx * 0.2
  hatar3 = maxx * 0.3
  hatar4 = maxx * 0.4
  hatar5 = maxx * 0.5
  hatar6 = maxx * 0.6
  hatar7 = maxx * 0.7
  hatar8 = maxx * 0.8
  hatar9 = maxx * 0.9
  
  For oszlop = 2 To 14
  On Error Resume Next
  szam% = Cells(Target.Row, oszlop)
  Set ter = Range(Cells(Target.Row - 1, oszlop), Cells(Target.Row, oszlop))
  Select Case szam%
  Case Is <= hatar1
  ter.Interior.Color = RGB(R(1), G(1), B(1))
  Case hatar1 To hatar2
  ter.Interior.Color = RGB(R(2), G(2), B(2))
  Case hatar2 To hatar3
  ter.Interior.Color = RGB(R(3), G(3), B(3))
  Case hatar3 To hatar4
  ter.Interior.Color = RGB(R(4), G(4), B(4))
  Case hatar4 To hatar5
  ter.Interior.Color = RGB(R(5), G(5), B(5))
  Case hatar5 To hatar6
  ter.Interior.Color = RGB(R(6), G(6), B(6))
  Case hatar6 To hatar7
  ter.Interior.Color = RGB(R(7), G(7), B(7))
  Case hatar7 To hatar8
  ter.Interior.Color = RGB(R(8), G(8), B(8))
  Case hatar8 To hatar9
  ter.Interior.Color = RGB(R(9), G(9), B(9))
  Case Is > hatar9
  ter.Interior.Color = RGB(R(10), G(10), B(10))
  End Select
  Next
  End If
  End Sub

• #17660 Delila_1 veterán elmouse #17659

  Új Válasz 2013-04-08 14:27:24 #17660

  Ú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 elmouse #17659 üzenetére

  Várj, hátha egy vállalkozó szellemű fórumtag megoldja képlettel.

• #17658 Delila_1 veterán elmouse #17657

  Új Válasz 2013-04-08 13:41:52 #17658

  Ú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 elmouse #17657 üzenetére

  A makró a C1 cellába beírja a képletet, ami a mindenkori utolsó 50 tétel átlagát számolja ki.

  Sub utolso_50()
  Dim ucso%
  ucso% = Range("A" & Rows.Count).End(xlUp).Row
  Cells(1, "C") = "=AVERAGE(A" & ucso% - 49 & ":A" & ucso% & ")"
  End Sub

• #17654 Delila_1 veterán Caipi #17653

  Új Válasz 2013-04-08 11:43:31 #17654

  Ú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 Caipi #17653 üzenetére

  A diagramhoz a B5:C7 tartományt jelöld ki.

• #17652 Delila_1 veterán Caipi #17651

  Új Válasz 2013-04-08 11:37:17 #17652

  Ú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 Caipi #17651 üzenetére

  Mi a baj ezzel a megoldással?
  Ha lesz nullánál nagyobb adat a C6 és C7 cellában, akkor majd jobban látszik a diagramon. Most is látszik 0 értékkel.

• #17643 Delila_1 veterán wjani #17642

  Új Válasz 2013-04-07 11:22:05 #17643

  Ú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 wjani #17642 üzenetére

  Ennek csak a címe öröknaptár, de igazából nem az. Megadod egy cellában a kezdő dátumot, azzal indul az A oszlop napja.
  Van viszont egy másik, ami tényleg az, de tegnap hiába tettem fel bármit a Data.hu-ra, nem engedte letölteni. Elküldjem a címedre?

• #17641 Delila_1 veterán Melorin #17640

  Új Válasz 2013-04-06 20:56:06 #17641

  Ú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 Melorin #17640 üzenetére

  Elküldtem email-ben.

• #17639 Delila_1 veterán Melorin #17638

  Új Válasz 2013-04-06 20:44:34 #17639

  Ú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 Melorin #17638 üzenetére

  Feltöltöttem ide.

• #17637 Delila_1 veterán kekkec #17631

  Új Válasz 2013-04-06 17:34:22 #17637

  Ú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 kekkec #17631 üzenetére

  Lehet, hogy már nem jössz vissza ide, de feltöltöttem egy fájlt, ami előállítja a csatolt képed szerinti színeket, mikor a lapon változnak az A oszlopban a számok.
  Ímé.

• #17636 Delila_1 veterán Delila_1 #17635

  Új Válasz 2013-04-06 09:53:00 #17636

  Ú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 Delila_1 #17635 üzenetére

  Reggel rohantam, most egy kicsit módosítottam a makrón. A színek kikavarásához normális értékeket kell írni, hogy jól mutassanak.

  Sub mnmn()
  usor% = Range("A1").End(xlDown).Row
  maxx = Application.WorksheetFunction.Max(Range("A1:A" & usor%))
  hatar1 = maxx * 0.2
  hatar2 = maxx * 0.4
  hatar3 = maxx * 0.6
  hatar4 = maxx * 0.8
  
  For sor% = 1 To usor%
  szam = Cells(sor%, 1)
  If szam < hatar1 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(0, 0, 255)
  If szam >= hatar1 And szam < hatar2 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 50, 100)
  If szam >= hatar2 And szam < hatar3 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(80, 20, 180)
  If szam >= hatar3 And szam < hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 200, 150)
  If szam >= hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(255, 0, 0)
  Next
  End Sub

• #17635 Delila_1 veterán kekkec #17631

  Új Válasz 2013-04-06 08:11:46 #17635

  Ú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 kekkec #17631 üzenetére

  Mit szólsz ehhez? Csak összedobtam, rendes értékeket kell kitalálni a határoknak, és az RGB elemeinek.
  A lap Change eseményéhez kötheted.

  Sub mnmn()
  usor% = Range("A1").End(xlDown).Row
  atlag = Application.WorksheetFunction.Average(Range("A1:A" & usor%))
  hatar1 = atlag * (1 + 0.1)
  hatar2 = atlag * (1 + 0.3)
  hatar3 = atlag * (1 - 0.5)
  hatar4 = atlag * (1 - 0.7)
  hatar5 = atlag * (1 - 0.8)
  
  For sor% = 1 To usor%
  Select Case Cells(sor%, 1)
  Case Is < hatar5
  Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(0, 0, 250)
  Case hatar5 To hatar4
  Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(255, 0, 0)
  Case hatar4 To hatar3
  Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(120, 120, 0)
  Case hatar3 To hatar2
  Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(100, 200, 80)
  Case hatar2 To hatar1
  Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(200, 120, 60)
  End Select
  Next
  End Sub

• #17633 Delila_1 veterán kekkec #17631

  Új Válasz 2013-04-06 07:36:49 #17633

  Ú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 kekkec #17631 üzenetére

  Az a baj, hogy a feltételesen formázott cella színeinek a lekérdezése nem a látható szín kódját adja, hanem a formázás előttit.

  Ha pl. a tartomány háttere eredetileg piros, hiába lesz a feltételes formázással halványsárga, lekérdezéskor 3-as colorindexet, vagy RGB 255-öt kapsz.

• #17629 Delila_1 veterán kekkec #17628

  Új Válasz 2013-04-05 15:30:02 #17629

  Ú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 kekkec #17628 üzenetére

  Nem tudom, én nem vállalkozom rá.

• #17627 Delila_1 veterán bugizozi #17624

  Új Válasz 2013-04-05 15:27:00 #17627

  Ú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 bugizozi #17624 üzenetére

  Nem tudom megnyitni, hibát jelez. Előbb a fájl sérülését jelezte, megkérdezte, akarom-e javíttatni. Akartam.

  Erre

  

• #17626 Delila_1 veterán kekkec #17625

  Új Válasz 2013-04-05 15:23:53 #17626

  Ú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 kekkec #17625 üzenetére

  Semmit. Eddig nem figyeltem fel a színskálára.

• #17623 Delila_1 veterán dellfanboy #17621

  Új Válasz 2013-04-05 14:55:48 #17623

  Ú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 dellfanboy #17621 üzenetére

  Szivi.

• #17622 Delila_1 veterán kekkec #17620

  Új Válasz 2013-04-05 14:54:17 #17622

  Ú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 kekkec #17620 üzenetére

  A színskálával tudtommal csak a kijelölt tartományon belüli számszaki helyzetük szerint lehet formázni a cellákat, a tartományon kívül eső cellák értékei szerint nem.

• #17619 Delila_1 veterán Melorin #17618

  Új Válasz 2013-04-05 14:25:18 #17619

  Ú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 Melorin #17618 üzenetére

  Így add meg a feltételt:
  =ÉS($A1>DÁTUM(2013;3;2);$A1<DÁTUM(2013;4;3))

  Az A helyett $A-t írj, mert a következő oszlopban már a B oszlopban figyeli a feltételt, ha nem rögzíted a $ jellel az oszlopot.

• #17615 Delila_1 veterán alfa20 #17611

  Új Válasz 2013-04-05 12:41:31 #17615

  Ú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 alfa20 #17611 üzenetére

  2. kérdés

  Sub Keplet()
  Dim usor%
  usor% = Range("F2").End(xlDown).Row
  Range("G2:G" & usor%).FormulaR1C1 = "=RC[1]/RC[-1]"
  Range("G:G").Select: Selection.Copy
  Selection.PasteSpecial Paste:=xlValues
  
  Range("H2:H" & usor%).FormulaR1C1 = "=RC[-2]*RC[-1]"
  '********************************************
  Range("H:H").Select: Selection.Copy
  Selection.PasteSpecial Paste:=xlValues
  '********************************************
  
  Application.CutCopyMode = False
  End Sub

  A csillagos sorok közötti rész nem kell, ha a H oszlop képleteit nem kell felülírni az értékeivel.

• #17614 Delila_1 veterán Caipi #17613

  Új Válasz 2013-04-05 12:34:12 #17614

  Ú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 Caipi #17613 üzenetére

  Tegnap, és előtte is hasonlót tapasztaltam, értesítéseket sem kaptam. Mára nálam már rendbejött.

• #17612 Delila_1 veterán dellfanboy #17610

  Új Válasz 2013-04-05 12:16:47 #17612

  Ú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 dellfanboy #17610 üzenetére

  A függvényben idézőjelek között adtad meg a számításokat, ezért szövegként kezeli.

  Változtass az általam küldött minta B1:B4 tartomány értékein, és meglátod, változik az eredmény is.
  A B3 (fix kezelés) értékét is osztom a hónapok számával.

• #17609 Delila_1 veterán Salex1 #17606

  Új Válasz 2013-04-05 11:57:36 #17609

  Ú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 Salex1 #17606 üzenetére

  cells(1,3).copy
  range("A5").select
  selection.pastespecial paste:=xlvalue

  Ez a 3 sor a C3 cella értékét illeszti be az A5 cellába.

  A selection.pastespecial paste:=xlpasteformats a formátumot másolja,
  a selection.pastespecial paste:=xlformulas pedig a képletet.

  cells(1,3).copy cells(5,1) mindent másol.

  Szerk.: elkéstem.

• #17607 Delila_1 veterán dellfanboy #17605

  Új Válasz 2013-04-05 11:46:17 #17607

  Ú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 dellfanboy #17605 üzenetére

  A státuszsorban látszik a B6 cella képlete.
  

• #17604 Delila_1 veterán Melorin #17603

  Új Válasz 2013-04-05 09:00:42 #17604

  Ú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 Melorin #17603 üzenetére

  Megint feltettem.

• #17602 Delila_1 veterán Melorin #17601

  Új Válasz 2013-04-04 19:00:49 #17602

  Ú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 Melorin #17601 üzenetére

  Itt egy fájl.

• #17598 Delila_1 veterán bteebi #17597

  Új Válasz 2013-04-04 13:11:40 #17598

  Ú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 bteebi #17597 üzenetére

  Szívesen.

• #17596 Delila_1 veterán m.zmrzlina #17595

  Új Válasz 2013-04-04 12:47:53 #17596

  Ú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 m.zmrzlina #17595 üzenetére

  Nem biztos, de valószínűleg így kell megadnod a területet:
  Range(Selection)

• #17593 Delila_1 veterán bteebi #17592

  Új Válasz 2013-04-04 12:36:19 #17593

  Ú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 bteebi #17592 üzenetére

  Makróval:

  Sub Szamma()
  Dim ter As Range, CV As Object
  Set ter = Application.InputBox("Jelöld ki a számmá alakítandó területet!" _
  , "Terület bekérése", Type:=8)
  For Each CV In ter
  CV = CV * 1
  Next
  End Sub

• #17590 Delila_1 veterán bteebi #17588

  Új Válasz 2013-04-04 11:08:07 #17590

  Ú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 bteebi #17588 üzenetére

  Látogass el ide.

• #17585 Delila_1 veterán Melorin #17583

  Új Válasz 2013-04-04 09:12:28 #17585

  Ú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 Melorin #17583 üzenetére

  A napok formázásában a B oszlophoz adnék egy új feltételt az ünnepnapokra.
  A füzetben valahol felsorolnám az évben előforduló ünnepek dátumait, és Ünnepek névvel látnám el a tartományt.
  A feltétel képlete =HOL.VAN(B1;Ünnepek;0)
  Ez lesz a 3. feltétel.

  A hét.napja oszlopra sincs szükség.
  a felt. formázás képletei
  1. =HÉT.NAPJA(B1;2)=6
  2. =HÉT.NAPJA(B1;2)=7

• #17584 Delila_1 veterán Melorin #17583

  Új Válasz 2013-04-04 08:48:58 #17584

  Ú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 Melorin #17583 üzenetére

  A helyedben az A oszlopra adnék egy feltételes formázást.
  =HÓNAP(A2)=HÓNAP(A1)
  a karakter színe legyen azonos a háttér színével.

  Még jobb, ha eleve azonos a karakter színe a háttérével, a képlet pedig
  =hónap(a2)>hónap(a1)
  Itt látható színt adsz a karakternek, és egy felső szegélyt a cellának.

• #17582 Delila_1 veterán Melorin #17579

  Új Válasz 2013-04-04 08:11:56 #17582

  Ú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 Melorin #17579 üzenetére

  Egyszerűbben is lehet. Mivel a B oszlopban teljes dátum van, csak a formázás miatt látszik a nap elnevezése, az A1 lehet =B1, a formátummal pedig a hónap nevét jeleníted meg.

• #17576 Delila_1 veterán lappy #17573

  Új Válasz 2013-04-03 17:14:15 #17576

  Ú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 lappy #17573 üzenetére

  Off
  ...eddig minden évben hétfőtől vasárnapig voltak a napok nevei! Nem tudok róla hogy változna!

  Szerintem Melorin tud valamit!
  End Off

• #17575 Delila_1 veterán Delila_1 #17574

  Új Válasz 2013-04-03 17:06:50 #17575

  Ú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 Delila_1 #17574 üzenetére

  Kimaradt. hogy a D oszlop felt. formátumában egy hivalkodó, pl. piros szín legyen a háttér.

• #17574 Delila_1 veterán Melorin #17572

  Új Válasz 2013-04-03 16:55:19 #17574

  Ú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 Melorin #17572 üzenetére

  F1 szövege "Kezdő dátum", F2-é "Utolsó dátum"
  A két dátumot a G1-be és G2-be írd be.

  B2 -> =$G$1
  B3 -> =B2+1 ezt lemásolod, ameddig kell. A B oszlop formátuma nnnn
  C2 -> =HÉT.NAPJA(B2;2) másold
  D2 -> =HA(B2=$G$1;$F$1;HA(B2=$G$2;$F$2;""))

  Úgy látom, a B oszlop feltételes formátumát tudod, a D-é =VAGY(D2=$F$1;D2=$F$2)

• #17550 Delila_1 veterán

  Új Válasz 2013-04-03 07:38:15 #17550

  Ú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

  2 napja nem kapok értesítést az új hozzászólásokról.

  Ti sem, vagy az én készülékemben van a hiba?

• #17549 Delila_1 veterán Mutt #17541

  Új Válasz 2013-04-03 07:36:58 #17549

  Ú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 Mutt #17541 üzenetére

  Még egyszerűbb a darabteli(A2:F21;H2).

• #17534 Delila_1 veterán atillaahun #17532

  Új Válasz 2013-04-02 17:28:39 #17534

  Ú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 atillaahun #17532 üzenetére

  Az első kérdésre:
  Az A oszlopban vannak a nevek.
  B1 ->
  =HA(BAL(A1;2)="dr";JOBB(A1;HOSSZ(A1)-4);HA(BAL(A1;4)="prof";JOBB(A1;HOSSZ(A1)-6);A1))

  C1 ->
  =HA(BAL(A1;2)="dr";B1&" dr.";HA(BAL(A1;4)="prof";B1&" prof.";B1))

  A másodikat próbáld meg a Szövegből oszlopok funkcióval megoldani, ahol határolójelnek a szóközt adod meg. Nem lesz tökéletes, mert pl. az utca neve több szóból is állhat.

• #17533 Delila_1 veterán Melorin #17529

  Új Válasz 2013-04-02 17:13:46 #17533

  Ú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 Melorin #17529 üzenetére

  Összeállítasz egy kis segédtáblát. Első oszlopba a tartományok alsó értéke (31, 41, 51), melléjük a számnak megfelelő minősítő szöveg (közepes, jó, kitűnő) kerüljön. Legyen ez a tartomány a példában a J20:K22.
  Az E24 képlete =FKERES(I20;J20:K23;2;1)

• #17528 Delila_1 veterán wjani #17527

  Új Válasz 2013-04-02 12:44:38 #17528

  Ú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 wjani #17527 üzenetére

  Szívesen.

  Formnál nem szeretem a külön felugró üzeneteket, plusz kattintgatást igényelnek.

• #17526 Delila_1 veterán wjani #17524

  Új Válasz 2013-04-02 12:25:58 #17526

  Ú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 wjani #17524 üzenetére

  Létezik, de ezt elegánsabbnak gondoltam.
  Töröld a figyelmeztetést tartalmazó címkét. A Gomb2-höz tartozó makró így módosul:

  Private Sub Gomb2_Click()
  If Igeny1 = "Nem kérem" Then
  MsgBox "Figyelmeztető szöveg", , "Box címe"
  Igeny2.Visible = True
  IgenyL.Visible = True
  Else
  Igeny2.Visible = False
  IgenyL.Visible = False
  End If
  End Sub

  Ahhoz, hogy a lapok közötti váltásnál csak akkor jelenjen meg a B lap IgenyL címkéje, és az Igeny2 ComboBox, mikor az A lapon a "Nem kérem" szöveg van érvényben, írd be ezt a rövid makrót a többi közé:

  Private Sub MultiPage1_Change()
  Igeny2.Visible = False
  IgenyL.Visible = False
  End Sub

• #17520 Delila_1 veterán wjani #17515

  Új Válasz 2013-04-02 08:00:57 #17520

  Ú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 wjani #17515 üzenetére

  Könnyebb elkészíteni, mint leírni a munka menetét.
  Az előzőnél nem írtam be a figyelmeztető szöveget.
  A ComboBox-ok listáját a RowSource tulajdonságnál adtam meg.

  Letölthető fájl

• #17519 Delila_1 veterán wjani #17515

  Új Válasz 2013-04-02 07:41:00 #17519

  Ú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 wjani #17515 üzenetére

  [link]

• #17517 Delila_1 veterán kekkec #17516

  Új Válasz 2013-04-02 07:02:05 #17517

  Ú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 kekkec #17516 üzenetére

  Az A1-re is add meg ugyanazt a feltételt, amit az A2-re adtál. Ha pl. az A2 háttérszíne a B5 cella értékétől függ, akkor az A1 feltételében is ez a cella szerepeljen.

• #17514 Delila_1 veterán m.zmrzlina #17513

  Új Válasz 2013-04-01 18:12:50 #17514

  Ú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 m.zmrzlina #17513 üzenetére

  Nem hekk, hukk!

• #17512 Delila_1 veterán m.zmrzlina #17511

  Új Válasz 2013-04-01 18:08:31 #17512

  Ú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 m.zmrzlina #17511 üzenetére

  Második kör, felhasználva a makródat.

  Sub szamol()
  Set ter = Application.InputBox("Jelöld ki a terület:", "Terület bekérése", Type:=8)
  For i = 1 To 30
  For Each cella In ter
  If cella.Value = i Then
  mennyi = mennyi + 1
  End If
  Next
  Cells(1, 22) = "Szám": Cells(1, 23) = "Darabszám"
  Cells(i + 1, 22) = i
  Cells(i + 1, 23) = mennyi
  mennyi = 0
  Next
  End Sub

• #17506 Delila_1 veterán vans? #17505

  Új Válasz 2013-04-01 13:40:22 #17506

  Ú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 vans? #17505 üzenetére

  Vegyél fel egy új oszlopot az adataidhoz. Feltéve, hogy az 1–1,2 értékek a B2-től lefelé vannak, az új oszlop képlete legyen =ha(b2>1;"";b2)

  Ezt az oszlopot tedd be diagramba.

• #17504 Delila_1 veterán motinka #17503

  Új Válasz 2013-04-01 11:42:16 #17504

  Ú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 motinka #17503 üzenetére

  Szívesen.

  Írd meg az ötletet Microsoftéknak!
  Egyébként van egy NAGY függvény, ami hasonló eredményt ad, nézd meg.

  Ahhoz egy kicsit variálni kell, mert előfordulhat, hogy több név is szerepel pl. 3-szor. Vegyük, hogy a DARABTELI függvény az F oszlopban van. A G oszlopba teszel egy ilyen képletet: =F2+SOR()*0,00001.
  Ez az F2 cella feltételezett 3-as értékéből 3,00002-t képez, az F3 cella 3-asa 3,00003 lesz.
  A NAGY függvény a G oszlopra hivatkozzon. A SOR() szorzója nagyon kicsi szám legyen, akkora, hogy az egész részt ne növelje a sokadik sorban sem. Mikor ez megvan, az INDEX és HOL.VAN függvény segítségével a megtalált helyezések mellé írathatod a neveket.

• #17502 Delila_1 veterán motinka #17501

  Új Válasz 2013-04-01 10:29:54 #17502

  Ú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 motinka #17501 üzenetére

  A neveket tartalmazó oszlopról készíts egy irányított (speciális) szűrést, ami csak az egyedi rekordokat tartalmazza. A mellette lévő oszlopba a DARABTELI függvénnyel kiíratod, hogy az egyes nevek hányszor szerepelnek az eredeti oszlopban, majd ezt a két oszlopot rendezed a második szerint, csökkenő sorrendbe.

• #17500 Delila_1 veterán csferke #17499

  Új Válasz 2013-03-31 19:01:12 #17500

  Ú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 csferke #17499 üzenetére

  Nagyszerű! Pedig a "Me.MonthView1.Value=??
  ?? = aktuális dátum ( now() ) értéke és ekkor az aktuális hónapot mutatná a naptár" szövegtől kicsit megijedtem, de reméltem, hogy az aktuális dátumra gondoltál. És lőn.

• #17498 Delila_1 veterán Barcley #17497

  Új Válasz 2013-03-31 18:44:46 #17498

  Ú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 Barcley #17497 üzenetére

  Ha megírod privátban a címedet, elküldök egy gyűjteményt, amiben több változatot találsz.

• #17496 Delila_1 veterán m.zmrzlina #17495

  Új Válasz 2013-03-31 17:58:30 #17496

  Ú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 m.zmrzlina #17495 üzenetére

  

• #17494 Delila_1 veterán m.zmrzlina #17491

  Új Válasz 2013-03-31 17:47:05 #17494

  Ú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 m.zmrzlina #17491 üzenetére

  Lapnévből dátum a cellákba:

  Sub mm()
  Dim lap As Integer
  For lap = 2 To 3
  Sheets(1).Cells(lap, 1) = CDate(Sheets(lap).Name)
  Next
  End Sub

• #17492 Delila_1 veterán m.zmrzlina #17491

  Új Válasz 2013-03-31 17:42:10 #17492

  Ú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 m.zmrzlina #17491 üzenetére

  Nem tudod felcserélni a sorrendet? Először a cellákba viszed be a dátumokat, utána alkotsz belőlük lapneveket, majd sorba rakod a lapokat. Ezután jöhet az ellenőrzés.

• #17490 Delila_1 veterán csferke #17473

  Új Válasz 2013-03-31 17:34:05 #17490

  Ú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 csferke #17473 üzenetére

  Nálam Calendar1 névre hallgat a vezérlő, írd át.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If IsDate(Target) Then
  Me.Calendar1.Value = Target
  Else
  Me.Calendar1.Value = Date
  End If
  End Sub

  A Now függvény időértéket ad, az aktuális dátumot a Date adja.

• #17489 Delila_1 veterán m.zmrzlina #17488

  Új Válasz 2013-03-31 17:22:21 #17489

  Ú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 m.zmrzlina #17488 üzenetére

  Mert ebben feltételeztem, hogy nem alakítod át a dátumokat szöveggé. Írtam is, hogy nincs szükség a konvertálásra.

• #17487 Delila_1 veterán Barcley #17486

  Új Válasz 2013-03-31 17:11:45 #17487

  Ú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 Barcley #17486 üzenetére

  Ha nem lett volna az egyszerűbb megoldás, akkor is elég lenne 1 cella változását figyelni. Bármelyik cellát módosítod a sok összetevő közül, az A1 értéke változik.
  Pl. A1=(B1*C20)+m2*(h6-g7)

  Itt elég a B1, C20, M2, H6 és G7 közül bármelyik címet beírni a target.address-be. A következő sor feltételében az A1 cella értékét vizsgálod.

• #17485 Delila_1 veterán m.zmrzlina #17484

  Új Válasz 2013-03-31 17:02:03 #17485

  Ú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 m.zmrzlina #17484 üzenetére

  Ehhez nem kell a dátumokat átalakítani.

  Sub Van_e()
  Dim oszlop%
  
  For oszlop% = 6 To 10
  If Cells(1, oszlop) <> Cells(oszlop + 1) - 1 Then _
  MsgBox "Hiányzik a(z) " & Cells(1, oszlop) + 1 & " dátum."
  Next
  End Sub

• #17483 Delila_1 veterán m.zmrzlina #17482

  Új Válasz 2013-03-31 16:46:34 #17483

  Ú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 m.zmrzlina #17482 üzenetére

  Az F oszlopba íratod a dátumnak látszó értéket. A G oszlopba importálással kerülnek a dátum az értékek?
  Ezek 1 nappal nagyobbak, mint az azonos sorban lévő F-ek? A G oszlopban szövegesek az értékek?

• #17481 Delila_1 veterán m.zmrzlina #17480

  Új Válasz 2013-03-31 16:28:26 #17481

  Ú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 m.zmrzlina #17480 üzenetére

  És az összejött?

• #17479 Delila_1 veterán m.zmrzlina #17477

  Új Válasz 2013-03-31 16:21:57 #17479

  Ú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 m.zmrzlina #17477 üzenetére

  Gyorsabb vagy, és még egyszerűbb is, amit írtál!

• #17478 Delila_1 veterán Barcley #17475

  Új Válasz 2013-03-31 16:18:24 #17478

  Ú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 Barcley #17475 üzenetére

  A Worksheet_Change eseménye annak a cellának a változását figyelje, ami a kérdéses cella képletét megváltoztatja.

  Pl. A1= B1 * C1

  Private Sub Worksheet_Change(ByVal Target As Range)
  if target.address="$B$1" then
  if range("A1")=100 then msgbox "Kapcsolj"
  endif
  end sub

• #17476 Delila_1 veterán m.zmrzlina #17474

  Új Válasz 2013-03-31 16:10:01 #17476

  Ú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 m.zmrzlina #17474 üzenetére

  Range("B1") = Format(Range("A1"), "yyyy.hh.dd.")

  A B1 cellába írja az A1 értékét a megadott formában.

• #17469 Delila_1 veterán csferke #17467

  Új Válasz 2013-03-30 14:43:34 #17469

  Ú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 csferke #17467 üzenetére

  Többen panaszkodtak, hogy nem tudják megjeleníteni a naptár vezérlőt. Most egy olyan, makrót tartalmazó füzetet linkelek, ahol erre nincs is szükség. 2003-as verzió, ami működik a magasabb verziójú Excelekben is.

  A makró a D oszlop bármelyik cellájára kattintva megjeleníti a formot a naptárral, a nap kiválasztása után beírja az értéket az aktuális cellába, majd a fókusz a következő cellára ugrik.

  Ha csakis a D6-ra történő lépéskor akarod a formot megjeleníteni, akkor a Naptár laphoz rendelt makróban az
  If Target.Column = 4 Then Naptar.Show
  sort írd át a következőre:
  If Target.Addres = "$D$4" Then Naptar.Show

  Naptár vezérlő

• #17451 Delila_1 veterán Caipi #17449

  Új Válasz 2013-03-28 14:03:23 #17451

  Ú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 Caipi #17449 üzenetére

  Gyorsabb vagy nálam.

  Szerk.: véletlenül felcserélted a DARABTELI függvény paramétereit.

• #17450 Delila_1 veterán BuktaSzaki #17448

  Új Válasz 2013-03-28 14:02:57 #17450

  Ú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 BuktaSzaki #17448 üzenetére

  A DARABTELI függvénnyel minden cellád mellé beíratod, hány van belőle az oszlopban.
  Ha az A1 cellától vannak az adataid lefelé, a B1 képlete =DARABTELI(A:A;A1). Ezt lemásolod az A oszlop mellé végig.
  Rendezed az A:B oszlopot a B szerint, és ahol a B oszlopban 1-nél nagyobb szám van, törlöd a sort.

• #17413 Delila_1 veterán Caipi #17412

  Új Válasz 2013-03-22 14:15:58 #17413

  Ú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 Caipi #17412 üzenetére

  Az E oszlopban nem a B:D összege van? Ha igen, akkor jó eredményt ad, mert a SZUM függvény egyszerűen nem veszi figyelembe a tartományában lévő, nem szám adatokat.

• #17411 Delila_1 veterán Caipi #17410

  Új Válasz 2013-03-22 14:03:57 #17411

  Ú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 Caipi #17410 üzenetére

  Próbáld ki!

• #17409 Delila_1 veterán Caipi #17408

  Új Válasz 2013-03-22 13:59:06 #17409

  Ú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 Caipi #17408 üzenetére

  A végtelen jelét (fekvő nyolcas) úgy hozhatod létre, hogy a cellát Symbol karakterre állítod, és a bal oldali Alt-ot nyomva tartva a jobb oldali számbillentyűzeten 0165-öt adsz be. Ezt utána másolhatod a többi cellába.
  Az összegzés ezt a cellát figyelmen kívül hagyja.

• #17398 Delila_1 veterán A_ScHuLcZ #17397

  Új Válasz 2013-03-21 10:33:16 #17398

  Ú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 A_ScHuLcZ #17397 üzenetére

  A széttagoltakat más néven mented, az eredeti megmarad, ahogy volt.

• #17391 Delila_1 veterán Mutt #17390

  Új Válasz 2013-03-21 08:48:38 #17391

  Ú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 Mutt #17390 üzenetére

  Klassz, nem jutott eszembe a CÍM függvény.

• #17387 Delila_1 veterán Caipi #17378

  Új Válasz 2013-03-20 19:06:09 #17387

  Ú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 Caipi #17378 üzenetére

  B5 cellába írtam be a =HOL.VAN("Kimutatás2";$A$1:$DZ$1;0) függvényt. A másik erre hivatkozik, az adja meg a találat oszlopának a betűjelét.

  =HA(B5>26;KARAKTER(INT(B5/26)+64)&KARAKTER(MARADÉK(B5;26)+64);KARAKTER(B5+64))

• #17377 Delila_1 veterán Caipi #17376

  Új Válasz 2013-03-20 16:15:37 #17377

  Ú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 Caipi #17376 üzenetére

  Lehet. Kicsit (nem nagyon) körülményes, de csak később érek rá. Lehet, hogy addig kapsz mástól választ.

• #17375 Delila_1 veterán Caipi #17374

  Új Válasz 2013-03-20 16:02:25 #17375

  Ú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 Caipi #17374 üzenetére

  Az INDIREKT függvényt nézd meg, az tudja.

• #17330 Delila_1 veterán Caipi #17329

  Új Válasz 2013-03-19 16:02:22 #17330

  Ú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 Caipi #17329 üzenetére

  Szívesen.

• #17328 Delila_1 veterán Caipi #17326

  Új Válasz 2013-03-19 15:49:37 #17328

  Ú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 Caipi #17326 üzenetére

  Az érvényesítésnél a képlet
  =Ha(A1="Munka1";egyik_lista;másik_lista)

  Egyébként meg nézz el ide.

• #17327 Delila_1 veterán Caipi #17326

  Új Válasz 2013-03-19 15:47:47 #17327

  Ú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 Caipi #17326 üzenetére

  INDIREKT, vagy INDEX függvény való erre.
  =ha(a1="Munka1";index(Munka1!B:B;5;1);index(Munka2!B:B;5;1)

  A választás az A1-ben van, ennek hatására a 2 lap közül az egyik B5 cellájának az értéke lesz az eredmény.

• #17300 Delila_1 veterán Caipi #17299

  Új Válasz 2013-03-18 17:28:09 #17300

  Ú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 Caipi #17299 üzenetére

  Szívesen.

• #17298 Delila_1 veterán Caipi #17297

  Új Válasz 2013-03-18 17:17:19 #17298

  Ú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 Caipi #17297 üzenetére

  =DARAB2(INDIREKT(KARAKTER(HOL.VAN("F";1:1;0)+64) &":" &KARAKTER(HOL.VAN("F";1:1;0)+64)))

  Szép hosszú képlet!

• #17296 Delila_1 veterán Caipi #17295

  Új Válasz 2013-03-18 17:02:28 #17296

  Ú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 Caipi #17295 üzenetére

  =KARAKTER(HOL.VAN(keresendő_érték;1:1;0)+64)

  Ez a képlet az első sorban (1:1) keresi meg a keresendő_értéket, és a találat oszlopának a betűjelét adja eredményül.

• #17292 Delila_1 veterán riffato #17291

  Új Válasz 2013-03-18 13:50:21 #17292

  Ú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 riffato #17291 üzenetére

  Azt nem írtad, hogy az 5 lapon lévő találatokat összegezni akarod-e.
  Ha igen, akkor =fkeres(1. lapon)+fkeres(2. lapon)+ ... fkeres(5. lapon)
  Előfordulhat, hogy valamelyik lapon nem található a keresett érték, ezért hibakezelést is érdemes írni bele.

• #17280 Delila_1 veterán Roley_05 #17277

  Új Válasz 2013-03-15 18:37:19 #17280

  Ú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 Roley_05 #17277 üzenetére

  =INDIREKT(KARAKTER(DARAB(A1:G1)+64)&SOR())

• #17275 Delila_1 veterán mdk01 #17274

  Új Válasz 2013-03-15 15:09:58 #17275

  Ú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 mdk01 #17274 üzenetére

  Ügyes vagy!

• #17273 Delila_1 veterán mdk01 #17272

  Új Válasz 2013-03-15 14:11:03 #17273

  Ú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 mdk01 #17272 üzenetére

  4 segédoszloppal kiszámolhatod.
  L5 -> =HA(G5=1;C5*F5;0)
  M5 -> =HA(H5=1;C5*F5;0)
  N5 -> =HA(I5=1;D5*F5;0)
  O5 -> =HA(J5=1;D5*F5;0)

  A képleteket lemásolod a 64. sorig., és a SZUM(L5:O64) képlettel összegzed.

• #17271 Delila_1 veterán mdk01 #17267

  Új Válasz 2013-03-15 13:09:36 #17271

  Ú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 mdk01 #17267 üzenetére

  A második paraméter 1 legyen, nem "=1".

• #17266 Delila_1 veterán mdk01 #17265

  Új Válasz 2013-03-15 12:06:11 #17266

  Ú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 mdk01 #17265 üzenetére

  Az Excel beállításainál, Népszerű elemek, Alapvető beállítások, Színsémánál választhatsz 3 szín közül, de mindegyiknél úgy állították be, hogy alig látszik a kijelölés.

  Állíthatsz Windows-ban az asztalon jobb klikkre megjelenő tulajdonságoknál. XP-nél a Megjelenés fül, Speciális menüpontban kiválasztod az Elem legördülőben az Ablak-ot, ott állíthatsz be saját színt a majdnem fehér helyett.

• #17243 Delila_1 veterán Mutt #17241

  Új Válasz 2013-03-14 07:07:37 #17243

  Ú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 Mutt #17241 üzenetére

  Köszönöm! Ennek megfelelően módosítva a makró

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ShapeDel As Integer
  Dim wPath As String
  
  If Target.Address = "$A$1" Then
  ShapeDel = ActiveSheet.Shapes.Count
  Do
  If Shapes(ShapeDel).Type <> 8 Then Shapes(ShapeDel).Delete
  ShapeDel = ShapeDel - 1
  Loop While ShapeDel > 0
  Range("B5").Select
  
  Select Case Range("A1").Value
  Case "pic1"
  wPath = ThisWorkbook.Path & "\pic1.jpg"
  ActiveSheet.Pictures.Insert (wPath)
  Case "pic2"
  wPath = ThisWorkbook.Path & "\pic2.jpg"
  ActiveSheet.Pictures.Insert (wPath)
  Case "pic3"
  wPath = ThisWorkbook.Path & "\pic3.jpg"
  ActiveSheet.Pictures.Insert (wPath)
  End Select
  
  End If
  End Sub

  Remélem, whatnot is ellátogat újra.

• #17239 Delila_1 veterán whatnot #17238

  Új Válasz 2013-03-13 16:29:18 #17239

  Ú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 whatnot #17238 üzenetére

  Használd a rongyos régit

• #17236 Delila_1 veterán whatnot #17235

  Új Válasz 2013-03-13 16:15:58 #17236

  Ú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 whatnot #17235 üzenetére

  Megnézem 2010-ben.

  Ebben is a 2. betöltés után meghal az érvényesítés.
  Nem hiába úútálom a 2003-asnál magasabb verziókat.

• #17234 Delila_1 veterán Delila_1 #17233

  Új Válasz 2013-03-13 16:07:53 #17234

  Ú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 Delila_1 #17233 üzenetére

  2003-as verzióban kiváló, 2007-ben az első kép után törli az érvényesítés nyilát.

• #17233 Delila_1 veterán whatnot #17232

  Új Válasz 2013-03-13 16:02:42 #17233

  Ú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 whatnot #17232 üzenetére

  Add meg privátban a címet, elküldöm.

• #17231 Delila_1 veterán whatnot #17230

  Új Válasz 2013-03-13 15:57:05 #17231

  Ú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 whatnot #17230 üzenetére

  Nálam kb. 10 próbáig működött.

  Szerk.: most meg a 20. változtatás után sincs semmi baja, kiválóan működik.

• #17229 Delila_1 veterán whatnot #17227

  Új Válasz 2013-03-13 15:49:46 #17229

  Ú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 whatnot #17227 üzenetére

  Új lapra tedd, hogy első legyen az érvényesítés nyila.

• #17228 Delila_1 veterán whatnot #17227

  Új Válasz 2013-03-13 15:49:04 #17228

  Ú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 whatnot #17227 üzenetére

  Eddig én sem tudtam, most próbáltam ki. Igazából nem az érvényesítés, hanem annak a látható jele, a nyíl a kép. Úgy látszik, ezt veszi első számú képnek – mivel ezt viszed be elsőként a lapra. A For Each ciklussal az összes képet töröltetted, közöttük az elsőt is.

  Több próbát tettem, többször betöltöttem az érvényesítéssel a kiválasztott képet, minden rendben volt, de épp az előző percben megint eltüntette a nyilat.

• #17226 Delila_1 veterán whatnot #17225

  Új Válasz 2013-03-13 15:17:38 #17226

  Ú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 whatnot #17225 üzenetére

  Képként kezeli az érvényesítést is, és törli, amint megváltozik a tartalma.

  Amit változtatnod kell:
  Dim ShapeDel As Integer
  
  For ShapeDel = 2 To ActiveSheet.Shapes.Count
  Shapes(ShapeDel).Delete
  Next

  Az első kép az érvényesítés, ezért indítom a ciklust 2-től.

• #17207 Delila_1 veterán oz82 #17206

  Új Válasz 2013-03-12 11:01:10 #17207

  Ú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 oz82 #17206 üzenetére

  Legyen 2 lap a füzetedben. Egyik az űrlap, a másik, ahol a szövegek vannak 3 oszlopban.
  

  Az űrlapra kiteszel egy űrlap vezérlőelemet, a kombipanelt. A bemenet forrása a másik lap F1:F3 tartománya, cellacsatolás az Űrlap!H1 cella.
  A szövegeket össze-vissza helyeztem el. A B3 cella képlete látszik a szerkesztőlécen. Az INDEX függvény első paramétere a tartomány, ahonnan az adatokat veszed – jelen esetben $A$2:$C$7. Második a sor, az első szöveg esetén ez a tartomány első sora, ez változik a többi képletnél. Harmadik paraméter a tartomány oszlopa, amit a kombipanel csatolt cellájára hivatkozva adhatsz meg.

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