Hello,

Kene egy olyan makro, ami 5-6 elore megadott szoveg kozul random kivalaszt egyet es beirja a kovetkezo sorba miutan irtam valamit. Tehat mint egy chat program. Az se lenne rossz, ha mondjuk zold lenne amit en irok, es kek amit o, esetleg jobbra zart az enyem balra az ove. Excel 2016. Megoldhato?

Koszi

[ Szerkesztve ]

Sziasztok!

A lap jobb oldalára hogyan tudok oldalszámot rakni?

Fejléc/lábléc jobb oldali részén kell beszúrni az oldalszámozást.

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Excel 2007-ben az alább problémára keresem a megoldást (lehetőleg makró nélkül):

Adott táblázat adott sorában legördülő listában szereplő adatokból lehessen választani. S a választási listában ne legyenek üres sorok.

Pár kép, hogy miről is van szó.

Adatérvényesítésnél hiába jelölöm be az "Üres cellák mellőzése" opciót:

[link]

Akkor is tele lesz üres cellával a választólista:

[link]

DE VALÓJÁBAN ILYEN LISTÁT SZERETNÉNK:

[link]

Az adott névhez tartozó adatok "dinamikusan" változnak. A név alapján generálódik, hogy az adott sorban milyen adatok közül lehet választani.

[ Szerkesztve ]

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Hello
azt hogy tudom beállítani

hogy ha beírok pl. 1-est a cellába akkor az váljon pirossá
ha 2-est akkor kék stb

?

Feltételes formázás/Új szabály/Csak az adott tartalmú cellák formázása. S minden színt külön be kell állítani az összes kívánt cellára. (Legegyszerűbb, ha a kijelölt adattartományra egyszerre megcsinálod az összes kívánt szabályt.)

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Egy eseményvezérelt makróval megoldható. Ehhez kell pár adat.

– Melyik cellákban van a 6 adat, amit véletlenszerűen be akarsz íratni?
– Mindig 1 cellába írsz be, vagy pl. egy oszlopba?
– A karakterek, vagy a háttér színe legyen kék, ill. zö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.

1. Ahol a legegyszerubben megoldhato, lehet barhol
2. Oszlop kellene
3. A karkter legyen szines, vagy oldalra zart. Cella maradjon alap.

A 6 választható adatot a Z1:Z6 tartományba írtam.

A makrót a laphoz kell rendelned. Erről olvashatsz a Téma összefoglalóban.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
With Range(Target.Address)
.HorizontalAlignment = xlRight
.Font.ColorIndex = 10
.Offset(1) = Range("Z" & Int(Rnd() * 6) + 1)
.Offset(1).Font.ColorIndex = 5
.Offset(1).HorizontalAlignment = xlLeft
End With
Application.EnableEvents = True
End If
End Sub

Az A oszlopba beírt adat alá írja a véletlen kiválasztott értéket.

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

Koszi szepen, tokeletes.

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.

Erre van valami javaslatod?

[ Szerkesztve ]

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

"A név alapján generálódik, hogy az adott sorban milyen adatok közül lehet választani."

Hány féle érvényesítésre van szükséged?

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

Egy munkabeosztás tervezőről van szó. Több munkafüzet van összekapcsolva. Az egyik különálló munkafüzetben kerül meghatározásra, hogy adott személy milyen beosztásokban dolgozhat (és ehhez milyen konkrét munkabeosztások lehetnek nála). (Jelenleg 70 elemből áll a teljes munkabeosztás lista, amiből az egyes személyeknél egyedileg meghatározott részlista van.)
Mostanáig annyira jutottam, hogy a mintában jelzett névsorba beírt személyhez tartozó munkabeosztásokat a csatolt munkafüzetből kikeresi a rendszer és az így nyert 70 cella széles listából lehet választani. A probléma az, hogy a választólistában az üres cellák is megjelennek.
Az adott sorhoz tartozó érvényesítési adatok (70 cella hosszban) jó pár cellával eltolva az adott sorban találhatóak.

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

A dolgozókhoz így van hozzárendelve, hogy milyen beosztásuk lehet, s a tervező részen (korábbi képek) az adott sorban szereplő dolgozóhoz tartozó beosztásokból készül a választólista.

[link]

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Feltettem egy füzetet.

Az Adatok lapon oszlopokban, táblázatokban vannak az egyes érvényesítés típusok. A 4-es táblázatnál jeleztem, hogy a G2:G4 tartománynak a _4 nevet adtam, de az első 3-nál is így jártam el. Szükséges a kezdő _ karakter, mert számot önmagában nem lehet névként megadni. Nézd meg a Névkezelőt. A táblázatok tetszés szerint bővíthetőek, ne hagyj üres cellákat bennük.

A Munka1 lapra a nevek után beszúrtam egy oszlopot, ami a névhez tartozó érvényesítés típusát tartalmazza. Az érvényesítést a teljes (C2:E10) területre egyszerre vittem be, az Indirekt függvény alkalmazásával.

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

Jó az ötlet, viszont nem tudom megmondani, hogy hányféle érvényesítés lesz.

Jelenleg 1+10 csoport van, az első csoportban azon beosztások vannak, amelyek mindenkinél szerepelnek (SZN, SZk, SZG, BE, JJ, HT, X), a további 10-ből pedig bármennyi választható bárkihez (lehet, hogy csak 1, de akár mind a 10 csoport is szerepelhet adott személynél).

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Ha "bármennyi választható bárkihez", akkor ezt érvényesítéssel nem tudod megoldani (szerintem).

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üldtem privátot.

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Sziasztok!

Létezik valami trükk a láblécbe írható max. karakterének a kijátszására?

üdv,

Megcsináltam de valamiért hármassával számoz egy helyett ahol rejtve vannak a cellák

Sub szamoz()
'
' szamoz_Makró
'

'
sorsz = 1
For xx = 15 To 16
If Not Cells(xx, 1).EntireRow.Hidden Then
Cells(xx, 1).Value = sorsz
sorsz = sorsz + 1
End If
Next
End Sub

mi lehet a probléma valaki tudja?

auuuu
megvan a probléma
Egyesítve voltak a cellák.
erre van valami megoldás?

Olyan progit keresek, amivel időzítő funkciót tudnék megvalósítani.
Pontosabban:
- Előre beállíthatok egy időtartamot, max. 4-5 perc, másodperces felbontással.
- START,
- Monitoron grafikusan kijelzi, hogy hol tart,
- Az időtartam végén Stopp, és hangjelzés.

Ez olyan „Commodor Szupergrafik” ízű, programozási feladat, de hátha van valami Win 10 környékén is.
Előre is kösz a tippeket.

(A saját feljegyzéseim közt ez a topik általános Olyan Progit Keresek címszóval van ellátva. Ha tévedtem, akkor elnézést, és esetleg egy helyes linkkel megajándékozhatnátok.)

[ Szerkesztve ]

A fontoskodás és az inteligencia faktor szorzata mindig 1 .

Szia!

Valami ilyesmit próbálj:

ActiveSheet.UsedRange.UnMerge

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

Sziasztok!

Van egy makróm, aminek a segítségével egy adott xls file-ba (ami eredetileg a makrót tartalmazta) egy text file-ból (amit dialógusablakban kérek be) adatokat olvasok be. Ezt úgy oldottam meg, hogy az Excel file-ra így hivatkozok:

Set cel = ThisWorkbook.ActiveSheet

A Workbooks.OpenText-tel megnyitott text file-ra pedig így:

Set forras = ActiveWorkbook.Sheets(1)

Mivel elég sok Excel file-nál kellene használni ezt a makrót, és hogy ne kelljen mindig bemásolni a makrót az adott file-ba, ezért az egyéni makró munkafüzetben (personal.xlsb) szeretném használni. Ezzel viszont az a baj, hogy a Set cel = ThisWorkbook.ActiveSheet értelemszerűen nem fog működni, mivel akkor a ThisWorkbook az egyéni makró munkafüzet, nem pedig az a file, amibe szeretném az adatokat bemásolni. Van valamilyen ötletetek ennek a megkerülésére? Előre is köszönöm a javaslatokat!

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

Nálam is sok olyan makró működik ami hasonló feladatot lát el. Én úgy oldottam meg ezt a problémát, hogy a makrós munkafüzetbe olvasom be a textfájlt vagy az .xls-t, megcsinálom a fájlon a szükséges dolgokat és aztán elmentem a kívánt formátumba.

Így nem kell pakolgatni a makrót meg nem kell a minden .xls forrásfájlból xlsm-et csinálni. Plusz a makrós munkafüzetbe kiválóan lehet változókat mentegetni, meg a feldolgozáshoz szükséges listákat tárolni.

Sziasztok!

Egy kis segítségre lenne szükségem.

Amit szeretnék.

Adott egy hosszú lista. (1000 sor) 8-32 karakter hosszúságú nevekkel.

Létrehoztam egy listát az Adatok - Érvényesítés módszerrel.

A cél az volt, hogy egy legördülő listából tudjam kiválasztani a megfelelőt, ha elkezdtem begépelni.

Tegyük fel, hogy elkezdem gépelni, hogy "Duna" és ő feldobja a legördülő listából, hogy Dunakeszi, Dunaharaszti... és így tovább.

Ehhez szeretnék segítséget kérni.

Ha egyszer beírom a nevet akkor már feldobja, de csak azt amit már használtam.

Dr. Student

Sziasztok!

Virtuális gépek ip címét ki kellene gyűjtenem egy táblába. Nos a problémám az lenne, hogy ezek a címek olyan formában vannak mint pl: host_192.168.1.1-32 vagy net_192.168.1.39_32, és ezekből nekem le kellene vágnom illetve ki kellene szednem a fölösleget és ilyen formába kellene hoznom: 192.168.1.1/32.

Igazából eddig megvagyok, subtitute és replace függvényekkel megoldottam, de sajnos van pár cím ami után
van némi szöveg zárójelbe téve ,pl:net_192.168.1.39-32 (a gép neve) ezt is replace-el próbáltam leszedni, de mikor a find utasítás nem talál keresett karaktert #value! értéket adja ki.

Tudnátok valami tanácsot adni, esetleg egy rövid kódot írni, mivel nem boldogulok!
Köszi, BB

ui: VBA-ban van esetleg cellákban karakterenkénti vizsgálatra lehetőség?

szia
Most az történik, hogy az egyesített cellákat felosztja és úgy számozza be :S
Sub szamoz()
'
' szamoz_Makró
'
'
ActiveSheet.UsedRange.UnMerge
sorsz = 1
For xx = 2 To 22
If Not Cells(xx, 1).EntireRow.Hidden Then
Cells(xx, 1).Value = sorsz
sorsz = sorsz + 1
End If

Next
End Sub

Sziasztok.

Van egy excel fájl a fájlszerveren, ami megosztott, így egy időben többen is szerkeszthetik. Minden rendben működik, míg egyszer csak egyik felhasználónak nem menti el az adatait, mert mentéskor lefagy az egész excel és aztán többször nem is tudja menteni, illetve van hogy megnyitni sem. Ha kikapcsolom a megosztást, akkor már meg tudja nyitni és menteni is, de amint újra megosztom, ismét előjön a hiba. Más tudja szerkeszteni. Eddig 2 felhasználó van, aki nem tudja megosztottként szerkeszteni. Már próbáltuk újratelepíteni az office-t, sőt, már 2013-s office-t is tettünk a gépére, de azzal sem működött, már kiszedtem a megosztást és kidobtam mindenkit aki bent ragadt az exycel-ben, de akkor sem. Az office az 2010 PKC vagy 2010 Prof. Plus.

Előre is köszönöm a segítségeket.

06-30-868-0365 Mindig Privátot írj, mert azt minden nap nézem vagy hívj telon.Számom az adataimnál.

Hello!

Adott egy Excel fájl, aminek az egyik munkalapján sok hiperhivatkozás van, ezeket szeretném lementeni valami HTML MHT esetleg PDF fájlba, mindegy csak meglegyen, ha a link már nem él.
Mivel több száz link van, ezért valami makróra gondoltam, vagy bármi másra, ami kikerüli az egyenként megnyitós-lementős módszert!

(a nevük lehet a hiperhivatkozás címe is, természetesen a spec. karakterek nélkül, de ez már részletkérdés szerintem)

Valakinek van tippje, hogy csináljam?

Köszi

Spóroljunk! Kerül, amibe kerül!

Most nincs előttem Excel, de pl. LibreOffice-ban (a táblázatkezelőjében is) lehet exportálni PDF-be a dokumentum kiválasztott lapjait. (Gondolom, ez MS Office-ban is működik már.)

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Nekem egy lapon van több 100 hiperhivatkozás webcímekre. Ezeket szeretném lementeni valami formátumba.
Erre gondoltál?

Ha igen akkor rápróbálok a LibreOffice-ra, mert én Excelben nem találtam ilyen funkciót, de lehet csak nem voltam elég figyelmes!

Spóroljunk! Kerül, amibe kerül!

Sziasztok!

Segítséget szeretnék kérni:

Egy xls-ben adatok vannak A-G oszlop között. Azt szeretném elérni, hogy K-L oszlopban megjelenjenek az A és G oszlop azon adatai amelyek G oszlopban nem nullák. Továbbá az is jó lenne Ha a K-L oszlopban 24 soronként különböző színkitöltéssel jelennének meg az adatok, mert 24 soronként tovább kell másolnom innen.

Előre is köszönöm

Üdv!

Egy cellába szeretnék be írni egy nevet, majd annak a monogramját szeretném kiíratni. Hogy lehet ezt megoldani? Csak olyan megoldást találtam ahol külön cellában van a név.
Előre is köszi!

"Life's simple: You make choices and you don't look back."

=BAL(A1;1) & KÖZÉP(A1;SZÖVEG.KERES(" ";A1) +1;1)

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

"Life's simple: You make choices and you don't look back."

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.

Ha jól értettelek, akkor valami ilyesmi jó lesz:

Sub szamoz()
sorsz = 1
For xx = 2 To 22
If Not Cells(xx, 1).EntireRow.Hidden Then
If Cells(xx, 1).MergeArea.Rows.Count = 1 Then
Cells(xx, 1).Value = sorsz
sorsz = sorsz + 1
ElseIf Cells(xx, 1).MergeArea.Rows.Count > 1 And Cells(xx - 1, 1).MergeArea.Rows.Count = 1 Then
Cells(xx, 1).Value = sorsz
sorsz = sorsz + 1
End If
End If
Next xx
End Sub

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

Ez ugyanaz, csak rövidebb. Látszik, hogy nem volt időm átnézni .

Sub szamoz()
sorsz = 1
For xx = 2 To 90
If Not Cells(xx, 1).EntireRow.Hidden Then
If Cells(xx, 1).MergeArea.Rows.Count = 1 Or Cells(xx, 1).MergeArea.Rows.Count > 1 And Cells(xx - 1, 1).MergeArea.Rows.Count = 1 Then
Cells(xx, 1).Value = sorsz
sorsz = sorsz + 1
End If
End If
Next xx
End Sub

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

Sziasztok! Rá lehet venni egy lépésben az Excelt, hogy minden egyes fülön az élőfejeket jelenítse meg (sok fül van)? Nem nyomtatásban, hanem a képernyőn. (Office 2010)

[ Szerkesztve ]

Chuck Norris elszámolt végtelenig! Kétszer is... :D

Sziasztok!

Excelben hogy tudom azt megoldani, hogy bizonyos cellakban a szam formatum elvalaszto jele ne "," hanem "." legyen ?

Nem szeretnem a területi beallitasokat megvaltoztatni. Csak szövegformatumu mezövel tudtam megoldan, de szebb es elegansabb lenne, ha maradhatna szam formatum. Van erre mod szerintetek?

Sziasztok!

Excel 2010-ben jött elő egy olyan problémám, hogy jobb egérgomb menüben a másolás, kivágás, beillesztés parancsok inaktívak. CTRL-C-vel működik a másolás, ugyanazon a gépen más alkalmazásban (World) nincsen ilyen problémám. Nem az adott táblázattal van a gond, mert egyáltalán nem működik az adott gépen semmilyen excel táblában. Másik gondom, hogy sorba rendezésnél megduplázza a sorokat. A 2 probléma egyidőben jött elő előzmény nélkül.
Másik gépre küldtem a táblát, ott nincs ilyen probléma az adott táblázattal. Köszönöm a választ, ha valaki találkozott már hasonlóval.

win update frissítések letöltve officehoz?

Erre valakinek lenne tippje?

Spóroljunk! Kerül, amibe kerül!

Igen, minden naprakész