Nagyon szépen köszönöm!

de az, hogy "Mented a fájlt htm formátumban" mit akar jelenteni? Mentsem le az egész oldalt a böngészőből?

Egyébként nem baj, ha mennek a kapitányság sorok, arra úgy sincs szükségem

A linken jobb klikk, Mentés másként. Htm formátumban menti. Ezt megnyitod az Excelben, ez a füzet legyen az aktív.
Előtte már megnyitottad azt a füzetet, amibe bemásoltad a makrót, amit most indítasz.

A "kapitányos" sorokat kitörli az a makró, amit először írtam, azt használd.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Meg is van a probléma...
mdb kiterjesztésű volt az adatbázisom, ami nem tetszett az excelnek, accdb-vel semmi probléma nincs.
Azért köszi, hogy foglalkoztál vele!

Üdv.
Az lehetséges, hogy v.hogy az Excel (2007 HUN) kilistázza, hogy egy cella értékét melyik munkalap melyik cellája használja még? (munkalapon belül utódcella, de munkalapon kívül?)

Ráállsz a cellára, Képletek, Képletvizsgálat, Elődök- vagy Utódok mutatása.
Ha másik lapon-füzetben van az előd, vagy utód, egy kis táblázat kinézetű ikon jelenik meg, szaggatott vonallal. Erre a szaggatottra duplán klikkelsz, és megjelenik a hivatkozás helye.
A hivatkozást kijelölve, okézva az adott helyre ugrik a fókusz.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi. Ez oké. Ebből listát lehet készíttetni?

Azt nem tudom. Majd előkerül Fire, és megmondja.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Kösz a bizalmat, de erről sajnos nincs tudomásom. Adott munkalapon meg lehet jeleníteni az összes utódot/elődöt és azt kinyomtatni (képletként is), de hogy egy amolyan "tree view" jellegű listaként megjeleníteni, avagy az összes hivatkozást kimenteni, arról nem tudok...

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Üdv!
Lenne egy segítség kérésem
Adott egy táblázat (csatolva), és azt szeretném ha valahova kattintok a dátumok alatt, az adott műszak mellé (de, du, éj) annyiszor 8-at írna a szélén lévőhöz:
pl: ha a bal szélén lévő "DE" mellett végigkattintok a D betűkön, úgy a jobb szélén lévő "DE" melletti cellába 72 lenne írva, és ha lehet a rákattintott cellák háttérszíne megváltozzon. Válaszokat előre is köszönöm!

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

1. És (a példádnál maradva), egy D betűn csak 1x lehet kattintani, azaz ha 10x kattintok
ugyanarra a D-re, akkor nem 80-nak kell lennie, ugye?

2. Csak ezt a 4 "szimbólumot" használod? (ABCD)

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

1: igen, csak 1x. checkbox szerűen
2: igen, csak ezeknek kellene ilyen funkció

+ha lehet, akkor ha még 1x kattintana az ember, akkor eltűnne a kijelölés illetve azt a 8-at levonná az eredményből.

sajnos kezdő exceles vagyok, azért kérdezek ennyit
köszi még1x

[ Szerkesztve ]

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Jó a kérdés. Listát lehet készíteni? Lehet.
Bővebben: ha rákeresel: excel trace cell precedents, akkor a találatok között lesznek hasznosítható VBA kódok. Pl. itt és az Ozgrid-en kettő 1 és még 1

Rendeld a munkalaphoz a következő kódot:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 Then
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
Target.Interior.ColorIndex = 24
End If
End Sub

Munkalaphoz rendelni így kell.

Figyelj rá, hogy ez a kód nem vizsgálja a cella tartalmát amire kattintottál. Tehát ha nem D-re kattintasz a DE sorban akkor is hozzáad az összeghez nyolcat.

[ Szerkesztve ]

Hali!
Köszi a segítséget, szürkülnek a cellák Viszont ha jól veszem ki a kódból, a 36. sorba írná az eredményt, de én nem látok sehol semmit, ahol számolna.

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Sztornó, én voltam figyelmetlen, örök hála!

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Pontosabban a 36. oszlopba (AJ oszlop).

Köszi. Ezekből ki tudtuk szenvedni ami kellett.

Még talán annyit, ha lehet, hogy ahogy látom a cellák 24-es színt kaptak belül. Hogy ha adott sorban 24-es színű cellára kattintok, ahol ugye már számolta a 8at, akkor levonja, és visszakerüljön az eredeti szín?

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Próbáld ezt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
If ActiveCell.Interior.ColorIndex = 24 Then
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
Target.Interior.ColorIndex = xlNone
Exit Sub
End If
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
Target.Interior.ColorIndex = 24
End If
End Sub

[ Szerkesztve ]

Bocs ez nem az eredet színt adja vissza hanem a "Nincs kitöltést". Az eredeti szín már nem lesz ennyire egyszerű.

Valahol mindenképpen tárolni kell az eredeti szín kódját. Az jó lesz ha ezen a munkalapon elrejtjük valahová vagy tegyük másik munkalapra?

[ Szerkesztve ]

Tökély. Már csak az a bibi, ahogy láttad, vannak színezett cellák alapból, és fehér lesz mind szürke után. Gondolom megjegyeztetni nem lehet vele a cella színét, hogy milyen volt, és olyan legyen ha visszakattintok. Elvileg így is jó, köszönöm még1x.

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

jó lesz ezen is teljesen.

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Üdv!

Excel kezeléssel lenne problémám, a léptetéssel:
Időnként a kurzor billentyűkre nem a fókusz mozog a cellák közt, hanem maga a munkalap görgetődik ( mint az egér kerékkel is) , a fókuszt csak egérkattintással tudom mozgatni. Szerkesztésben már működik a kurzor, de a munkalapon nem.
A kérdésem az, ezt hogyan lehet ki/be kapcsolni?
Mert jelenleg magától kapcsolgatja- legalábbis én nem kérem rá

[ Szerkesztve ]

A makró első futtatásakor tárold le tömbben az eredeti színeket , aztán onnan vissza tudod állítani. (pl egy változót 0 kezdőértékkel, ezt viszgálod az első futtatáskor, ha 0, akkor elmented a színeket, majd a változót 1-re állítod, így a következőkben már nem ne mentődnek el a színek, hisz felesleges is lenne)

poffsoft
Nem lett véletlenül benyomva a scroll lock a billentyűzeten?
(vagy be van ragadva, de ilyenkor más alkalmazásokban is "furcsa" dolgokat kellene tapasztalnod)

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Akciós áron sikerült hozzájutnom több tonna IF..THEN..END IF szerkezethez ezért most mindent azzal akarok megoldani

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
If Target.Interior.ColorIndex <> 24 Then ActiveCell.Offset(10, 0).Value = ActiveCell.Interior.ColorIndex

If ActiveCell.Interior.ColorIndex = 24 Then
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
Target.Interior.ColorIndex = ActiveCell.Offset(10, 0).Value
Exit Sub
End If

Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
Target.Interior.ColorIndex = 24
End If
End Sub

Pfűűű.. azta!! stb.. örök hála. Amúgy hogy értsd miben segítettél: ez egy munkanap naptár bruttó+nettóbérszámoló lesz. Emberke odakattintgat amikor dolgozott, és kidobja az elvileg pontos bruttóbérét majd, aztán már csak arra kell rájöjjek hogyan szedjem ki a nettober.com ról a nettóbér számolót
köszönöm!!

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Illetve hogy legyünk konzekvensek és ne keveredjen a Target.... meg az Activecell....:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
If Target.Interior.ColorIndex <> 24 Then Target.Offset(10, 0).Value = Target.Interior.ColorIndex

If Target.Interior.ColorIndex = 24 Then
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
Target.Interior.ColorIndex = Target.Offset(10, 0).Value
Exit Sub
End If

Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
Target.Interior.ColorIndex = 24
End If
End Sub

[ Szerkesztve ]

Amúgy amikor alulra kiírja a színkódokat, azoknak adhatok fehér színű betűtípust ugye? és akkor nem is lenne látható

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

Nincs mit

Én inkább elrejteném azokat a sorokat mert ha többen használják a fájlt félő hogy valaki előbb utóbb belekotor.

Sőt lehetne egy rejtett munkalapra is tenni. Én ezt javaslom. Este leszek megint majd ránézek megint ha addig valaki meg nem oldja.

[ Szerkesztve ]

ok. már annyi köszönöm volt, hogy helyette itt egy grat taps

Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman

ÜDV!

Még 1 probléma az excel-access párosításban.

Külső adatok átvételével hozom át az adatokat access-ből, de ha a lekérdezés egyik feltételében *-al helyettesítem a karaktereket, akkor nem hoz eredményt excel-ben, noha access-ben tökéletesen működik.

Sziasztok. Van egy ha függvényem, 3 lehetséges kimenetellel. Ez már meg van csinálva. Azt szeretném még, hogy a cella háttérszíne, vagy karakterek betűtípusa is változzon. Hogyan tudnám meg csinálni? Igazából Openoffice-m van, de szerintem elég ha excel-re írjátok le, majdnem ugyan az.

Formátum / Feltételes formázás
ugyanígy működik az openoffice-ban is

[ Szerkesztve ]

VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!

Köszi

[ Szerkesztve ]

csináld meg az alap lekérdezést access-ben, mentsd le és ennek a lekérdezésnek az eredményét kérdezd le excelbe, akár egy select * from-mal.

Sziasztok!

A google dokumentumokban nem lehet olyat csinálni a feltételes formázásnál, hogy nem a cella értékét vizsgálom hanem a képlet értékét? Vagy én nem találom?

VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!

Igen, de akkor excelben további szűrések kellenek.... ezt szeretném elkerülni.

Tehát a problémám:
"Külső adatok átvételével hozom át az adatokat access-ből, de ha a lekérdezés egyik feltételében *-al helyettesítem a karaktereket, akkor nem hoz eredményt excel-ben, noha access-ben tökéletesen működik."

ezt most nem értem teljesen.
Csináld meg úgy az access lekérdezést, hogy végleges formában legyenek az adatok.

Szóval az a problémám, hogy a lekérdezés feltételében *-al helyettesítem a karaktereket, mert erre van szükség.
Viszont így excelben külső adatok átvételekor nem jelennek meg nekem a rekordok.

azért mondom, h írd meg a megfelelő lekérdezést access-ben
pl:
SELECT valami1, valami2 FROM tábla
WHERE valami1 like "a*";

Ezt a lekérdezést elmented akármilyen néven, pl query1, és akkor excelben már csak annyit kell csinálnod, hogy SELECT valam1, valami2 (vagy *) FROM query1 és kész.
De lehet félreértelmezem a kérdésed. Írd meg a lekérdezést akkor.

[ Szerkesztve ]

Mivel Access-ben is már külső adatokkal (ODBC adatbázis) dolgozom, ezért Excel-ből is külső adatok átvételével oldottam meg a kapcsolatot, így egyszerűen importálom az access lekérdezést excel-be.

Egyébként az SQL parancsot hova kellene írni excelben??

"Mivel Access-ben is már külső adatokkal (ODBC adatbázis) dolgozom, ezért Excel-ből is külső adatok átvételével oldottam meg a kapcsolatot, így egyszerűen importálom az access lekérdezést excel-be."
Ez oké. Ettől még működik amit írtam, én is így használom.

SQL parancshoz kell egy külső kapcsolat. Adatok fül Kapcsolatok alatt találod.

[ Szerkesztve ]

megnézem, de emlékeim szerint csak az excell adja ezt az advenced feature-t...

[ Szerkesztve ]

Szia!

Kicsit változtatni kellett a táblázaton, úgyhogy most úgy néz ki, hogy az A,B oszlopban fix infók vannak, tehát a napok így vannak:
C,D oszlop szeptember 26:
C oszlop délelőtt, D oszlop délután

E,F oszlop szeptember 27:
E oszlop délelőtt, D oszlop délután

stb.

Ez alapján módosítanád kérlek amit írtál?
A napokat írhatom a végtelenségig?

Előre is kösziiii!

Az volt az! Köszi!

[ Szerkesztve ]

Sziasztok!

A probléma a következő:
Office 2007 ezen belül excelről lenne szó!
Látom a kezdőlap, lap elrendezése, beszúrás stb füleket, de az alattuk lévő tartalom csak akkor jelenik meg, ha rá is kattintok a fülre!
Ha visszalépek a táblázatba, akkor újra eltünnek!
Biztos baromi egyszerű, csak én nem találom, hogy hol lehet ezt beállítani!
Előre is köszönöm!

M&N

Csak Select Case szerkezetben kell a páratlan sor helyett a párosból kivonni az 1-et így:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cella As Range
Dim datumoszlop As Integer
Dim maradekos As Integer
maradekos = (Target.Column Mod 2)

Select Case maradekos
Case Is <> 0
datumoszlop = Target.Column
Case Is = 0
datumoszlop = Target.Column - 1
End Select

If Not Application.Intersect(Target, Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1))) Is Nothing Then
For Each cella In Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1)).Cells
If Not cella.Address = Target.Address And Target.Value <> "" Then
If cella.Value = Target.Value Then
MsgBox Target.Value & " erre az időpontra nem osztható be!"
Target.Value = ""
Exit Sub
End If
End If
Next
End If
End Sub

A napokat írhatom a végtelenségig?

Igen, bár ennek a megoldásnak van legalább egy komoly hibája, mégpedig hogy ez a sor:
If Not cella.Address = Target.Address And Target.Value <> "" Then
meg ez:
If cella.Value = Target.Value Then
kiakad, ha nem egyetlen cellán, hanem tartományon szeretnél műveletet végezni. (pl Beszúrás stb..)

kattints kettőt valamelyikre és ott maradnak