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

• #10838 Delila_1 veterán Fire/SOUL/CD #10837

  Új Válasz 2011-07-12 19:35:20 #10838

  Ú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 Fire/SOUL/CD #10837 üzenetére

  A csúf leírás m.zmrzlina kérdésére volt a válasz, nem tetszett neki a dupla With abban a makróban, amit letöltött valahonnan.

  Szerintem nincs igazad az F1-gyes mondatoddal.
  Más volt a cél, ő a címsort színezi, ha aktív a szűrő, Te üzenetet küldesz.

• #10836 Delila_1 veterán

  Új Válasz 2011-07-12 19:18:46 #10836

  Ú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

  Folytatva az előbb elkezdettet, az eredeti makró

  Function FilterOn(myCell As Range) As Boolean
  On Error Resume Next
  With myCell.Parent.AutoFilter
  With .Filters(myCell.Column - .Range.Column + 1)
  If .On Then FilterOn = True
  End With
  End With
  End Function

  Az első With kezdősorában szerepel a myCell.Parent.AutoFilter, vagyis a megadott cella szülőjének (a munkalapnak) az autofiltere.
  A With és End With közötti ponttal kezdődő hivatkozásokat úgy kell értelni, mint a kezdősorában lévő adat folytatása.

  A második With első sora [.Filters(myCell.Column - .Range.Column + 1)] a fenti autofilterre vonatkozik, az If-es sor pedig erre a filterre.
  Mindent kiírva ez a belső sor így nézne ki:

  If myCell.Parent.AutoFilter.Filters(myCell.Column - myCell.Parent.AutoFilter.Range.Column + 1).On Then FilterOn = True

  és akkor a teljes makró ennyi lenne:

  Function FilterOn(myCell As Range) As Boolean
  Application.Volatile
  On Error Resume Next
  If myCell.Parent.AutoFilter.Filters(myCell.Column - myCell.Parent.AutoFilter.Range.Column + 1).On Then FilterOn = True
  End Function

  Ezzel csak az a baj, hogy nehezen követhető.

• #10835 Delila_1 veterán m.zmrzlina #10830

  Új Válasz 2011-07-12 18:57:37 #10835

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

  A programozók fő erénye a lustaság. Ha nem muszáj, nem írnak le semmit kétszer.
  Aki ezt a rövid makrót írta, nagyon erényes. Szép.letisztult makrót írt.

  Az első With kezdősorában szerepel a myCell.Parent.AutoFilter, vagyis a megadott cella szülőjének (a munkalapnak) az autofiltere.
  A With és End With közötti ponttal kezdődő hivatkozásokat úgy kell értelni, mint a kezdősorban lévő adat folytatása.

  Szerk.: Ezt összezavartam, újra leírom.

• #10832 Delila_1 veterán m.zmrzlina #10831

  Új Válasz 2011-07-12 18:23:36 #10832

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

  Igen, a Volatile a megoldás.

• #10828 Delila_1 veterán m.zmrzlina #10827

  Új Válasz 2011-07-12 17:48:53 #10828

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

  Igazad van, próba nélkül írtam be.

  Olvastam valahol arról, mivel lehet rávenni a saját függvényeket a frissülésre, de most nem találom.

• #10825 Delila_1 veterán m.zmrzlina #10824

  Új Válasz 2011-07-12 16:37:16 #10825

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

  Ez nagyon jó. Azonnal frissül, ha a laphoz ezt az üres makrót hozzárendeled:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  End Sub

  mert figyeli a lapon történt változásokat, és csak frissít.

• #10823 Delila_1 veterán Pityke78 #10813

  Új Válasz 2011-07-12 15:46:16 #10823

  Ú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 Pityke78 #10813 üzenetére

  Játszottam a szűrővel.
  Hagyd üresen az első és második sort, és adj ezeknek a celláknak szöveg formátumot. A lenti makró (gombhoz rendelheted) ezekbe a sorokba kiírja a szűrés feltételeit zöld háttérrel.

  Sub Crit_1_2_sorba() '1:2 sorba írja a feltételeket zöld háttérrel
  Dim AF As AutoFilter, F As Filter, sz$, oszlop%
  
  Set AF = ActiveSheet.AutoFilter
  
  For oszlop% = 1 To AF.Filters.Count
  Range(Cells(1, oszlop%), Cells(2, oszlop%)) = ""
  Range(Cells(1, oszlop%), Cells(2, oszlop%)).Interior.ColorIndex = -4142
  Set F = AF.Filters(oszlop%)
  If F.On Then
  Cells(1, oszlop%) = F.Criteria1
  Cells(1, oszlop%).Interior.ColorIndex = 4
  If F.Operator > 0 Then
  If F.Operator = xlAnd Then sz$ = "és " Else sz$ = "vagy "
  Cells(2, oszlop%) = sz$ & F.Criteria2
  Cells(2, oszlop%).Interior.ColorIndex = 4
  End If
  End If
  Next
  End Sub

• #10822 Delila_1 veterán föccer #10821

  Új Válasz 2011-07-12 14:34:02 #10822

  Ú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 föccer #10821 üzenetére

  A címsorba a feltétel ilyen lenne:

  Sub Krit_A_Cimsorba()
  Dim AF As AutoFilter, F As Filter, i As Long
  
  Sheets("Munka1").Select
  Set AF = ActiveSheet.AutoFilter
  
  For i = 1 To AF.Filters.Count
  Set F = AF.Filters(i)
  If F.On Then
  Cells(1, i).NumberFormat = "@"
  Cells(1, i).Value = Right(F.Criteria1, Len(F.Criteria1) - 1)
  End If
  Next
  End Sub

• #10820 Delila_1 veterán föccer #10819

  Új Válasz 2011-07-12 13:55:24 #10820

  Ú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 föccer #10819 üzenetére

  Csak ez nem azt csinálja. Úgy nézem, a szűrt oszlop utolsó tagját írja a címsorba.

• #10818 Delila_1 veterán Pityke78 #10813

  Új Válasz 2011-07-12 13:49:44 #10818

  Ú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 Pityke78 #10813 üzenetére

  Tegyél ki ehhez a makróhoz egy gombot, a futtatás után a szűrt oszlopok fejléce (1. sor) piros hátterű lesz.

  Sub AutoSzuro()
  Dim AF As AutoFilter, F As Filter, oszlop As Long
  
  Set AF = ActiveSheet.AutoFilter
  For oszlop = 1 To AF.Filters.Count
  Set F = AF.Filters(oszlop)
  If F.On Then
  Cells(1, oszlop).Interior.ColorIndex = 3
  Else
  Cells(1, oszlop).Interior.ColorIndex = -4142
  End If
  Next
  End Sub

  Majd jön ide valaki, aki megmondja, hogy lehet a szűrés változásához hozzárendelni, hogy ne kelljen külön gombot nyomogatni.

• #10812 Delila_1 veterán Honkydoo #10811

  Új Válasz 2011-07-12 12:32:19 #10812

  Ú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 Honkydoo #10811 üzenetére

  A 10782-ben hányadost kerestettél, amit megváltoztattál a 10789-ben. Az újabb válaszra most mindent átírsz.

  Ha szívességet kérsz valakitől – igénybe véve az idejét és esetleges tudását –, vedd a fáradságot, hogy eleve azt kérdezed, amire szükséged van.

  Nézd át jól a makrót, biztosan át tudod írni arra a feladatra, amit pillanatnyilag végre szeretnél hajtatni vele. Miért fordítanék több időt a válaszokra, mikor te, akinek szüksége van a válaszra, nem foglalkozol annyit a dologgal, hogy pontosan leírhatnád a kérdést?!

• #10809 Delila_1 veterán djzomby #10808

  Új Válasz 2011-07-12 11:30:38 #10809

  Ú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 djzomby #10808 üzenetére

  Szivi.

• #10806 Delila_1 veterán djzomby #10805

  Új Válasz 2011-07-12 11:28:37 #10806

  Ú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 djzomby #10805 üzenetére

  http://prohardver.hu/tema/excel/hsz_5227-5227.html

  Itt megtalálod a leírást. Ne zavarjon, hogy régebbi verzióra vonatkozik, a 2007-ben is működik, csak más könyvtárba menti, de ezt önállóan teszi az Excel.

• #10790 Delila_1 veterán Honkydoo #10789

  Új Válasz 2011-07-11 14:07:14 #10790

  Ú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 Honkydoo #10789 üzenetére

  Makróval oldottam meg, mert anélkül nagyon hosszú képletek kellenének.

  Sub kulonbs()
  Dim sor%, sor_1%, usor%
  Columns("G:G").ClearContents
  sor = 5: usor = Range("F50000").End(xlUp).Row
  
  Do While Cells(sor, 2) <> ""
  For sor_1 = 4 To usor
  If Cells(sor, 2) = Cells(sor_1, 6) Then _
  Cells(sor_1, 7) = Cells(sor_1, 7) & " " & Cells(sor, 1)
  Next
  sor = sor + 1
  Loop
  End Sub

  A fenti kódból a Columns("G:G").ClearContents a kigyűjtés előtt törli a teljes G oszlop tartalmát. Ha ez bajt okozna a lapodon, töröld a sort a makróból, és indítás előtt töröld a csatold kép szerinti G4:G8 tartományt.

• #10784 Delila_1 veterán Honkydoo #10782

  Új Válasz 2011-07-11 09:36:03 #10784

  Ú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 Honkydoo #10782 üzenetére

  Az A oszlopban vannak az osztandók. B1 képlete =A1, B2-től lefelé =A2/B1.
  F1-be írtam a keresendő osztót. A C2 cella képlete =HA(A2/$F$1=B2;"Ez az";"")

• #10781 Delila_1 veterán repvez #10780

  Új Válasz 2011-07-09 19:35:44 #10781

  Ú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 repvez #10780 üzenetére

  Az A2:A35 szabálya ez legyen: =DARABTELI(B2:H2;"lox")=0

  A B2:H35 tartománynál töröld a
  =VAGY(B2="lox";B2="pihenő";B2="szabi";B2="véradó";B2="eü";B2>0)
  szabályt, helyette egyenként vidd be a listád adatait így:
  =b2="lox" , adj neki színt, jön a következő: =B2="pihenő" , ennek is adsz egy másik színt, és így tovább. Végül az óraszám színezéséhez a képlet: =SZÁM(B2)

  A lox-hoz nem jól írtad be a képletet a feltételes formázáshoz, vagy nem a B2:H35 tartomány volt kijelölve a képlet beírásakor, azért nem lett jó.

• #10779 Delila_1 veterán repvez #10778

  Új Válasz 2011-07-09 14:53:29 #10779

  Ú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 repvez #10778 üzenetére

  Célszerűbb a sok nap miatt abban a formában megadni az adatokat, ahogy AE ajánlotta.

  

  A címsor és címoszlop bevitele után kijelölöd az A2:A35 tartományt, és a feltételes formázásnál új szabályként (A formázandó cellák kijelölése képlettel almenüben) ezt adod meg: =I2=0, és adsz hozzá egy formátumot. Én zöld kitöltést adtam azért, mert az a nap még szabad, be kell osztani oda valaki(ke)t. A képlet azt jelenti, hogy ha az I oszlopban nincs még összesített óraszám, akkor jelölje a napot a megadott formátummal.

  Most kijelölöd a B2:H35 tartományt. Adatok - Érvényesítés. A Megengedve legördülőből kiválasztod a Listát, a Forráshoz pedig beírod sorban az 5 kiválasztható elemet (lox és társai), közéjük tegyél pontosvesszőt. Nem írtam szándékosan a 6. elemet, a 8-at, mert előfordulhat, hogy valaki eltérő óraszámot dolgozik. Éppen ezért, hogy a felsoroltakon kívül mást is be lehessen vinni a tartományba, a Hibajelzés fülön vedd ki a pipát az "Érvénytelen adat beírásakor hibaüzenet jelenjen meg" szöveg előtti jelölő négyzetből. OK után minden cellában benne lesz a legördülő.

  Az I2 cellába írd be: =SZUM(B2:H2)+DARABTELI(B2:H2;"lox")*24, és másold le a 35. sorig.

  A B36 képlete: =SZUM(B2:B35)+DARABTELI(B2:B35;"lox")*24, ezt másold jobbra a H36 celláig.

  Az I36-ba az =SZUM(I2:I35) képlet kerül.

  Most jön a színezés. Újra kijelölöd a B2:H35 tartományt. A feltételes formázásnál "Új szabály", ismét "A formázandó cellák kijelölése képlettel", az "Értékek formázása, ha ez a képlet igaz:" felirat alá beírod: =VAGY(B2="lox";B3="lox";B4="lox"), és adsz neki formátumként egy hátteret, ami nálam piros.

  Újabb szabály ugyanerre a területre, a képlete:
  =VAGY(B2="lox";B2="pihenő";B2="szabi";B2="véradó";B2="eü";B2>0)
  Ez is kap egy háttérszínt, nálam sárga.

  Ezzel kész is a mű.

• #10776 Delila_1 veterán repvez #10775

  Új Válasz 2011-07-09 11:57:32 #10776

  Ú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 repvez #10775 üzenetére

  Nehezen vergődünk - vagy sehogy - zöld ágra.
  A szabadságot is el kell számolni, de hány órával? 12-vel, 8-cal?
  És az eü-t, a véradót?
  Ha egy cellában lox van, akkor gondolom, a következő 3 cellát szeretnéd kiszínezni.

• #10772 Delila_1 veterán repvez #10771

  Új Válasz 2011-07-09 07:37:59 #10772

  Ú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 repvez #10771 üzenetére

  Fukar kezekkel méred az információt, így nem várhatsz segítséget.

  Gondolom, a B3:AF10 tartományba szeretnéd bevinni legördülő segítségével a lox, pihenő, stb. értékeket, de azt nem közölted, hogy a 8 órán kívül melyiket hány órával kell elszámolni, melyik után hány nap szünet következik.

• #10770 Delila_1 veterán repvez #10769

  Új Válasz 2011-07-08 18:52:45 #10770

  Ú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 repvez #10769 üzenetére

  Tegyél ki egy képet a lapodról, legalább az is kiderül, melyik verziót használod.

• #10768 Delila_1 veterán repvez #10763

  Új Válasz 2011-07-08 15:04:08 #10768

  Ú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 repvez #10763 üzenetére

  A feltételes formázáshoz ezen a fórumon sok példát találhatsz, az Excelnek minden használatos verziójához.

• #10767 Delila_1 veterán q13579 #10766

  Új Válasz 2011-07-08 15:02:46 #10767

  Ú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 q13579 #10766 üzenetére

  Lehet, hogy az üresnek látszó cellák nem üresek, valami képlet, vagy nem látszó karakter (pl. szóköz) van bennük.
  Lekérdezheted az =hossz(cellahivatkozás) függvénnyel a hosszukat, akkor kiderül a disznóság. Bár képlet esetén nulla értéket ad ez a függvény, de a másik esetben a hossz értéke jelzi a nem látható karaktereket.

  Szerk.: közben kipróbáltam, hogy a két cella közül az egyikbe szóközt teszek, akkor is jó az eredmény (csak a számot tartalmazó cella értékét hozza összegként).
  Valószínű, hogy bár számoknak látszanak a tartalmak, szöveg formában vannak felvíve.
  Megoldás: egy üres cellába beírsz egy 1-est, Ctrl+c-vel másolod. Kijelölöd a két oszlopot, amik a látszólagos számokat tartalmazzák, jobb klikk, Irányított beillesztés, Szorzás.
  Ezzel az oszlopok tartalma számmá változik, el tudod végezni az összegzést. A beírt 1-est törölheted.

• #10764 Delila_1 veterán djzomby #10761

  Új Válasz 2011-07-08 14:15:13 #10764

  Ú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 djzomby #10761 üzenetére

  If Range("A1").Font.ColorIndex = 3 Then Range("B1") = "piros"

  Ez a sor a B1-be beírja a "piros" szót, ha az A1 karakterei piros színre vannak állítva.
  Kiindulásnak biztos elég, ha nem, jelezd.

• #10755 Delila_1 veterán fess #10744

  Új Válasz 2011-07-06 16:38:33 #10755

  Ú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 fess #10744 üzenetére

  A működéshez tedd meg az alábbi lépéseket:
  Office gomb, Az Excel beállításai, Bővítmények. Balra lent a Kezelések közül Excel bővítmények, Ugrás, a kapott felsorolás első két bővítménye elé tegyél pipát, OK.

  Az első (gyűjtő) lapodhoz rendelve marad a

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then karbantart
  End Sub

  makró, ami figyeli az A1 cella változását.A modulba kerül a másik makró,

  Sub karbantart()
  Dim sorGy%, lap%, sorLap%, usorLap%
  sorGy% = 2
  Sheets(1).Select
  
  Rows("2:10000").ClearContents
  For lap% = 2 To Worksheets.Count
  Sheets(lap%).Select
  usorLap% = Sheets(lap%).Range("A50000").End(xlUp).Row
  For sorLap% = 2 To usorLap%
  If Cells(sorLap%, 5) + Cells(sorLap%, 6) <= Sheets(1).Cells(1) Then
  Range(Cells(sorLap%, 1), Cells(sorLap%, 6)).Copy Sheets(1).Cells(sorGy%, 1)
  sorGy% = sorGy% + 1
  End If
  Next
  Next
  Sheets(1).Select
  End Sub

  ami a kigyűjtést végzi. A számítás alapja, hogy az egyes lapokon az utolsó karbantartás idejéhez hozzáadja a következő karbantartáshoz szükséges napokat (E+F), és ha ez a nap kisebb, vagy egyenlő, mint a gyűjtő lap A1 cellájába írt dátum, akkor bemásolja az egyes alkatrészek adatait a lapokról az A:F oszlopokból.

• #10738 Delila_1 veterán Fire/SOUL/CD #10737

  Új Válasz 2011-07-04 15:37:03 #10738

  Ú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 Fire/SOUL/CD #10737 üzenetére

  Csak éppen nagy munkában vagyok, ez meg úgy működik, ahogy kell...

  Ideje volt már, hogy visszatérj a hosszas távolléted után.

• #10736 Delila_1 veterán Fire/SOUL/CD #10735

  Új Válasz 2011-07-04 15:27:18 #10736

  Ú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 Fire/SOUL/CD #10735 üzenetére

  Nem változtatok, így jó, ahogy van (legalábbis nekem ).

  Ha bármelyik feltétel nem igaz az ÉS-sel összekötöttek közül, vagyis bármelyik fkeres megtalálja a keresett értéket, akkor a HA függvény hamis ága íródik ki.

• #10734 Delila_1 veterán Fire/SOUL/CD #10733

  Új Válasz 2011-07-04 14:51:09 #10734

  Ú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 Fire/SOUL/CD #10733 üzenetére

  Ha IGAZ, hogy HIBÁS az első fekeres, ÉS IGAZ, hogy HIBÁS a 2. fekeres, és IGAZ, hogy HIBÁS a 3. fkeres, akkor ad NOK kimenetet.

• #10732 Delila_1 veterán Fire/SOUL/CD #10731

  Új Válasz 2011-07-04 14:30:43 #10732

  Ú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 Fire/SOUL/CD #10731 üzenetére

  Az én képletem azt vizsgálja, hogy ha mindhárom oszlopban hibára fut az fkeres, akkor NOK eredményt ad, egyébként OK a kimenet.

  Ezt egyszerűbbnek tartom.

• #10730 Delila_1 veterán Fire/SOUL/CD #10729

  Új Válasz 2011-07-04 14:05:28 #10730

  Ú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 Fire/SOUL/CD #10729 üzenetére

  Ha valamelyik tartományban szerepel, akkor OK.

• #10728 Delila_1 veterán cortez25 #10725

  Új Válasz 2011-07-04 07:02:19 #10728

  Ú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 cortez25 #10725 üzenetére

  Itt a K2 képlete arra az esetre, ha a 3 oszlopban (G;H;I) az adatok a $G$2:$I$10 tartományban vannak:

  =HA(ÉS(HIBÁS(FKERES(J2;$G$2:$G$10;1;0));HIBÁS(FKERES(J2;$H$2:$H$10;1;0));HIBÁS(FKERES(J2;$I$2:$I$10;1;0)));"NOK";"OK")

• #10716 Delila_1 veterán cortez25 #10715

  Új Válasz 2011-07-03 18:50:55 #10716

  Ú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 cortez25 #10715 üzenetére

  m.zmrzlina a szádba rágta a megoldást, egy ici-pici gondolkozással meg tudod önállóan is oldani.

• #10707 Delila_1 veterán moni69 #10706

  Új Válasz 2011-07-02 18:26:16 #10707

  Ú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 moni69 #10706 üzenetére

  Nincs mit.

• #10705 Delila_1 veterán moni69 #10704

  Új Válasz 2011-07-02 18:12:04 #10705

  Ú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 moni69 #10704 üzenetére

  Ha az A1-ben van a 12:20, B1-ben az 1500, akkor az =ÓRA(A1)*B1+PERC(A1)/60*B1 képlettel megkapod a 18500-at.

• #10668 Delila_1 veterán bugizozi #10666

  Új Válasz 2011-06-30 08:56:19 #10668

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

  

• #10664 Delila_1 veterán bugizozi #10663

  Új Válasz 2011-06-30 08:34:30 #10664

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

  A C1 képlete legyen

  =HA(HIBÁS(FKERES($A$2;B:B;1;0));HOL.VAN($A$2;B:B;1)+1;HOL.VAN($A$2;B:B;0))

  (ezt írhatod a háttér színével, hogy ne zavarjon), a feltételes formázásé pedig =SOR()=C$1

• #10660 Delila_1 veterán DjSteve85 #10658

  Új Válasz 2011-06-30 06:53:52 #10660

  Ú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 DjSteve85 #10658 üzenetére

  Egy apró kiegészítés cousin333 válaszához:

  Amikor nem talál a helységnévhez megfelelő irányítószámot az FKERES függvény, akkor nulla értéket ad. Az

  =HA(FKERES(A1;Fülneve!A:B;2;0)="";"Hiányzik az irányítószám";FKERES(A1;Fülneve!A:B;2;0))

  függvény ezt kiküszöböli.

  Az FKERES függvény tartományát ki lehet terjeszteni a teljes A:B oszlopra, nem szükséges a kezdő- és befejező sort beírni.

• #10653 Delila_1 veterán fess #10652

  Új Válasz 2011-06-29 19:39:05 #10653

  Ú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 fess #10652 üzenetére

  Ha nem világos, mi az a laphoz rendelés, és a modulba írás, találsz itt a fórumon néhány példát rájuk.

• #10647 Delila_1 veterán bugizozi #10643

  Új Válasz 2011-06-29 16:59:39 #10647

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

  A B3:B17 képlete a feltételes formázásban:

  =SOR()=HOL.VAN($A$2;B:B;1)+1

• #10646 Delila_1 veterán fess #10635

  Új Válasz 2011-06-29 16:47:20 #10646

  Ú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 fess #10635 üzenetére

  Az két makró ezt csinálja:
  Ha az első lap A1 cellájába beírod a dátumot, automatikusan indul a kigyűjtés erre a lapra, A2-től kezdődően. A beírás indítja az első makrót, ami nekilódítja a másikat.

  Az utóbbi végigszalad a másodiktól az utolsó lapig. Minden lapon végignézi az A oszlopban tárolt dátumokat soronként (amik feltehetően az utolsó karbantartás dátumai).
  Ahol az első lap A1-es dátumánál 90 nappal, vagy annál régebbi dátumot talál, a sor első 15 oszlopát (A:O oszlopok) átmásolja az első lapra egymás alá.

  Ahhoz, hogy automatikusan induljon a kért dátum beírásakor, 2 makró szükséges.
  Az elsőt a gyűjtő (első) laphoz rendeld, a másodikat modulba.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then karbantart
  End Sub
  .
  Sub karbantart()
  Dim sorGy%, lap%, sorLap%, usorLap%
  sorGy% = 2
  Rows("2:10000").ClearContents
  For lap% = 2 To Worksheets.Count
  Sheets(lap%).Select
  usorLap% = Sheets(lap%).Range("A65000").End(xlUp).Row
  For sorLap% = 2 To usorLap%
  If Sheets(1).Cells(1) - Sheets(lap%).Cells(sorLap%, 1) >= 90 Then
  Range(Cells(sorLap%, 1), Cells(sorLap%, 15)).Copy Sheets(1).Cells(sorGy%, 1)
  sorGy% = sorGy% + 1
  End If
  Next
  Next
  Sheets(1).Select
  End Sub

  Ha több oszlopod van, mint 15, a
  Range(Cells(sorLap%, 1), Cells(sorLap%, 15)).Copy Sheets(1).Cells(sorGy%, 1)
  sorban írd át a 15-öt.

• #10612 Delila_1 veterán Pityke78 #10611

  Új Válasz 2011-06-28 10:14:53 #10612

  Ú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 Pityke78 #10611 üzenetére

  Próbáld meg egy másik cellában az =ÉRTÉK(A1) függvénnyel.

• #10603 Delila_1 veterán m.zmrzlina #10602

  Új Válasz 2011-06-24 20:19:24 #10603

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

  Neked is!

• #10601 Delila_1 veterán m.zmrzlina #10600

  Új Válasz 2011-06-24 20:12:46 #10601

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

  Nem pontos a meghatározásod.
  "Erre a te színlekérdezős makród is azt válaszolja (akármilyen színe van a háttérnek) hogy átlátszó." Arra ír átlátszót, ami a feltételes formázás előtt átlátszó.

  Biztosan le lehet külön-külön kérdezni RGB szerint, mármint az alapszínt, de már nagyon péntek este van ahhoz.

• #10599 Delila_1 veterán m.zmrzlina #10598

  Új Válasz 2011-06-24 20:01:48 #10599

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

  Ja, hogy előállítottál egy színátmenetes formázást, és abból szeretnéd megtudni egy közbenső szín paramétereit?

• #10597 Delila_1 veterán m.zmrzlina #10596

  Új Válasz 2011-06-24 19:46:51 #10597

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

  Nem az üreset, hanem a feltételes formázás nélkülit. Ha alapállásban sárga a háttér, annak a kódját adja meg.
  Állíts egy cellát alapban arra a színre, amit majd a feltétellel akarsz létrehozni, és ezt kérdezd le.

  Nekem a personal.xls-ben van egy kis makróm erre a célra, mert időnként le akarok kérdezni 1-1 színt. Kitettem hozzá egy ikont.

  Sub Szín_lekérdezés()
  If Selection.Font.ColorIndex = -4105 Then
  MsgBox "A karakter színkódja: " & " fekete (automatikus, -4105)"
  Else
  MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " "
  End If
  If Selection.Interior.ColorIndex = xlNone Then '-4142
  MsgBox "A cella hátterének színkódja: " & " átlátszó, -4142"
  Else
  MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " "
  End If
  End Sub

• #10595 Delila_1 veterán Pá #10593

  Új Válasz 2011-06-24 19:37:19 #10595

  Ú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 Pá #10593 üzenetére

  Ezt a kis cirkuszt egyszer kell megcsinálnod, 2 perc az egész. Utána már automatikusan működik, mert a felt. formázásnál az E oszlop celláira hivatkozva adod meg a határokat.

• #10594 Delila_1 veterán m.zmrzlina #10591

  Új Válasz 2011-06-24 19:34:44 #10594

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

  A formátumfestő ecsettel simán másolható a formátum.

• #10592 Delila_1 veterán Pá #10589

  Új Válasz 2011-06-24 19:18:09 #10592

  Ú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 Pá #10589 üzenetére

  Kikeresed a tartomány max. és min. értékeit, ezek különbségét osztod annyival, ahány árnyalatban akarod megjeleníteni a karaktereket.
  A csatolt képen a B1 a min., C1 a max., D1 az osztás, és az E1:E6 tartomány adja a határértékeket a feltételes formázáshoz. Kerekítheted is a számokat.
  A formázást meg úgy tedd, ahogy m.zmrzlina ajánlotta.

  

  Szerk.: semmi szükség a HA függvényre, elég az =$B$1+$D$1*SOR()-1 az E2 cellától, az első érték (E1) a min. érték legyen.

• #10581 Delila_1 veterán Pá #10580

  Új Válasz 2011-06-24 07:52:18 #10581

  Ú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 Pá #10580 üzenetére

  Önmagára mutatást nem írhatsz, de a számok melletti oszlopba beteheted a következő képletet a B2 cellától kezdve:

  =HA(A1>A2;"ň";HA(A2=A1;"ů";"ń"))

  A képletet tartalmazó oszlop legyen Wingdings karakterű.

  

  Arra az esetre, ha nem sikerülne valamiért a képlet beillesztése, a C:E oszlopba beírtam a karakterek kódját, de választhatsz helyettük bármi mást.

• #10578 Delila_1 veterán bnorci71 #10577

  Új Válasz 2011-06-22 18:04:44 #10578

  Ú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 bnorci71 #10577 üzenetére

  Küldd el a fájlt, hátha többre megyek vele!

• #10576 Delila_1 veterán pameli79 #10575

  Új Válasz 2011-06-22 16:17:40 #10576

  Ú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 pameli79 #10575 üzenetére

  A színezést sejtettem abból, hogy feltételes formázást akarsz bevinni.

  Ha nem akarod elküldeni a fájlt, tegyél ki róla egy képet. Lehetnek hamisak az adatok, csak a felépítés egyezzen meg a valóságossal.

• #10574 Delila_1 veterán pameli79 #10572

  Új Válasz 2011-06-22 14:50:15 #10574

  Ú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 pameli79 #10572 üzenetére

  Ez érdekes feladatnak tűnik, küldd el a fájlt, és hozzá részletes leírást arról, hogy mit is szeretnél kihozni belőle.

• #10525 Delila_1 veterán bnorci71 #10520

  Új Válasz 2011-06-15 17:55:42 #10525

  Ú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 bnorci71 #10520 üzenetére

  Írtam hozzá egy makrót, amit az excel1.xls füzetedhez másolj be.
  Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztod az excel1-et, Insert menü, Module.
  Jobb oldalon kapsz egy üres lapot, oda másold.

  Ha nem excel1 és excel2 a füzeteid neve, írd át a saját neveidre. Ugyanúgy a Munka1 lap nevét is, ha nálad más a lapok neve. Mindegyik füzet neve egyszer szerepel a makróban, a hozzá tartozó Munka1 lappal egy sorban.
  A makró futtatásakor legyen mindkét füzeted nyitva.

  Sub kieg()
  Dim sor%, usor%, lel, sor_lel%, WS As Object
  
  Workbooks("excel1.xls").Sheets("Munka1").Activate
  usor% = Range("C60000").End(xlUp).Row
  Set WS = Workbooks("excel2.xls").Sheets("Munka1")
  
  For sor% = 2 To usor%
  With WS.Columns("I:I")
  Set lel = .Find(Cells(sor%, "E"), LookIn:=xlValues)
  sor_lel% = lel.Row
  If Not lel Is Nothing And WS.Cells(sor_lel%, "D") > "" Then
  Cells(sor%, "C") = Cells(sor%, "C") & ". " & WS.Cells(sor_lel%, "D")
  End If
  End With
  Next
  End Sub

• #10517 Delila_1 veterán m.zmrzlina #10516

  Új Válasz 2011-06-14 18:14:55 #10517

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

  Azonos területről azonos területre másoltam az adatokat a két makróval, közben nem változtattam semmi mást.

  Nem is számít, hiszen Nálad jól működik, nekem meg nem kell, és ha kellene, az átírt makróval nálam is jól megy.

• #10515 Delila_1 veterán m.zmrzlina #10514

  Új Válasz 2011-06-14 17:51:09 #10515

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

  Ez jó kérdés!

• #10513 Delila_1 veterán m.zmrzlina #10512

  Új Válasz 2011-06-14 17:46:32 #10513

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

  Igen, ott 2-t kellett volna levonni.
  Valamiért ez mégis tudja a 2,9-et.

• #10510 Delila_1 veterán vgergo #10509

  Új Válasz 2011-06-14 16:45:11 #10510

  Ú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 vgergo #10509 üzenetére

  Eddig elfelejtetted megemlíteni, hogy nem VBA-ban írsz, hiába futom a köröket.
  A C++-hoz nem értek, várj, amíg befut valaki, aki ismeri.

• #10508 Delila_1 veterán vgergo #10507

  Új Válasz 2011-06-14 16:25:41 #10508

  Ú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 vgergo #10507 üzenetére

  Úgy értettem a dolgot, hogy a hosszú számok pl az A oszlopban vannak.
  A csv fájllá alakítás előtt a makródban meghatározod az alsó sort:
  as=range("a1000").end(xlup) ,
  a következő sor range("a1:a" & as)=range("a1:a" & as)&""

  A behíváshoz rögzítesz egy makrót, ami tudja a számkénti megjelenítést, ehhez teszel ki nekik 1-1 gombot az eszköztárra.

• #10506 Delila_1 veterán vgergo #10505

  Új Válasz 2011-06-14 16:09:24 #10506

  Ú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 vgergo #10505 üzenetére

  Ha Te adod meg az outputot, szövegként kellene mentened a számokat úgy, hogy & jellel hozzájuk fűzöl egy üres stringet.
  Beolvasásnál van valami olyan opció, hogy számnak értelmez mindent, ami annak látszik.

• #10504 Delila_1 veterán vgergo #10502

  Új Válasz 2011-06-14 15:56:07 #10504

  Ú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 vgergo #10502 üzenetére

  Húzd szélesebbre az oszlopot, adj neki általános formát.

• #10503 Delila_1 veterán m.zmrzlina #10501

  Új Válasz 2011-06-14 15:54:07 #10503

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

  Nálam egész számokat adott a 2.9, vagy a 0.2 helyett.
  Nem tudom már, mi volt a makróink között a különbség, ide rajzolom az enyémet.
  A value legtöbb helyen alapérték, nem kell kiírni, anélkül is 50 cm a változó meghatározása.

  Sub kiemel()
  Dim cella As Range, kiemeles As String
  
  For Each cella In Selection.Cells
  kiemeles = WorksheetFunction.Substitute(Mid(cella, WorksheetFunction.Search("(", cella) + 1, _
  WorksheetFunction.Search("%", cella) - WorksheetFunction.Search("(", cella) - 1), ".", ",")
  Worksheets("Munka2").Cells(cella.Row - 10, cella.Column) = kiemeles * 1
  Next
  End Sub

• #10500 Delila_1 veterán bnorci71 #10498

  Új Válasz 2011-06-14 13:52:41 #10500

  Ú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 bnorci71 #10498 üzenetére

  Az adatok az A1-ben kezdődnek mindkét fájlban, vagy máshol, azonos sorokban, vagy nem?
  Az excel1 első sora azonos az excel2 első sorával, vagy az excel2 első sora már tartalmazza a plusz adatokat? Az excel2-ben az emelet és ajtó a címmel azonos cellában szerepel, vagy külön? Ezek az adatok fontosak.

  Kicsit bőkezűbben bánhatnál a vesszőkkel, háromszor elolvastam az írásodat, mire úgy-ahogy megértettem, mi a lényeg. Talán csatolhatnál 2 képet a két fájl elrendezéséről.

  Az sem mindegy, hogy az Excelnek melyik verzióját használod, írd meg.

• #10499 Delila_1 veterán Zomb€€ #10497

  Új Válasz 2011-06-14 13:06:52 #10499

  Ú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 Zomb€€ #10497 üzenetére

  Ismét szívesen.

• #10496 Delila_1 veterán Zomb€€ #10495

  Új Válasz 2011-06-14 11:18:17 #10496

  Ú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 Zomb€€ #10495 üzenetére

  Végül csak sikerült megoldanod.

  A kérdés letiltása a mentés előtt
  Application.DisplayAlerts=False

  True értékkel állítsd vissza a mentés után.

• #10493 Delila_1 veterán bugizozi #10492

  Új Válasz 2011-06-14 09:33:53 #10493

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

  Szívesen. A feladathoz igazodott a válasz egyszerűsége.

• #10491 Delila_1 veterán gigi183 #10487

  Új Válasz 2011-06-14 09:03:22 #10491

  Ú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 gigi183 #10487 üzenetére

  Szívesen. Mire jutottál?

• #10490 Delila_1 veterán m.zmrzlina #10485

  Új Válasz 2011-06-14 09:02:29 #10490

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

  Kell a ciklus? Ha a teljes tartományt akarod másolni feltételek nélkül, akkor elég ez is a Munka2 lapon állva:

  range("a1:d100").copy sheets("Munka3").range("a10")

• #10489 Delila_1 veterán bugizozi #10488

  Új Válasz 2011-06-14 08:58:02 #10489

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

  Az A1 cellában lévő dátum hónapja a B1-ben: =A1, és a cellaformátumot a B1-ben állítsd egyénire, ahol a formátumkód legyen hhhh.

• #10484 Delila_1 veterán gigi183 #10475

  Új Válasz 2011-06-13 08:53:19 #10484

  Ú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 gigi183 #10475 üzenetére

  Nézd meg a 10482, és 10483-as hozzászólásokat. Az utóbbiban m.zmrzlina az Nts oszlopban a nullára átírt értéket is törölteti.

  m.zmrzlina
  Ha nincs szükség az Nts oszlopban a nulla értékre, igazad van, minek zsúfoskodjon ott.

• #10482 Delila_1 veterán gigi183 #10474

  Új Válasz 2011-06-13 08:30:22 #10482

  Ú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 gigi183 #10474 üzenetére

  A makróban a
  Range(Cells(sor, oszlop - 2), Cells(sor, oszlop - 1)) = ""
  sort írd át
  Range(Cells(sor, oszlop - 3), Cells(sor, oszlop - 1)) = ""-re.

  Eltévesztettem, és az Nts-től balra csak 2 oszlop értékeit töröltettem.

• #10481 Delila_1 veterán m.zmrzlina #10480

  Új Válasz 2011-06-13 08:12:18 #10481

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

  Ez jó hír.

• #10479 Delila_1 veterán m.zmrzlina #10476

  Új Válasz 2011-06-13 07:55:14 #10479

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

  A ws.Range("B1").End(xlDown).Row annak a műveletnek a VB-s leírása, mikor a B1 cellán állva Ctrl+le nyilat nyomsz. Ha üres a B oszlop, vagy csak a B1-ben van érték, a fókuszod ilyenkor az alsó, 1048576. sorodra áll.

  Mivel az usor% változó értékét
  usor% = ws.Range("B1").End(xlDown).Row + 1 -ként adtuk meg, ez a 1048577. sort adja meg a változónak, ami eggyel több, mint amit az Excel lelke kibír. Ezért jelez joggal túlcsordulást.

• #10478 Delila_1 veterán gigi183 #10474

  Új Válasz 2011-06-13 07:44:56 #10478

  Ú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 gigi183 #10474 üzenetére

  Az Nts oszloptól balra lévő hármat fixen írod be, vagy valami képlet adja az értéküket?
  Ha fixen, az alábbi egyszerű kis makró megoldja a lenullázást.

  A makrót ahhoz a laphoz kell rendelned, amelyiken ezt a műveletet végre akarod hajtani. Lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra kell bemásolnod.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 5 And Target = 0 Then
  Dim sor%, oszlop%
  sor% = Target.Row: oszlop% = Target.Column
  Range(Cells(sor, oszlop - 2), Cells(sor, oszlop - 1)) = ""
  End If
  Application.EnableEvents = True
  End Sub

  A csatolt képen nem látszik, milyen betűjelű oszlopban van az Nts. A makróban úgy vettem, hogy az E (ötödik) oszlop tartalmazza. Bemásolás után az If Target.Column = 5 And Target = 0 Then sorban írd át az 5-öt a megfelelő értékre.

  A füzetedet másként, makróbarátként kell mentened, a kiterjesztése meg fog változni xlsm-re. Az Excelben is módosítanod kell a biztonsági beállításokat, ha eddig nem volt makrót tartalmazó füzeted.

• #10477 Delila_1 veterán m.zmrzlina #10476

  Új Válasz 2011-06-13 07:25:10 #10477

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

  Ha a helyfoglalásnál % jelet teszel a változó után, akkor integer (egész) típusú értékeket vár értékként. Ilyenkor a Dim változó után nem kell (nem is engedi) az As Integer meghatározást.

  A dim v$ string (szöveges)-, a v# double (lebegőpontos)-, a v! single (lebegőpontos, más tartománnyal)-, a v& long (egész, más tartománnyal, mint az integer)-, a v@ currency (fixpontos) értéket fogad. A napokban jöttem rá véletlenül, hogy elég a dimenzionálásnál megadni a %, $, stb. jeleket, a makró további részében már el lehet hagyni, de szerintem jobb később is kiírni a könnyebb követhetőség érdekében.

  A túlcsordulást megelőzheted az
  usor%=range("H1048576").end(xlup).row+1 formával.

  Ne hidd, hogy csak Te szenvedsz a makrók megírása közben.

• #10472 Delila_1 veterán gigi183 #10471

  Új Válasz 2011-06-12 18:06:54 #10472

  Ú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 gigi183 #10471 üzenetére

  Kijelölöd a tartományodat C3-tól jobbra, és le, ameddig kell.
  Feltételes formázás, Új szabály, A formázandó cellák kijelölése képlettel.
  Az "Értékek formázása, ha ez a képlet igaz" rovatba ezt írod:
  =DARABTELI(B:B;C3)=0, és megadod a zöld karakterszínt.
  Újabb formázás, a 2. képlet =DARABTELI(D:D;C3)=0, itt az áthúzott szöveget adod meg.

  A feltételes formázás képletében az első egyenlőségjelet úgy kell érteni, mintha egy HA feltétel lenne, vagyis HA a darabteli függvény az előző oszlopban nem találja meg az aktuális oszlopbeli nevet, akkor az aktuális név legyen zöld színnel írva (C oszlopban kezdődött a formázás, ehhez képest a B az előző oszlop).

  Javaslom, hogy háttérnek pasztell színeket adj, mert a mostani a vad piros, és lila háttéren nem látszik majd a zöld szöveg.

• #10469 Delila_1 veterán gigi183 #10467

  Új Válasz 2011-06-12 07:23:36 #10469

  Ú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 gigi183 #10467 üzenetére

  Ehhez nem kell makró. Jelöld ki a formázandó területet (2. oszlop), és a feltételes formázást add meg a kép szerint. Gombot sem kell nyomogatni, a név beírásakor a feltételeknek megfelelő formátumot vesz fel a cella.
  

• #10466 Delila_1 veterán Imu #10465

  Új Válasz 2011-06-10 08:29:12 #10466

  Ú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 Imu #10465 üzenetére

  A számot sem kell beírni, hanem a Ctrl bill. lenyomása mellett kell "lehúzni" a cellát.

• #10463 Delila_1 veterán Pá #10462

  Új Válasz 2011-06-09 19:52:46 #10463

  Ú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 Pá #10462 üzenetére

  Csak éppen én vagyok itt, de már vége a napomnak.

• #10461 Delila_1 veterán Pá #10460

  Új Válasz 2011-06-09 19:42:19 #10461

  Ú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 Pá #10460 üzenetére

  =fkeres(mit;indirekt(a1);oszlop,hamis_vagy_igaz)

  Az indirekt(a1) az A1 cella tartalmát viszi be az fkeres függvénybe.

• #10459 Delila_1 veterán Zomb€€ #10458

  Új Válasz 2011-06-09 18:02:19 #10459

  Ú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 Zomb€€ #10458 üzenetére

  Nem lenne szabad elszállnia. Be van kapcsolva az Excelben az Analysis ToolPak - VBA?
  Próbáld így:

  set terület=range("a1:c1000")
  workbooks("ebből.xls").sheets("erről_a_lapról").terület.copy
  workbooks("ebbe.xls").sheets("erre_a_lapra").select
  usor=range("a1").end(xldown).row+1
  range("a" & usor).select
  selection.paste

• #10457 Delila_1 veterán Zomb€€ #10456

  Új Válasz 2011-06-09 17:43:28 #10457

  Ú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 Zomb€€ #10456 üzenetére

  A gyűjtő füzet aktív lapján állva

  set másol = workbooks("ebből.xls").sheets("erről_a_lapról").range("a1:c1000")
  usor=range("a1").end(xldown).row+1
  másol.copy range("A" & usor)

  A gyűjtő füzetben az aktív lap A oszlopába másol, az első üres cellába.

• #10455 Delila_1 veterán Zomb€€ #10454

  Új Válasz 2011-06-09 17:00:21 #10455

  Ú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 Zomb€€ #10454 üzenetére

  Nincs mit.

• #10453 Delila_1 veterán Zomb€€ #10452

  Új Válasz 2011-06-09 16:11:56 #10453

  Ú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 Zomb€€ #10452 üzenetére

  Set terület=Range("A13:A1123")

  A rá történő hivatkozásnál meg kell adnod a másik füzet nevét, és lapnevét.
  workbooks("Másik_füzet.xls").sheets("Munka1").terület

• #10451 Delila_1 veterán Pá #10450

  Új Válasz 2011-06-09 13:08:47 #10451

  Ú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 Pá #10450 üzenetére

  Nagyon szívesen, csak nehezebbet ne kérdezz!

• #10449 Delila_1 veterán Pá #10448

  Új Válasz 2011-06-09 07:03:52 #10449

  Ú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 Pá #10448 üzenetére

  Hiperhivatkozást szúrj be a cellába.

  Beszúrás - hiperhivatkozás - A dokumentum adott pontja. A megjelenő ablakban kiválaszthatod az ugrás helyét, valamint azt, hogy mi legyen a megjelenő szöveg az ugrást előidéző cellában.
  A cellán jobb klikkre is előjön a hiperhivatkozás menüpont.

• #10444 Delila_1 veterán m.zmrzlina #10442

  Új Válasz 2011-06-07 17:45:47 #10444

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

  OK. Várom a beszámolót.

• #10439 Delila_1 veterán m.zmrzlina #10438

  Új Válasz 2011-06-07 08:15:16 #10439

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

  Lehet, hogy hibával léptél ki valamelyik makróból, ezért nem érvényesült az
  Application.EnableEvents = True sor, letiltva maradt a makrók futtatása.

  Ctrl+g-vel bejön az Immediate ablak, oda írd be a fenti sort, és enterezd le.

• #10436 Delila_1 veterán csferke #10434

  Új Válasz 2011-06-05 10:29:59 #10436

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

  A második kérdésedre:
  
  Cells(Range("A1").End(xlDown).Row + 1, 1).Select
  vagy
  Cells(Application.CountA(Range("A:A")) + 1, 1).Select
  vagy
  Cells(Application.CountA(Columns("A:A")) + 1, 1).Select
  vagy
  Range("A" & Application.CountA(Columns("A:A")) + 1).Select

• #10433 Delila_1 veterán Geryson #10431

  Új Válasz 2011-06-02 16:05:28 #10433

  Ú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 Geryson #10431 üzenetére

  A PH!Kedvence rang az X időintervallum alatt Y hozzászólás után jár, amit nem teljesítettem.

• #10432 Delila_1 veterán Geryson #10431

  Új Válasz 2011-06-02 15:50:29 #10432

  Ú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 Geryson #10431 üzenetére

  Szívesen.

• #10430 Delila_1 veterán Geryson #10429

  Új Válasz 2011-06-02 14:57:59 #10430

  Ú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 Geryson #10429 üzenetére

  Alkalmazd az ABS (abszolút) függvényt, egyszerűbb azzal, mint figyelni a pozitív, vagy negatív értéket.

  =HA(K2="Euro";ABS(J2)*L2;ABS(J2))

• #10427 Delila_1 veterán Geryson #10426

  Új Válasz 2011-06-02 08:09:35 #10427

  Ú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 Geryson #10426 üzenetére

  =HA(ÜRES(M2);0;FKERES(HÓNAP(M2);$Q$2:$R$13;2;0))

  ahol a Q2:Q13 sorszámokat tartalmaz 1-től 12-ig, az R2:R13 pedig a hónapok nevét.

• #10425 Delila_1 veterán Geryson #10424

  Új Válasz 2011-06-02 07:06:08 #10425

  Ú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 Geryson #10424 üzenetére

  Frissítés: kimutatáson jobb klikk, Frissítés.

  Formátum: kijelölöd a formázni kívánt adatokat, a Kezdőlap/Szám menüben rákattintasz a 3 db nullát ábrázoló (Ezres csoport) ikonra.

• #10422 Delila_1 veterán m.zmrzlina #10421

  Új Válasz 2011-06-01 17:32:38 #10422

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

  Private Sub Worksheet_Change(ByVal Target As Range)
  'A B.xls füzetből indulunk. A munkalaphoz rendelt eseménykezelő
  'csak a saját munkalapján tud dolgozni, ezért innen indítunk
  'olyan makrókat, amik nincsenek munkalaphoz rendelve.
  
  Application.EnableEvents = False 'Eseménykezelés letiltása
  Dim utvonal, Érték, sor%
  
  sor% = Target.Row 'Adatbevitel sora
  utvonal = Cells(sor%, 1) 'Az A oszlopba bevitt érték
  
  If Target.Column = 1 Then 'Ha az A oszlopba vittél be adatot,
  Darabteli utvonal, sor% 'meghívom a Darabteli makrót, átadva a 2 változót
  End If
  
  If Target.Column = 2 Then 'Ha a B oszlopba írsz értéket,
  Érték = Cells(sor%, 2) 'az Érték változó vegye fel a bevitt értéket
  Beír Érték 'Beír makró meghívása, az Érték változó átadásával
  End If
  Application.EnableEvents = True 'Eseménykezelés engedélyezése
  End Sub

  Sub Darabteli(utvonal, sor%)
  'Ez a makró az átvett "utvonal" változót keresi az A.xls Munka1 lapján, a B oszlopban,
  'a COUNTIF (darabteli) függvénnyel. A B.xls A oszlopába történt beírás hívja meg a makrót.
  Dim ws As Object, usor%
  
  Set ws = Workbooks("A.xls").Sheets("Munka1") 'A ws változó tartalma innen kezdve az egyenlőség jobb oldala
  usor% = ws.Range("B1").End(xlDown).Row + 1 'Első üres sor a ws.B oszlopában
  
  If Application.WorksheetFunction.CountIf(ws.Range("B:B"), utvonal) = 0 Then
  'Ha a B.xls A oszlopába beírt "utvonal" nem található az A.xls B oszlopában,
  'vagyis a darabteli=0
  ws.Cells(usor%, 2) = utvonal 'az utvonal változót írja be az ws.B oszlop első üres sorába
  Else
  'ha van "utvonal" a ws.B oszlopában, keresse meg, és a hozzá tartó H oszlopban lévő értéket
  'írja be a kiinduló füzet (B.xls) B oszlopába.
  'Itt nem kell a B.xls-re hivatkozni, mert nem léptünk át Select-tel az A.xls-be, csak leskelődtünk.
  Cells(sor%, 2) = Application.WorksheetFunction.VLookup(utvonal, ws.Columns("B:H"), 7, 0)
  End If
  End Sub

  Sub Beír(Érték)
  'A B.xls B oszlopába történt beírás hívja meg ezt a makrót.
  'Akkor írsz értéket a B oszlopba, ha az fkeres nem talált A oszlopbeli útvonalat.
  Dim ws As Object, usor%
  
  Set ws = Workbooks("A.xls").Sheets("Munka1") 'Mint fent
  usor% = ws.Range("H1").End(xlDown).Row + 1 'Mint fent
  ws.Cells(usor%, 8) = Érték 'A ws.H oszlop első üres sorába beírja az értéket
  End Sub

  Az eseménykezelés letiltása azért kell a laphoz rendelt makróba, mert a munkalapon történt minden változásra beindul. Próbáld ki az Application.EnableEvents = False sor nélkül lépésenként futtatni, és meglátod, hányszor fut le feleslegesen. A lépésenként futtatáshoz tegyél a makró elejére egy stop-ot, majd írj a B.xls-be egy útvonalat, vagy km-t.
  Az end sub előtt vissza kell állítani True értékkel!

• #10420 Delila_1 veterán m.zmrzlina #10418

  Új Válasz 2011-06-01 08:08:42 #10420

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

  A júzer által használt füzetbe, a munkalaphoz:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Dim utvonal, Érték, sor%
  
  utvonal = Cells(Target.Row, 1)
  Érték = Cells(Target.Row, 2)
  sor% = Target.Row
  
  If Target.Column = 1 Then
  Darabteli utvonal, sor%
  End If
  
  If Target.Column = 2 Then
  Beír Érték
  End If
  Application.EnableEvents = True
  End Sub

  Szintén abba a füzetbe, modulba:
  Sub Darabteli(utvonal, sor%)
  Dim ws As Object
  Dim usor%
  Set ws = Workbooks("A.xls").Sheets("Munka1")
  usor% = ws.Range("B1").End(xlDown).Row + 1
  If Application.WorksheetFunction.CountIf(ws.Range("B:B"), utvonal) = 0 Then
  ws.Cells(usor%, 2) = utvonal
  Else
  Cells(sor%, 2) = Application.WorksheetFunction.VLookup(utvonal, ws.Columns("B:H"), 7, 0)
  End If
  End Sub

  Sub Beír(Érték)
  Dim ws As Object
  Dim usor%
  Set ws = Workbooks("A.xls").Sheets("Munka1")
  usor% = ws.Range("H1").End(xlDown).Row + 1
  ws.Cells(usor%, 8) = Érték
  End Sub

• #10419 Delila_1 veterán m.zmrzlina #10418

  Új Válasz 2011-06-01 07:13:36 #10419

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

  Csak este tudok foglalkozni vele, ha addig nem kapsz választ, megpróbálom.

• #10415 Delila_1 veterán m.zmrzlina #10413

  Új Válasz 2011-05-31 20:13:17 #10415

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

  Az "útvonal" megzavart. Lehet, hogy nem is arra gondolsz, amit az előbb írtam?
  Mit szólsz ehhez?
  

  Csak akkor hogy értsem az F oszlopot?

  Szerk.: a távolságokat ne nézd, randommal adtam meg.

• #10414 Delila_1 veterán m.zmrzlina #10413

  Új Válasz 2011-05-31 19:44:34 #10414

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

  Ez egy sima fkeres.
  
  =FKERES(A1;[MásikFüzet.xls]MunkalapNeve!$A:$F;6;0)

  Az A oszlop pedig =[MásikFüzet.xls]MunkalapNeve!$A1

• #10409 Delila_1 veterán Fire/SOUL/CD #10408

  Új Válasz 2011-05-31 11:18:57 #10409

  Ú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 Fire/SOUL/CD #10408 üzenetére

  Az eddigieket megoldja, a további cellákba be kell írni a képletet.

• #10407 Delila_1 veterán Geryson #10406

  Új Válasz 2011-05-31 11:15:37 #10407

  Ú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 Geryson #10406 üzenetére

  A makró megoldja.

• #10403 Delila_1 veterán Geryson #10402

  Új Válasz 2011-05-31 11:05:31 #10403

  Ú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 Geryson #10402 üzenetére

  =ha(e3="Pénztár";"–";"")

  Úgy van, a régi, adatokat tartalmazó cellákba ne másold be a képletet.
  Legfeljebb egy kis makróval lehetne megoldani az oszlop felülírását.

  Sub E_oszlop()
  Dim sor%, usor%
  usor% = Range("E5000").End(xlUp).Row
  For sor% = 3 To usor%
  If Cells(sor%, 5) = "Pénztár" Then Cells(sor%, 6) = "–"
  Next
  End Sub

  Ez a kitöltetlen sorok 6. (F) oszlopába ír a Pénztár szót tartalmazó E oszlop mellé hosszú kötjelet, a nem Pénztár-t tartalmazók melletti F cellát békén hagyja. A mostani adatokat rendbe teszi, a további cellákba érdemes beírni a fenti képletet.

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