2007-es Excelben is el lehet rejteni a lapfüleket. Beállítások, Speciális, Beállítások megjelenítése ehhez a munkafüzethez, Munkalapfülek megjelenítése, pipa ki.

köszi mindkettőtöknek de már megoldottam

Hogy?

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

úgy ahogy a #6945-ben írtam. Ha széthúzom a görgetősávot teljes szélességre akkor nem látszódnak a munkalapfülek, így nem kell trükközni az elrejtéssel/felfedéssel.

Az is egy megoldás.

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

Amatőr.

Hahó! Ez nem az a fórum, ahol leszolják egymást!

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, viszont egyszerűbb.

Adott egy több 10ezer sorból álló táblázat (OpenOffice). Több oszlopból áll, és azokban az oszlopokban, ahol a körzetszámnak kell lenni, az nem mind van kitöltve (sok sorban azonos helység van, azaz azonosnak is kell lenni a körzetszámnak. És sok körzetszám is megegyezhet, de más a helység (pl. Debrecen és Hajdúszoboszló körzetszáma is 52)

Van-e megoldás arra, hogy ahol 6 számjegyből áll a telefonszám és hiányzik a körzetszám, oda a helység jó körzetszámát írja be a program? Persze szinte mindegyik helységhez van legalább egy jó körzetszám.
(ahol 7 számjegyű a telefonszám, oda sajnos nem tudom, hogy 20, 30, 70-es számot írjon-e be, de ez a kevesebb)

Kell hozzá egy táblázat, ami a helységneveket, és a hozzájuk tartozó körzetszámokat tartalmazza, utána jöhet az FKERES függvény.

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

Nagyon köszönöm! :-)

És azt a feltételt hogy kell megadni, hogy csak 6 karakternék írja be a helységhez tartozó számot? (ha hét karakterből áll, akkor ne, mert mobilszámról van szó)

[ Szerkesztve ]

Ha nem jön össze, küldd el a fájlt, földim.

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

=ha(hossz(b2)>6;"";fkeres(.....))

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

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.

Nézd meg a privátot!

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özlet mindenkinek!

Az office topikból irányítottak át ide. A kérdésem a következő lenne: miként lehet megoldani (fügvénnyel vagy makróval) azt, hogy ha pl.: az "A1" cella értéke változik, akkor a változás dátuma bekerüljön a "B1" cellába?
Válaszokat előre is köszönöm .
Üdv kalasz

A tapasztalat jó iskola, csak a tandíj magas.

A laphoz kell rendelned a rövid kis makrót:

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

Laphoz rendelés: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapot üres lapra másold be.

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 a választ de valahogy nem akaródzik sikerülni.

A tapasztalat jó iskola, csak a tandíj magas.

Lehet, hogy ebben az esetben is segít, ha az Eszközök/Bővítménykezelőben bejelölöd az Analysis kezdetű bővítményeket.

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

Hali!

A másik topic-ban írt válaszod alapján, akkor ezek szerint, még nem tudod, hogy egy makrót, hogyan is kell létrehozni. Sebaj, elég egyszerű.

1. Nyisd meg az excel-t, lesz egy üres munkafüzeted ugyebár
2. Munka1 -lapon ALT+F11
3. Bal oldalt duplakatt Munka1 (Munka1)-en
4. Egyik lenyílóból Worksheet, másikból Change
5. Másold be a kódot, amit én vagy amit Delila_1 adott
Mindez képben

Delila_1
Én irányítottam ide kalasz barátunkat [link].

Fire.

[ 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)

A bővítmények be vannak jelölve és mégsem történik semmi. Viszont most már egy üres munkalap is csak fél perc után jelenik meg, valami vírusellenőrzés indul el. Ezt kilehet kapcsolni?

A dátum nem akar aktualizálódni.

[ Szerkesztve ]

A tapasztalat jó iskola, csak a tandíj magas.

Az eredeti kérdésedben az A1 cellába beírt érték hatására jelenjen meg a dátum a B1-ben, a képen a D oszlopba írsz, és az E-be várod a dátumot. Nem mindegy!

Erre itt van a makró.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then Cells(Target.Row, 5) = Date
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.

Bocsi erre nem gondoltam. A vírus keresős dologra is tudsz valamit mondani?

A tapasztalat jó iskola, csak a tandíj magas.

Most működik a makró?
Mi a vírusos kérdésed?

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

Az ott felbukkanó ablakban, a beállításoknál helyes kell beállítani a makrók kezelését. Ergo engedélyezni nem árt.

A makró végre működik, köszönöm szépen
Exel indításakor sokáig szöszmötöl az új munkalap megnyitásával, eddig ez nem volt ilyen.

A tapasztalat jó iskola, csak a tandíj magas.

Eddig nem volt makród ...
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,

az e heti bugyuta kérdésem: adott egy táblázat, amiből minden negyedik sor adatai lennének nekem szükségesek egy másik táblázathoz adatként. Hogy tudnám azt megcsinálni, hogy csak ezeket jelöljem ki? Igazából ami megoldást eddig találtam az a köztes sorok elrejtése, és akkor a kért adatok pont egymás alatt lesznek olyan formátumban, ahogy a másik táblázatba kell, tehát egymás alatt. Csak ez a sorkijelölgetéses módszer nagyon durvának tűnik, mivel vagy 300 sornyi adatra van szükségem, és minden számomra szükséges sor között van 3 "felesleges" sor.

Remélem érthető voltam, és hogy valamely fórumguru tud is segíteni a megoldásban, előre is köszönöm.

-Houston van egy kis problémánk. - Aham, és akarsz beszélni róla?

Egy új oszlopban számozd be a sorokat 1-től 4-ig (az első 4-et "gyalog", ezt lemásolod, utána a 8-at kijelölve végig másolod az oszlopban). Szűrsz a 4-es értékre.

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

Ok, hülye ötlet volt, mert így még ha csak azt mondom, hogy az értékeket illessze be, akkor is beilleszti a rejtett sorok adatait is.

Akkor a kérdés a következő: hogy tudom egy adott táblázat minden 4. sorából egy cellát úgy kijelölni, hogy ne tartson örökké 300-at jelölgetni, és hogy a másik táblázatban ezek az adatok sorkihagyás nélkül szerepelhessenek?

-Houston van egy kis problémánk. - Aham, és akarsz beszélni róla?

Bekapcsolod az Adatok/Szűrő/Autoszűrőt.
A címsorban legördülőket, kis nyilakat kapsz. Ahova beírtad az 1-4 értékeket, a legördülőből kiválasztod a 4-est.

Vagy egy másik lapon összegyűjtöd minden 4. sorodat. Az A1-be 1, A2-be 4 jön, ezt a kettőt együtt kijelölve lemásolod, ameddig kell. B1 képlete: =INDIREKT("Munka1!A"&A1) – ha a teljes táblázatod a Munka1 lapon van. A B1 képletét lemásolod, és ez a Munka1 lap A oszlopának minden 4. sorát adja majd.

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

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!

Adott egy XLS amit felrakok egy hálózati helyre.
Ehhez a file-hoz mindenki hozzáfér (Read/Write).

Azt szeretném elérni, hogy a táblázatot csak jelszóval tudják megnyitni, de aki így is megnyitja az csak read-only-ban.
Van erre lehetőség?

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Az előzőt sikerült megoldanom. Egyszerű jelszavazással.

Viszont az nbk által feltett kérdés válasza engem is érdeklene. kraftxld válasza nem volt valami lényegre törő.

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Hali!

Nem tudom, hogy egy ennyire egyszerű "azonosítás" megfelelne-e. Futtasd a makrót és láthatod, hogy milyen infókat tudsz lekérni ill. azok mit adnak vissza. Ha elég pl a számítógép neve és felhasználó alapján is loggolni, akkor megfelelhet.

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub CommandButton1_Click()
List_All_Environ_info
End Sub

Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End Function

Fire.

[ 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)

Sziasztok,
lenne ötletetek egy adott cellában, hogyan tudom megszámoltatni bizonyos karakterek számát? A lényeg az lenne, hogy adott cellákban nevek és beosztások vannak felsorolva, vesszővel ( , ) elválasztva és a nevek számát szeretném visszanyerni. Ez a logika alapján 1 név egy vessző, és ezért gondoltam arra, hogy talán ez lenne a legegyszerűbb megoldás a számszerűsítésre. A kérdés már csak a hogyan! Valakinek ötlete esetleg?

Köszönöm szépen!

Üdv,
ALbee

:)

Szerintem kellene egy xlVeryHidden lap amire a munkafüzet Open eseménye beírná a dátumot, időt és a UserName-t.

Sziasztok,
Van egy kis problémám a lapvédelemmel. Zároltam azokat a cellákat, amiket nem szeretném, ha megbolygatnának, és megkapta a lap a védelmet. A gondom az, hogy a zárolt cellák között vannak olyanok, amelyek más fájlokból kapják az értéküket, és ha a lapon van védelem, akkor nem tudok csatolást frissíteni vagy váltani. Adatfrissítés miatt a csatolásváltás lehetőségét meg kellene adnom a felhasználónak, de nem szeretném, ha a képletet átírnák, így oda meg kell a védelem. Tudna valaki erre valamilyen megoldást?
Előre is köszönöm

Szerintem 1-gyel több név van a cellában, mint vessző.
Józsi, Béla, Ancsa, Lujza -> 3 vessző, 4 név. Ha mégis azonos a nevek és a vesszők száma, a Vesszo=v+1 sorból töröld ki a +1-et.

Írtam egy függvényt rá.

Function Vesszo(Cella As String) As Integer
Dim i As Integer, v As Integer
For i = 1 To Len(Cella)
If Mid(Cella, i, 1) = "," Then v = v + 1
Next
Vesszo = v + 1
End Function

Ezt bemásolod a fájlod VB szerkesztőjébe.
Alkalmazása: =Vesszo(A1) [ha a nevet tartalmazó cellád az A1]
Ugyanúgy másolható, mint a többi függvény.

[ Szerkesztve ]

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

Chip Pearson szerint:
"The following formula can be used to count the number of times that the character or string of characters in cell B1 occurs in the string in cell A1. For example, if A1 contains the string abcXdXeXf, and cell B1 contains the character X, the formula will return 3, since there are 3 'X' characters in A1. This formula does not distinguish between upper and lower case.
=IF(LEN(B1)=0,0,(LEN(A1)-LEN(SUBSTITUTE(A1,B1,"")))/LEN(B1))"

Ez magyar Excelben:
=HA(HOSSZ(B1)=0;0;(HOSSZ(A1)-HOSSZ(HELYETTE(A1;B1;"")))/HOSSZ(B1))
Azzal, hogy nálam a 2007-es igenis különbséget tett x és X között. Bár ez mellékes, úgyis a vesszőket akarod számolni.

[ Szerkesztve ]

Hello,

ez lett a jó!
LEN = megszámoljuk a karakterek számát
LEN(SUBSTITUTE) = MEGSZÁMOLJUK A CSERÉLT KARAKTEREK SZÁMÁT
kivonjuk egymásból a két eredményt és meg is van!

Köszi!

________

Kedves Delila_1,

annyi vessző van amennyi név.( név, beosztás ) > az adatok adatbázisból jönnek

KÖSZÖNÖM A MAKRÓT!

_________

Nagyon kedvesek vagytok! A dolog megoldva, sikerült automatizálnom, amit akartam!
További szép napot nektek!
Üdv,
ALbee

:)

Sziasztok,

Egy olyan problémával fordulok hozzátok, hogy adott egy adatbázis ami sorbe van rendezve de duplikációkat illetve akár többször is tartalmaz egy féle dolgot. Egy oszlop alapján egy makróval le kéne ellenőrizni, hogy van e az adatbázisban duplikáció ha igen akkor egy másik oszlop értékeit szummáznia kéne, ezt a felsőbbikben tárolnia utána az alsóbbikat törölnie. Ennek kéne végigfutni a teljes adatbázison. Ha tudnátok ebben nekem segíteni nagyon hálás lennék.

Xtrem

A rendezett adatoknál egyszerű a dolgod.
Nem írtad, melyik oszlopokban vannak az adataid. Vegyük, hogy a rendezett oszlopod az A, és A2-ben kezdődnek a címsor miatt az értékek.
Felveszel egy új oszlopot, mondjuk az M-et. Az M2-be írj 1-et, az M3 cella képlete: =ha(A3=A2;0;1)
Ezt lemásolod az utolsó sorig, és egy SZUMHA képletben a tartomány az M oszlop lesz, a kritérium 1, az összeg_tartomány pedig az összegeket tartalmazó oszlop.

[ Szerkesztve ]

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

Túl gyorsan válaszoltam. Jobban megnézve rájöttem, hogy nem értem, mi legyen a felsőbbikben és az alsóbbikban.

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

Azt hiszem, rájöttem, mire gondolsz.

Tehát C1-be 1, alá a képlet, amit a megjegyzésbe írtam. A D oszlop képlete a szerkesztőlécen látszik.
Utána a C oszlopban 0 értékeket tartalmazó sorokat autoszűrővel kigyűjtheted, és törölheted.

[ Szerkesztve ]

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

excelben hogyan lehet soronként megismételni egy műveletet anélkül, hogy minden egyes sorba be kellene írni a képletet?

pl.
C3=A3*B3
C4=A4*B4
C5=A5*B5

és így tovább.