A Fájl → Beállítások → Speciális menüben megadhatsz tetszőleges tizedesjelet (és ezreselválasztót), és nem kell a regionális beállításokat átállítanod. Ezt leszámítva máshogy szerintem - számként - nem lehet megoldani. Egyedi formátumként legalábbis nekem nem ment.

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

Valami ilyesmi.

Sub linkmasolas()
Dim hl As Hyperlink
sor = 1
For Each hl In ActiveSheet.Hyperlinks
Cells(sor, "D") = hl.Address
sor = sor + 1
Next hl
End Sub

Ez a makró minden hiperhivatkozásnak a címét (tartalmát) a D1-es cellába, majd az alatta lévő cellákba másolja. A kigyűjtött linkeket pedig oda másolod, ahová akarod (akár txt-ként vagy csv-ként is elmentheted).

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

Sziasztok!

Segítségre lenne szükségem egy elég összetett képlethez, ami jelenleg így néz ki:
'ad1'!$D7*((HA(HIBÁS(FKERES('ad1'!$B7;par!$H$18:$L$51;2;HAMIS)); "0";FKERES('ad1'!$B7;par!$H$18:$L$51;2;HAMIS)))*('ad1'!$E7/10000+par!$B$9/1000)+(HA(HIBÁS(FKERES('ad1'!$B7;par!$H$18:$L$51;3;HAMIS)); "0";FKERES('ad1'!$B7;par!$H$18:$L$51;3;HAMIS)))*('ad1'!$F7/10000+par!$B$9/1000))
Ez a képlet jelenleg hibátlan, pont azt tudja, ami nekem kell, egy hiányossággal: a képlet az alapján számol értékeket, hogy a jelen esetben B7-es cella tartalmát megtalálja-e a hozzárendelt adattáblában, vagy sem. Azért írtam így, hogy ha a B7 üres, akkor a végeredmény 0 legyen, de nem számoltam azzal, hogy a b7-ben lehet hibás adat is beírva. Merre induljak el, ha azt szeretném, hogy az üres cellára 0-t, a hibás cellára viszont hibaüzenetet adjon? Már a gyári #hiányzik is jó lenne eredménynek, mert akkor vissza lehetne keresni, hol lehet a hiba.

Köszönettel András.

[ Szerkesztve ]

Lehetne kicsit explicitebben? Nyomtatási nézet kellene? Vagy minden fülön szeretnéd az élőfejeket szerkeszteni?

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

Szervusztok!
A következő feladatot szeretném megoldani, makróval. Van egy kiinduló lapfülem, tele adattal. Az „A” oszlopban számok vannak (kb. 30-35), melyek rendszertelenül ismétlődnek. 2-3 ezer sornyi. Ezekhez tartozik 10-15 oszlopnyi adat. Szeretnék minden számhoz egy fület létrehozni, melyekre az eredeti fülön levő adatokból az összes ezen számhoz tartozó tétel (sor) szerepel, majd ezekből kimutatást készítenék. A problémám ott van, hogy a kimutatás készítéséhez nem tudom hogyan lehet megadni az aktuális fül nevét, mert azt előre nem ismerem.
Pl.: „ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Munka2!R1C1123C9", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Munka2!R1C20", TableName:="Kimutatás1", DefaultVersion _
:=xlPivotTableVersion14”
Itt a Munka 2! helyett meg lehet adni valahogyan az aktív fül nevét?
Előre is köszönöm a segítséget!

Aktív munkalap = ActiveSheet ?

"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."

Próbáltam, nem szereti. Lehet, hogy csak szintaktikailag nem fogadja el, de nem jöttem rá, hogy lenne jó.

ActiveSheet.Name -el esetleg? Mert ugye a "Munka2" nevét kellene beírni.

"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."

Azzal kezdtem.

Nem nyomtatási, hanem normál nézetben. Ahogy mondod, pl. szerkeszteni szeretném őket és ne kelljen minden egyes fülre átlépéskor az "Élőfej és élőláb" gombot nyomkodni, mivel az csak az aktív fülön jeleníti meg.

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

Jelöld ki az összes lapot, Nyomtatási kép (Ctrl+F2), az Oldalbeállításnál add meg az élőfejet.

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

magát a linken található tartalmat akarom lementeni, tehát a böngészővel megnyitott weblap tartalmát!

Teljesen esélytelen?

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

Ha minden lapra ugyanazt az élőfejet/élőlábat szeretnéd, akkor az makróval könnyen (és nagyon gyorsan) megcsinálható:

Sub HeaderFooterEdit()
Dim i As Integer
For i = 1 To Worksheets.Count
With Sheets(i).PageSetup
.LeftHeader = "Bal oldali élőfej"
.CenterHeader = "Középső élőfej"
.RightHeader = "Jobb oldali élőfej"
.LeftFooter = "Bal oldali élőláb"
.CenterFooter = "Középső élőláb"
.RightFooter = "Jobb oldali élőláb"
End With
Next
End Sub

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

Magamtól azt mondtam volna rá, hogy igen, de a Google szerint lehetséges .

Ebből a makróból próbálj építkezni. A my_url-t neked nyilván nem kell megadnod, simán az előző makróból kapott hl-re hivatkozz. Amúgy pont ezen az oldalon ajánlanak egy Selenium nevű programot, azt is érdemes lehet megnézned. Majd írj a fejleményekről.

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

Üdv!

Hol tudom beállítani Excel 2013-ban, hogy a legördülő listában (ami az adatokat egy rejtett fülről veszi), lehessen gépeléssel keresni? ez egy névlista egyébként, akár az is elég lenne, ha K-t megnyomva odaugorna a K betűvel kezdődőekhez. Olyan megoldást keresek, amihez nem kell plugint telepíteni, mert ha továbbküldöm, nem várhatom el, hogy mindenki telepítse.

[ Szerkesztve ]

Üdv!
Szerintetek meg lehet azt oldani lehetőleg makró nélkül, hogy egy adott cellában(A1) szövegként beírt egyenletet egy másik cellában (B1) ki is számolja. Azaz az A1 cellában lenne, hogy 56,00*42,00*6,50 és ezt a B1 cellában kiszámolja és ott értelemszerűen a végeredmény 15288 szerepeljen.
THX

[ Szerkesztve ]

ja azok ott szorzások !

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

Igen az azok , mert alapból az excel *-al jelöli a szorzást.

Szerintem (5p google-özés után) nem.

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Felveszel a névkezelőben egy új nevet, a név legyen számolás, a hivatkozás pedig =KIÉRTÉKEL(Munka1!A1).

A1 -> 56,00*42,00*6,50
B1 -> =számolás

... és láss csodát!

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

Wow

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

erre vkinek ötlet?

Sziasztok.
Adott ez a táblázat.
Keresek egy képletet mégpedig:
Pl. Beírom B8ba hogy Fa a B9be hogy 10 akkor a B10be az 54et kapjam.
Előre is thx.

INDEX és a HOL.VAN függvényeket kell kombinálnod. A HOL.VAN függvénnyel keresteted meg az INDEX Függvénynek a paramétereit. Most nincs előttem excel, de pofon egyszerű, pont erre a kettőre van szükséged.

Ha extrázni akarod, akkor a B8-ra és B9-re beállítasz egy érvényesítést->listából, hogy elkerüld az esetleges elgépelésből adódó hibákat.

üdv, föccer

[ Szerkesztve ]

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

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.

a te makród az működött, viszont a linkelt oldalira azt írja az Excel, hogy nincs licencem!
A Seleniumot nézegettem, de annyira távol vagyok ezektől, hogy lassan jobban járok, ha egyenként lementem őket. Még ha értenék hozzá csak-csak, de így nagyon sok idő mire rájövök bármire is.

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

Sziasztok,

excelben szeretnék olyat csinálni, hogy egy munkalapon belül ha adok egy cellának kitöltőszínt, akkor ezeknek a darabszámát egy külön cellában számolja nekem össze (színenként)

Vagy ha szín alapján nem lehet ilyet, akkor ha adott cella tartalmaz egy bizonyos karaktert (egyéb szöveg mellett), akkor azoknak a celláknak a darabszámát adja össze.

üdv

Darabhatöbb föggvény. Színre csak makróval menne.

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

Szín alapján lenne a legjobb, azt hogyan tudom megcsinálni?

üdv

Nézz el ide!

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 szuper, működik, köszönöm

üdv

Olyat lehet, hogy automata számolja újra?

Ha módosítom a tartományban a cellaszíneket, akkor nem frissíti a darabszámot, csak akkor frissít, ha rákattintok a cellára és a függvénynél nyomok egy entert.

Vagy másik lehetőség, ha kreálok cellastílusokat, külön mindegyik színre, arra van függvény, ami számolja őket? Tehát nem háttérszín, hanem cellastílus alapján számol, hátha azzal automata frissülne.

[ Szerkesztve ]

üdv

Szia.

Hát nekem nem jön össze.
Le tudnád írn a képletet ha megkérhetlek.
Nagyon köszönöm!

=INDEX($A$1:$D$4;HOL.VAN(B9;$A:$A;0);HOL.VAN(B8;$1:$1;0))

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!!!

Nincs mit.

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!

Segítségeteket szeretnék kérni,
excelben ha egy adott cellára rákattintok az egérrel vagy ha rá navigálok a billentyűzettel, akkor az adott cellához rendelt kép megjelenjen a táblázatom mellett, ha tovább lépek róla -a cella már nem "aktív" akkor a kép eltűnjön.
Jelenleg egy 50 soros táblázatom van, minden sorához kellene egy adott képet hozzárendelni, a fent leírtak szerinti működéssel.
A képek a C: meghajtó egy adott mappájában vannak a gépemen
A táblázatom A-G oszlopig terjed, H oszlopban a kép megjelenhetne a táblázat mellett.

Ez megoldható véleményetek szerint?

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

Üdv.
Gaben

Az M oszlopba írtam be soronként a megjelenítendő képek nevét, kiterjesztés nélkül. Mikor az A:G tartományban rákattintasz egy cellára, ahol az M oszlopban van képnév, a H oszlopban megjelenik a megfelelő kép.

A lapodhoz kell rendelni a makrót. Írd át az útvonalat!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Kepneve As String, utvonal As String

If Not Intersect(Target, [A:G]) Is Nothing Then
utvonal = "C:\Adott mappa\" 'Ide az igazi útvonalat írd be!
On Error Resume Next
ActiveSheet.Shapes("Kep").Delete

Kepneve = Cells(Target.Row, "M") & ".jpg"
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Name = "Kep"
.Left = Columns(8).Left
.Top = ActiveCell.Top
.Height = 180
End With
On Error Goto 0
End If
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.

Szia!

Köszönöm a segítséged!
A laphoz rendelés menetét leírnád, ha megkérlek.

Nem vagyok gépközelben, de ha ott leszek rögtön kiprobálom. Hálás köszönet mindenkinek akik itt segítségükkel hozzájárúlnak a hozzám hasonlók fejlődéséhez.

Remekül működik!
Nagyon köszönöm!

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!

A jövőben komolyabban érdekelni fog az Excel. 2010-es Office-t használok. Érdemes váltani 2013-ra? Vagy inkább már a 2016-ra érdemes?

Gondolkodj globálisan és tegyél lokálisan!

1. Nem. 2. Inkább igen.

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

Sziasztok,

Egy kis segítséget szeretnék kérni.
Van egy munkafüzet jó pár ezer sorral. Az adatok alapesetben hetes csoportokban vannak (101-107), de néha olyan adatokat is regisztrál a gép aminek nincs meg mind a hét sora. Ezeket a sorokat szeretném automatikusan törölni egy makróval. Írtam is rá egyet de nem úgy működik ahogy szeretném. Tudnátok segíteni nekem ebben?

Sub DeletingUnnecessaryRows()
For i = 2 To ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Row
If Cells(i + 1, 1) - Cells(i, 1) <> 1 And Cells(i + 1, 1) - Cells(i, 1) <> -6 Then
Rows(i).EntireRow.Delete
End If
Next
End

Előre is nagyon szépen köszönöm!

[ Szerkesztve ]

Sziasztok,

Segítség kellene.
Azt szeretném, ha egy makró ezekben az oszlopokban
(C1 : C22;G1 : G22;K1 : K22)
minden cellában ahol 0 az érték, végezne egy tartalom törlést (ClearContents)

Segítségeteket köszönöm

[ Szerkesztve ]

Üdv,

Próbáld meg ezt:
Sub NullakTorlese()
Dim Rng(1 To 3) As String
Rng(1) = "C"
Rng(2) = "G"
Rng(3) = "K"
For i = 1 To 3
For j = 1 To 22
If Cells(j, Rng(i)) = 0 Then
Cells(j, Rng(i)).ClearContents
End If
Next j
Next i
End Sub

Köszi!

32bit or 64bit?

Ahogy olvastam sztem elegendő a 32bites változat is.

Gondolkodj globálisan és tegyél lokálisan!

Jó lett.

Köszönöm