Sziasztok!

az alábbi feladatom lenne:

hivatkozást vagy linket szeretnék úgy létrehozni, hogy ha rákattintok a linkre, akkor egy másik munkalap celláját átírja pl. a link cellájának sorszámára (valójában sorszám-2-re kéne, hogy átírja, de ez részletkérdés). Hivatkozás létrehozásakor a dokumentum csak egy adott pontjára tudok mutatni sajnos, nem találtam olyan lehetőség, ahol átírható a hivatkozott cella.

köszi a segítséget!

Egy üres oszlopba beírhatod a képleteket, majd ezt az oszlopot irányítottan, értékként bemásolod az eredeti helyre.

Sub mm()
Range("L1:L25") = "=SUBSTITUTE(A1,"" "","""")"
Range("L:L").Copy
Range("A1").PasteSpecial xlPasteValues
End Sub

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

Lehet, hogy mégis van közöttük szám, csak a formátum tesz az elejükre vezető nullákat.
Próbáld meg, hogy egy oszlopba beírod: =a1 & ""
Ezzel szöveggé konvertálod a számokat. Persze akkor eltűnnek a szóközök.

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

Adott az alábbi feladat:

"Formázza megfelelően a neveket. A kezdőbetűk nagybetűk legyenek, a többi kis betű. Pl.: Vezetéknév Keresztnév"

A2-re ráállok, fx, innen TNÉV, kijelölöm a tartományt:

Kész, azután kapom ezt a hibaüzenetet. Mi lehet a hiba?

Egy új oszlopba kell beírnod a TNÉV függvényt [=tnév(a2)]. Ezt lemásolod, ameddig kell, majd az új oszlopot irányítottan, értékként rámásolod az eredetire. A képletet tartalmazó segédoszlopot törölheted.

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önöm szépen!

Ennél megakadtam (kezdő vagyok):
...az új oszlopot irányítottan, értékként rámásolod az eredetire.

Ez hogyan történik? Lehetne esetleg lépésenként?

Köszönöm szépen előre is!

Kijelölöd a cellákat, másolod (Ctrl+c). Ráállsz az A2-re, jobb klikk, irányított beillesztés, értéket.

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

Helló!

Segítségeteket szeretném kérni az alábbiakban.

Van egy Access adatbázis és benne több tábla (laboratóriumok: megnev, cím, akkrszám, Dolgozók: név, beoszt, jogosultsag) . Van egy excel munkafüzet.

Hogyan tudom megoldani azt, hogy:
- a munkafüzetben egy legördíthető listában jelenjen meg az egyik adatbázis tábla egy bizonyos mezőjéből szett értékek (mondjuk a dolgozok táblából a nevek.
- egy nevet kiválasztva a listából tetszőleges cellába beilleszti nekem a kiválasztott személy beosztását.

Az én megoldásom az, hogy amikor megnyitom a munkafüzetet betölti az adatbázis összes tábláját, frissítve, és ezekből érvényesítéssel és FKERES függvénnyel keresem az adatokat. Ez működik, csak 1: nem túl elegens, 2 indokalatlan adatforgalmat okoz.

Esetleg van másik, frappánsabb, lehetőleg makrót nélkülöző megoldása a feladatnak, valamilyen beépített funkció?

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

üdv föccer

Építésztechnikus. Építőmérnök.

Köszönöm szépen, sikerült. De miért CSAK az értéket kell beillesztenem az irányított beillesztésnél? Gondolom alapfogalmakkal nem vagyok tisztában, épp ezért lenne jó ezeket rendberakni.

Ha a képletet akarod beilleszteni, úgy jársz, mint először, hibaüzenetet kapsz.

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

És hogy a pékbe tudok adatbázisba visszaírni? Gyanítom sehogy...

üdv föccer

Építésztechnikus. Építőmérnök.

Sziasztok!

Más fájlokba mutató hivatkozásokat szeretnék megszüntetni. Van például egy ='D:\Minta1\[Minta2.xls]Munka1'!A1 hivatozásom, ebből szeretnék =Munka1!A1-et csinálni. (Persze sok, és sokféle ilyen hivatkozás van, ez csak egy minta.) Van erre valamilyen ötletetek, egyszerű megoldásotok? Ha a hivatkozás végén nem lenne az aposztróf, akkor egy egyszerű cserével meg lehetne oldani, de így sajnos nem, vagy legalábbis (minimum) egy fokkal nehezebb. Előre is köszönöm a javaslataitokat!

Cancel all my meetings. Someone is wrong on the Internet.

Az xls kiterjesztésből gondolom, hogy 2007-nél alacsonyabb verziót használsz.

Mikor behívtad a fájlt, a Szerkesztés menüben a Csatolásokat meg tudod nyitni. Kiválasztod a forrásnál az egyik fájlt, amire hivatkozol, majd megnyomod a Váltás gombot, és kitallózod a jelenlegi fájlodat. Így jársz el a többi, behivatkozott fájl esetén is.

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

Sziasztok! Szeretném megkérdezni tőletek h lehetséges-e egy excel táblázat adatait makró segítségével egy bizonyos access adatbázisba beírni ugy h az access adatbázis nem nyilik meg?

Segítséget előre is köszi!

Köszi
sziasztok
van arra makróval megoldás hogy van egy táblázatom ami sok sok adatot tartalmaz. A G15:G423 tratomány minden nap végén feltöltésre kerül adatokkal. Szeretnék egy olyan makrót hogy ezt a tartományt kijelölöm és minden nap végén ha lefuttatom egy másik munkalapon ugyanannyi sorból álló táblázat megfelelő oszlopába rakja Ezt az oszlop számot a dátumból határoznám meg. Szóval 31 oszlop lenne és egy kezdőlap munkalapon beállítom a dátumot ekkor a makróm tudja hogy az adatokat tartalmazó táblázat G15:G423 tartományát kimásolás után az összesítő táblázat megfelelő napjának oszlopába rakja.

[ Szerkesztve ]

Azt nem írtad, hogy a G15:G423 adatai melyik lapon vannak. Feltételezem, hogy az adat lapon.
Tehát a nap a kezdőlap B1 cellája, a másolandó adatok az adat lap G15:G423 tartománya, és az összesítő lap megfelelő oszlopába, a 2. sortól kezdve kell bemásolni. Az összesítő lapon a H oszlop a hónap első napja.

Sub Osszesites()
Dim oszlop As Integer

oszlop = Sheets("kezdőlap").Range("B1") + 7
Sheets("adat").Range("G15:G423").Copy Sheets("összesítő").Cells(2, oszlop)
End Sub

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

Sziasztok!

Egy tippjátékhoz lenne szükségem egy olyan függvényre vagy megoldásra ami egy adott dátumhoz legközelebbik másik dátumot keresi meg. A legközelebbi megoldás amit eddig találtam, hogy alakítsam számmá és akkor ilyen fkeressel lehet trükközni, de ennél csak van valami értelmesebb megoldás is.

Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3

Az A oszlopban vannak a dátumok, emelkedő sorrendben, E1-ben a keresendő dátum. A képlet
=FKERES(E1;A:A;1)

Ha nem talál azonosat, keresett érték előtti legnagyobb dátumot adja vissza.
Minden cella dátum formátumú.

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

Szuper, működik.

Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3

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önöm szépen. Sikerült

Szívesen.

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

Sziasztok!

Van egy adatsor. Minden napra azonos számozást kapnak az adatok, általában 1-14-ig. Ez az "A" oszlop.
Néha előfordul, hogy a sorozatban a "C" oszlop időértékei megelőzik az előtte lévő pár időértéket:

Szeretném makróval megoldani, hogy ebben az esetben az a pár rekord törlődjön, az "A:D" oszlopok rekordjai kerüljenek feljebb (törlés, cellák eltolása felfelé), ráadásul az azonos dátumokon szereplő rekordok az eredeti számozást kapnák:

Fontos, hogy ha ilyen előfordul, akkor a többi, azonos napon szereplő rekord is ugyanazon sorszámot kapjon és ne legyen köztük kihagyás, azaz 1,2,3,4 és ne 1,2,4.

Előre is köszönöm.

[ Szerkesztve ]

Sziasztok!
Az lenne a kérdésem, hogy lehet eltávolítani ebből a számból a pontot.
Pl. 63.154, 7.654
Azt szeretném, hogy csak a számok legyenek, az ezres elválasztó nélkül.
Köszönöm.

Ha számként van formázva, akkor cellaformátum -> szám, 0 tizedesjegy.

Ha szövegként, akkor az macerásabb, de ha kell, akkor megírom hozzá a függvényt.

üdv, föccer

Építésztechnikus. Építőmérnök.

Szövegként van sajnos. A függvényt elfogadom.
Köszönöm.

=ÉRTÉK(ÖSSZEFŰZ(BAL(A1;(HOSSZ(A1)-4));JOBB(A1;3)))

A1-be kell a szövetet tenni. Csak akkor működik helyesen, ha a szám 4-5-6 karakter hosszú lesz. Ha vannak rövidebb és hosszabb számok is, akkor írd meg, hogy mi a legrövidebb és a leghosszabb.

üdv, föccer

Építésztechnikus. Építőmérnök.

Köszönöm szépen.

Vagy pedig ami sokkal egyszerűbb, és minden esetben működik például ez
Sub PONT()
For Each c In Columns("A").Cells 'Itt add meg az érintett tartományt
If InStr(c.Value, ".") > 0 Then c.Value = Left(c.Value, InStr(c.Value, ".") - 1)
Next c
End Sub
Ez pédául az "A" oszlop összes cellájában levágja a pont utáni részt.

A pont nem tizedesjegyet jelöl, hanem ezres csoportosítás.

üdv, föccer

Építésztechnikus. Építőmérnök.

Akkor meg csak CTRL+H és a pontot semmire cserélni és kész.

Nohát, itt az igazán frappáns megoldás.

üdv, föccer

Építésztechnikus. Építőmérnök.

Sziasztok
hogy tudom ezt a két vagy esetenként más makrót is egybefűzni. Eddig nem volt ilyen gondom de most mindig hibát ír
Sub Osszesites_M()
Sheets("adat_bekér").Unprotect Password:="tigris98"
Sheets("adat_bekér").Range("$L$1:$L$768").AutoFilter Field:=1
Sheets("összesit1").Unprotect Password:="tigris98" 'felold

Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("adat_bekér").Range("F456:F461").Copy Sheets("összesit1").Cells(3, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesit1").Select
Range("A1:AJ262").Select
Selection.Locked = True
Selection.FormulaHidden = True
Sheets("összesit1").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("adat_bekér").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesit1").Activate

End Sub
Sub Osszesites_E()

Sheets("adat_bekér").Unprotect Password:="tigris98"
Sheets("adat_bekér").Range("$L$1:$L$768").AutoFilter Field:=1
Sheets("összesit1").Unprotect Password:="tigris98" 'felold

Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("adat_bekér").Range("F499:F741").Copy Sheets("összesit1").Cells(9, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesit1").Select
Range("A1:AJ262").Select
Selection.Locked = True
Selection.FormulaHidden = True
Sheets("összesit1").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("adat_bekér").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesit1").Activate

End Sub

Szia!

"most mindig hibát ír"

Ha megmutatnád, hogyan fűzted egybe és azt, hogy milyen hibát ír ki, talán tudnánk segíteni is. Mert így csak találgatni lehetne...

Üdv.

Sziasztok!

Egy kis segítséget szeretnék kérni.
Itt van egy készlet ellenőrző táblázatom, amit az egyik itteni fórumos kolléga készített el nekem.

A problémám az lenne, hogy ha a készlet ellenőrzésben a vizsgált adatoknál nem csak számok vannak, akkor már nem működik. Az a végén látható, hogy beszúrtam pár újabb adatok és az ellen oldalon is szerepelnek még sem jelenik meg, hogy van belőle, vagy is 0-t mutat.

Mitől lehet ez? Mit kellene másképpen csinálni?

Szia!
Bocs késő volt már. Szóval mindig hibát ír vagyis megáll . Eddig a különböző egyszerű makrókat csak simán egymás után bemásoltam de most nem fut végig. A " Dim oszlop As Integer " résznél akad meg. próbáltam beírni hogy next de nem segített. Van valami általános szabály hogy kell két makrót összefűzni?
Hová tudok feltölteni egy munkafüzetet, hogy esetleg lássátok is a problémát?

Sziasztok! Van valami megoldás arra, hogy új munkafüzetek esetén a fejléc és lábjegyzet automatikusan kitöltődjön egy sablon szerint? Igen sok kimutatást készítünk excelben és mindig beállítani ugyan azokat igen idegölő. Előre is köszönöm a segítséget.

Szia!

Valami hibaüzenetet csak ír ki ugye? Azt kellene ide beírnod.
Elképzelhető, hogy az a probléma, hogy kétszer van benne a
"Dim oszlop As Integer "
sor az "összefűzés" után. Ezért a második ilyen sort ki kell törölni vagy kikommentelni (egy aposztróf az elejére).

Én a Data.hu -ra szoktam feltenni a megmutatni szándékozott fájlokat, de rengeteg egyéb lehetőség is van, elég, ha csak végignézed a probléma felvetésekben szereplő linkeket...

Üdv.

Kicsit bele piszkáltam a fájlba. Az A oszlop számait szöveggé alakítottam mindkét lapon, mert úgy látom, ezek cikkszámok, vagy hasonló adatok, amikkel nem végzel matematikai műveletet. Az első lap B2 cellásának a képletén is módosítottam.

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

Üdv,

Olyat lehet excelben, hogy egy adott táblázatban egy cellára mutatva/kattintva, megjelenik egy nyíl, amely a doksi egy általam kijelölt helyére mutat? Ez a hely egy beillesztett kép lenne, ami történetesen egy gyártócsarnok alaprajza. A cellában meg egy eseményt jegyeznek fel, ezt kellene megmutatni a "térképen".

[ Szerkesztve ]

Sziasztok.

Már többször fordult elő velem, hogy egy munkalap szerkesztése közben, egy cellát tovább kellett volna osztanom.

Mondjuk a H20-as cellát két felé osztanom,

Cellák formázásában-szegély-belül, nem tudom aktiválni. ( vízszintes és függőleges).

Ezeket munkalapokat, papír alapon töltenék ki, nyomtatás után, nem kellene betűznie az excelnek.

köszönöm a segítséget

kopi.dll

Köszönöm szépen!

Szívesen.

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

Szia!

Az Excelben a cella az alapegység, azt nem tudod tovább osztani - viszont egyesíteni tudsz cellákat soron és oszlopon belül is, anélkül, hogy a többi cella mérete és formázása változna.
A szegély belül csak akkor használható, ha több cellát jelölsz ki egyszerre.
Azaz kicsit "ügyeskedni" kell, hogy a munkalap úgy nézzen ki, ahogyan szeretnéd.

Üdv.

Szia!

Nézd meg a cellánál a hivatkozás beszúrás lehetőségeit, szerintem ezzel menni fog.

Üdv.

Köszönöm a választ és bocsi az amatőr kérdésért.
Lenne itt még egy kérdés ha van időtök.
Van egy hosszú terméklistám A-M oszlopig.
Az "I" oszlopban van a termékkód.
Van egy másik excelem, melyben csak termékkódok vannak A oszlopban. Legtöbbjük megtalálható az első excelben, vannak benne újak is, amelyek nem találhatók meg benne (ezekre nincs szükségem jelenleg), nekem azok az első listában szereplő termékkódok kellenek, melyek hiányoznak a második excel táblázatból.
Tehát tulajdonképpen nekem az első excelből törlendő termékek kódja kellene egy listába.
Hogyan oldhatom meg?
Nem győzöm köszönni az időtök!

Szia,

Köszönöm szépen válaszod.

A cellák egyesítése funkciót ismerem, és használom elég sűrűn.

kopi.dll

Ilyesmire gondoltál?

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

Mi az, hogy másik excel? Másik lap, vagy másik füzet?

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