Office Guru - Utolsó kommentek
blfr4@https://blog.hu
©2024 blog.hu
https://officeguru.blog.hu/2016/05/25/excel_validation_list_kivalasztott_elemenek_automatikus_frissitese/full_commentlist/1#c42400595
Válasz erre: Excel Validation List kiválasztott elemének automatikus frissítése
2024-01-12T12:06:03+01:00
2024-01-12T12:06:03+01:00
FAdri
http://blog.hu/user/1642133
Szia.<br />
Pontosan ez a problémám, egy munkalap telel listákkal, rengeteg munkalap tele legördülő listákkal. Próbáltam a tiédhez hasonló egyszerű táblázattal kipróbálni ezt a makrót, de sajnos nekem valamiért nem fut le. Gondoltam ha egyszerű listával tudom használni, akkor majd át tudom írni a bonyolultabb feladatra. Tudnál nekem ebben segíteni?
https://officeguru.blog.hu/2016/03/11/muveletek_1900_elotti_datumokkal_excelben/full_commentlist/1#c41575890
Válasz erre: Műveletek 1900 előtti dátumokkal Excelben
2022-09-20T16:57:27+02:00
2022-09-20T16:57:27+02:00
motamas
http://blog.hu/user/1573642
Kedves Office Guru! <br />
Segítséget szeretnék kérni ezzel a témakörrel kapcsolatban. Adott egy 1900.01.01 előtti dátum és időszak napokban megadva. Hogyan tudom kivonni a dátumból a napok számát? Pl. 1875.07.16 - 188 nap =?<br />
Segítségét előre is köszönöm.
https://officeguru.blog.hu/2015/09/10/ot_titkos_vagy_alig_ismert_excel-funkcio_amelyek_szinesebbe_tehetik_tablazatainkat/full_commentlist/1#c39386678
Válasz erre: Öt titkos vagy alig ismert Excel-funkció, amelyek színesebbé tehetik táblázatainkat
2020-12-09T19:32:22+01:00
2020-12-09T19:32:22+01:00
gigabursch
http://blog.hu/user/169612
Uhh, ez tényleg hiánypótló...
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38098228
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-28T14:41:58+01:00
2020-01-28T14:41:58+01:00
Bacsi Kornél
http://blog.hu/user/1497780
Köszönöm!<br />
<br />
Most tudok csak újra foglalkozni a dologgal. Átnézem és jelentkezem. :)
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38090716
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-26T11:48:55+01:00
2020-01-26T11:48:55+01:00
általánosítva a feladatot:<br />
<br />
Sub tesztdirlink()<br />
Call DirLink("d:\mappa", Range("A1")) 'A1-től kezdve linkként a mappa fájlai<br />
End Sub<br />
<br />
Sub DirLink(honnan As String, hova As Range)<br />
<br />
Dim FSO As Object<br />
Dim Folder As Object<br />
Dim File As Object<br />
Dim i As Integer<br />
<br />
Set FSO = CreateObject("Scripting.FileSystemObject")<br />
Set Folder = FSO.GetFolder(honnan)<br />
<br />
i = 1<br />
For Each File In Folder.Files<br />
hova.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=File.Path, TextToDisplay:=File.Path<br />
i = i + 1<br />
Next File<br />
<br />
End Sub<br />
<br />
Ha meg kész szöveg fájlistával dolgozunk (pld. egy dir /b/s kimenete):<br />
Sub ChangeToLink(mit As Range)<br />
Dim c As Range<br />
<br />
For Each c In mit.Cells<br />
mit.Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=c.Value<br />
Next c<br />
End Sub
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38088414
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-25T16:33:35+01:00
2020-01-25T16:33:35+01:00
<a href="https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel?full_commentlist=1#c38071658" class="reply_nick_1497780" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 38071658 );">@Bacsi Kornél</a>: <br />
<br />
Sub Listazo()<br />
Dim FSO As Object<br />
Dim Folder As Object<br />
Dim File As Object<br />
Dim i, ho, c As Integer<br />
<br />
Set FSO = CreateObject("Scripting.FileSystemObject")<br />
<br />
i = 1<br />
'ho = Month(Now) '2020-ban melyik hónap van<br />
ho = 12 '2019-re<br />
<br />
For c = 1 To ho<br />
Set Folder = FSO.GetFolder("d:\temp\2019\" & Format(c, "00"))<br />
For Each File In Folder.Files<br />
Cells(i + 1, 1) = File.Name<br />
Cells(i + 1, 2) = File.Path<br />
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 3), Address:=File.Path, TextToDisplay:=File.Path<br />
i = i + 1<br />
Next File<br />
Next c<br />
End Sub
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38072226
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-21T10:21:55+01:00
2020-01-21T10:21:55+01:00
<a href="https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel?full_commentlist=1#c38071658" class="reply_nick_1497780" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 38071658 );">@Bacsi Kornél</a>: hát ha ez működik (bocs nem bogarásztam végig mit csinál), legegyszerűbb kivenni az útvonal generálást: pld.<br />
<br />
sub hivo()<br />
ho = Month(Now) 'melyik hónap van<br />
<br />
For c = 1 To ho<br />
call hivatkozás(Format(c, "00"))<br />
next c<br />
end sub<br />
<br />
Sub hivatkozás(honap as string)<br />
...<br />
sPath = "X:\Production\Production TIE\08 Kaizen team\01KAIZEN ÖSSZESÍTŐ\2019\Kaizen ig. fotók 2019\2019." & honap & "\"<br />
...<br />
<br />
(de ha megengedsz egy tanácsot, nem biztos, hogy ez a módszer a legjobb a programozás tanulásához, érdemesebb lenne az egyszerűbb felől (értve) a bonyolultabb felé menni))
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38071658
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-21T01:50:31+01:00
2020-01-21T01:50:31+01:00
Bacsi Kornél
http://blog.hu/user/1497780
Köszönöm a segítség megoldódott a problémám a listázással kapcsolatban.<br />
A hivatkozással kapcsolatban kérhetek még segítséget?<br />
<br />
Jelenleg ezzel a képlettel hivatkozom be pdf. fájlokat.<br />
<br />
Sub hivatkozás()<br />
Dim sPath As String, Value As String, cl As Range, usor As Integer, StartCell As Range<br />
Dim WS As Worksheet<br />
<br />
Set WS = Sheets("Kaizen összesítő") 'ide teszi a hivatkozást<br />
sPath = "X:\Production\Production TIE\08 Kaizen team\01KAIZEN ÖSSZESÍTŐ\2019\Kaizen ig. fotók 2019\2019.01\"<br />
Set StartCell = WS.Range("B3")<br />
usor = WS.Range("B" & Rows.Count).End(xlUp).Row<br />
For Each cl In WS.Range("B3:B" & usor)<br />
cl.Hyperlinks.Delete<br />
If Not IsEmpty(cl) Then<br />
Value = Dir(sPath & cl.Value & ".pdf")<br />
If Value <> "" Then<br />
StartCell.Hyperlinks.Add Anchor:=StartCell, Address:= _<br />
sPath & Value, TextToDisplay:=cl.Value<br />
End If<br />
End If<br />
Set StartCell = StartCell.Offset(1, 0) ' a következő cella cime<br />
Next<br />
End Sub<br />
<br />
Ebben az esetben mit kell módosítanom, hogy almappákból hivatkozzon?<br />
Mindent a netről gyűjtögettem, és arról sajnos még keveset tudok, hogy mi mit jelent a képletben.
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38067742
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-19T20:52:38+01:00
2020-01-19T20:52:38+01:00
mivel Neked nem kell a rekurcziv listázás (tekintve, hogy tudod milyen mappák lesznek, legegyszerűbb így használnod:<br />
<br />
Sub Listazo()<br />
Dim FSO As Object<br />
Dim Folder As Object<br />
Dim File As Object<br />
Dim i, ho, c As Integer<br />
<br />
Set FSO = CreateObject("Scripting.FileSystemObject")<br />
<br />
i = 1<br />
ho = Month(Now) 'melyik hónap van<br />
<br />
For c = 1 To ho<br />
Set Folder = FSO.GetFolder("d:\temp\2020\" & Format(c, "00"))<br />
For Each File In Folder.Files<br />
Cells(i + 1, 1) = File.Name<br />
Cells(i + 1, 2) = File.Path<br />
i = i + 1<br />
Next File<br />
Next c<br />
End Sub
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38065398
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-18T23:25:57+01:00
2020-01-18T23:25:57+01:00
de csináld így és így kilistázza az alkönyvtárakat is:<br />
az msgbox azért kell, mert a shell még nem fut le, mire már nyitná a fájlt az excel :)<br />
<br />
Sub dirtofile()<br />
Dim i<br />
i = Shell(pathname:="cmd.exe /k dir /b/s d:\Temp\2020 > d:\temp\list.txt", windowstyle:=vbHide)<br />
MsgBox "listázva"<br />
Workbooks.Open ("d:\temp\list.txt")<br />
End Sub<br />
<br />
azt/úgy sem vészes megírni, ahogy Te írtad, de ha azzal a listázóval csinálod a fájlnév listát, akkor kell a rekurziv rész is ami az alkönyvátrokba belemegy
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38065344
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-18T23:10:26+01:00
2020-01-18T23:10:26+01:00
<a href="https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel?full_commentlist=1#c38063094" class="reply_nick_1497780" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 38063094 );">@Bacsi Kornél</a>: de működik a Tied, csak a 34.oszlopba írja a fájl nevét!<br />
<br />
írd át: Cells(i + 1, 1) = File.Name -re<br />
<br />
amúgy ezt kb. is megcsinálja:<br />
Sub dirtofile()<br />
Dim i<br />
i = Shell(pathname:="cmd.exe /k dir /b d:\Temp\2020\01 > d:\temp\2020\01list.txt", windowstyle:=vbHide)<br />
Workbooks.Open ("d:\temp\2020\01list.txt")<br />
End Sub<br />
ez kilistáz egy adott alkönyvtárat (pld. nálad 1 hónapot) és beolvassa excelbe
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38063094
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-18T10:10:19+01:00
2020-01-18T10:10:19+01:00
Bacsi Kornél
http://blog.hu/user/1497780
Lényegében ez a képlet az ami az adott mappát ki listázza.<br />
<br />
Sub Listazo()<br />
Dim FSO As Object<br />
Dim Folder As Object<br />
Dim File As Object<br />
Dim i As Integer<br />
Set FSO = CreateObject("Scripting.FileSystemObject")<br />
Set Folder = FSO.GetFolder("c:\")<br />
i = 1<br />
For Each File In Folder.files<br />
Cells(i + 1, 1) = File.Name<br />
Cells(i + 1, 2) = File.Path<br />
i = i + 1<br />
Next File<br />
End Sub<br />
<br />
Amit küldtél abban van egy javaslat:<br />
<br />
' treelist.vbs<br />
'<br />
' Az aktualis mappat es az almappait kilistazza ltree.txt-be.<br />
'<br />
' Kiraly Tibor<br />
' 2007-06-10<br />
<br />
Dim oFSO, oFolder, listafile, filenev<br />
Set oFSO= CreateObject( "Scripting.FileSystemObject")<br />
filenev= "ltree.txt" ' lista file neve<br />
Set oFolder= oFSO.GetFolder( ".") ' aktualis mappa beolvasasa<br />
<br />
filenev= oFolder.Path& "\"& filenev ' lista file letrehozasa<br />
Set listafile= oFSO.CreateTextFile( filenev)<br />
Set listafile= Nothing<br />
<br />
' mappak kilistazasa<br />
Set listafile= oFSO.OpenTextFile( filenev, 2) ' file megnyitasa irasra<br />
listafile.WriteLine( oFolder.Path) ' gyoker mappa kiirasa<br />
almappa_kiiro( oFolder) ' almappak kiirasa<br />
listafile.Close ' file lezarasa<br />
'End of Script<br />
<br />
Function almappa_kiiro( oMappa) ' almappakat kilistazo rekurziv fgv.<br />
For Each oAlmappa in oMappa.SubFolders ' az oMappa-bol az osszes oAlmappa-an vegigmegy<br />
listafile.WriteLine( oAlmappa.Path) ' kiirja az oAlmappa eleresi utjat<br />
almappa_kiiro( oAlmappa) ' megnezi van-e almappaja - rekurzio<br />
Next<br />
End Function<br />
<br />
És ebből ollóztam össze ezt.<br />
<br />
Sub list()<br />
Dim oFSO As Object<br />
Dim oFolder As Object<br />
Dim File As Object<br />
Dim i As Integer<br />
Set oFSO = CreateObject("Scripting.FileSystemObject")<br />
Set oFolder = oFSO.GetFolder("D:\Users\kornel_bacsi\Desktop\Új kaizen összesítő\Kaizen ig. fotók 2019")<br />
i = 2<br />
For Each File In oFolder.Files<br />
Cells(i + 1, 34) = File.Name<br />
i = i + 1<br />
Next File<br />
End Sub<br />
<br />
Futtatáskor nem dob fel hibát, de nem is történik semmi.<br />
<br />
Sajnos itt megállt a tudományom.
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38063048
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-18T09:53:34+01:00
2020-01-18T09:53:34+01:00
Bacsi Kornél
http://blog.hu/user/1497780
Szia<br />
A linkeket amiket küldtél, köszönöm. Átnézem őket, a Shell fügvénnyel nem biztos, hogy boldogulok.<br />
Nagyon amatör vagyok a makró terén. Kevéske angol tudással fűszerezve :)<br />
Lényegében amit szeretnék elérni:<br />
Van egy exel táblázatom, amiben A3 cellából lefelé ismeretlen mennyiségű sorszámot írok, napi szinten. Általában évente 4-5 ezer közé és esik. <br />
Ezek papír alapú munkaigénylők, amiket scannelek is.<br />
A scannelt lapok egy külön mappában találhatók, amik minden évre külön mappát a mappán belül külön hónap mappákat tartalmaznak. A pdf fájlok ugyan azt a nevet kapják mint ami a sorszámuk.<br />
Ezekből szeretném az exel táblázat AH3 cellájából lefelé haladva kilistázni az adott év mappájából és havi almappákból a pdf fájlok nevét.<br />
Amit átnevezek az exelben.(a pdf. fájlnevet "leszedem" róluk) és egy keres függvénnyel nevük alapján ellenőrzöm, hogy scannelve van e a papír.<br />
Ez lenne a listázási szakasz.<br />
És a táblázat B3 celláiba a sorszámhoz tartozó pdf fájlt is be szeretném hivatkozni.<br />
Ez is megy , de szintén csak az első hónapig.
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38059694
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-17T07:12:55+01:00
2020-01-17T07:12:55+01:00
<a href="https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel?full_commentlist=1#c38021322" class="reply_nick_1497780" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 38021322 );">@Bacsi Kornél</a>: esetleg egy másik irányból egyszerűbb megközelíteni (nem tudom mire kell ez Neked) : <br />
- a Shell függvénnyel meghívni egy küldő parancsot (dir), ami előállítja egy fájlba a kívánt listát egy fájlba írva<br />
- aztán ezt a fájlt betölteni excelbe
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38058972
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-16T20:23:25+01:00
2020-01-16T20:23:25+01:00
<a href="https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel?full_commentlist=1#c38021322" class="reply_nick_1497780" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 38021322 );">@Bacsi Kornél</a>: ezeket nézd meg (az első 2 igaz vbs, de átdolgozhatók VBA alá) <a rel="nofollow" href="http://tkiraaly.hu/muhely/vbscript/vbscript.html">tkiraaly.hu/muhely/vbscript/vbscript.html</a><br />
<a rel="nofollow" href="http://www.radicspeter.hu/vegso/2018/12/23/program-mappa-meretek-vbs/">www.radicspeter.hu/vegso/2018/12/23/program-mappa-meretek-vbs/</a><br />
Excelre (nem ellenőriztem):<br />
<a rel="nofollow" href="https://www.ozgrid.com/forum/index.php?thread/60566-list-folders-subfolders-from-directory/">www.ozgrid.com/forum/index.php?thread/60566-list-folders-subfolders-from-directory/</a><br />
<br />
@officeguru: kár, hogy nem frissül a blog
https://officeguru.blog.hu/2016/03/13/kapora_jon_mashol_konyvtartartalom_listazasa_egy_rovidke_kodszelet_segitsegevel/full_commentlist/1#c38021322
Válasz erre: Kapóra jön máshol: könyvtártartalom listázása egy rövidke kódszelet segítségével
2020-01-10T18:16:52+01:00
2020-01-10T18:16:52+01:00
Bacsi Kornél
http://blog.hu/user/1497780
Szia <br />
<br />
Kérdésem az lenne, hogy tudom elérni, hogy egy adott mappa almappáinak tartalmát listázza?<br />
Nagyon amatőr vagyok a makro területén, és nagy segítség lenne számomra lényegében meg oldottam, csak sokkal bonyolultabban. Ez a kód jó lenne viszont csak egy adott mappát listáz.<br />
<br />
A segítséget előre is köszönöm.
https://officeguru.blog.hu/2016/06/02/exceles_primszam-vizsgalat_igazi_fanatikusoknak/full_commentlist/1#c37893442
Válasz erre: Exceles prímszám-vizsgálat igazi fanatikusoknak
2019-11-28T20:48:09+01:00
2019-11-28T20:48:09+01:00
<a href="https://officeguru.blog.hu/2016/06/02/exceles_primszam-vizsgalat_igazi_fanatikusoknak?full_commentlist=1#c37837350" class="reply_nick_901223" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 37837350 );">@A Titán</a>: feltételezve, hogy pld. A1-ben van a vizsgálandó szám, és a B1-ben akarjuk az eredményt látni, hogy prím-e: a B2 cellába kell a "=prim(A1)" képeltet írni
https://officeguru.blog.hu/2016/06/02/exceles_primszam-vizsgalat_igazi_fanatikusoknak/full_commentlist/1#c37837350
Válasz erre: Exceles prímszám-vizsgálat igazi fanatikusoknak
2019-11-12T14:44:11+01:00
2019-11-12T14:44:11+01:00
A Titán
http://blog.hu/user/901223
Kedves cikk író!<br />
Hogyan tudom elérni, hogy A1-be beírva egy számot jelenjen meg a TRUE vagy FALSE?<br />
Az Alt+f11 és a modul1 feltöltése között nyilván be kell állítani valamit, de nekem ilyen nem látszik a leírásban.
https://officeguru.blog.hu/2019/02/02/hova_tunt_a_share_workbook_gombom/full_commentlist/1#c37604092
Válasz erre: Hova tűnt a Share Workbook gombom?!
2019-09-06T17:31:26+02:00
2019-09-06T17:31:26+02:00
anyadmajma
http://blog.hu/user/390696
<a href="https://officeguru.blog.hu/2019/02/02/hova_tunt_a_share_workbook_gombom?full_commentlist=1#c37574120" class="reply_nick_390696" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 37574120 );">@anyadmajma</a>: na, amekkora lúzer vagyok, megvan a megoldás.<br />
Pedig mind a kb 25-30 oldalon, amin néztem oda volt írva, hogy VB-ben vesszőt kell rakni, nem pontosvesszőt elválasztónak, aztán majd amikor ő beírja a cellába a képletet, már pontosvesszőt fog rakni. meg magyarul fogja az angol képleteket is beírni (excel2016)
https://officeguru.blog.hu/2019/02/02/hova_tunt_a_share_workbook_gombom/full_commentlist/1#c37574120
Válasz erre: Hova tűnt a Share Workbook gombom?!
2019-08-29T20:17:03+02:00
2019-08-29T20:17:03+02:00
anyadmajma
http://blog.hu/user/390696
Üdv!<br />
<br />
nem ehhez a témához tartozik, de ez az utolsó bejegyzés, és sehol nem találom a hibát, hogy mit írtam el.<br />
VBA-ból kéne egy képletet beírni egy cellába (excel 2016).<br />
CELLS(SOR, 6).FORMULA="IF(L1=N1+Q1+T1+W1+Z1+AC1+AF1+AI1+AL1+AO1;0;F1-E1)"<br />
Beszúr egy sort, feltölti a kellő adatokkal, de ez a képlet nem látszik a cellában(G oszlop). ha kitörlöm az L oszlopból a feltöltött értéket, és beírom kézzel, akkor meg megjelenik a képlet a G oszlopba.<br />
Mi lehet a hiba?<br />
Előre is köszönöm a segítséget.
https://officeguru.blog.hu/2016/09/17/semmi_extra_kulonlegesseg_egy_alap_dinamikusan_frissulo_gantt-diagram/full_commentlist/1#c37438176
Válasz erre: Semmi extra különlegesség: egy alap, dinamikusan frissülő Gantt-diagram
2019-07-18T20:14:18+02:00
2019-07-18T20:14:18+02:00
Fodor Tamás János
http://blog.hu/user/1294510
Kifejlesztettem egy Excel sablont, melynek jellemzői a következők::<br />
a projekt feladatait, azok kezdő dátumát és időtartamát megadva a Gantt diagram automatikusan elkészül,<br />
a tevékenységek közötti kapcsolatok nyilakkal jelölhetők,<br />
az előrehaladás %-os bevitelével a Gannt diagram azt is megjeleníti,<br />
a lejárt határidők piros színnel jelennek meg,<br />
tervezhető fázisok, alprojektek száma: 5,<br />
projektekhez tartozó feladatok száma: 30,<br />
időhorizont: 3 év,<br />
napi,heti, dekád vagy havi nézet,<br />
a havi nézet az országos pályázatoknál megkövetelt formában is tervezhető,<br />
felesleges sorok és oszlopok egyszerűen törölhetők,<br />
nyelv: magyar vagy angol.<br />
Elérhető: <a rel="nofollow" href="https://www.tfodor.hu/gantt.html">www.tfodor.hu/gantt.html</a>
https://officeguru.blog.hu/2017/01/27/elrejtett_munkalapok_nagy_szamban_torteno_gyors_megjelenitese_ismet/full_commentlist/1#c37403062
Válasz erre: Elrejtett munkalapok nagy számban történő gyors megjelenítése ismét
2019-07-08T15:38:58+02:00
2019-07-08T15:38:58+02:00
jethro_a
http://blog.hu/user/383449
A NÉZET-es tipp kiváló, hálsá köszönetem érte! :) <3
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c37282386
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2019-06-06T09:47:04+02:00
2019-06-06T09:47:04+02:00
Tridio_1
http://blog.hu/user/1390827
Sziasztok,<br />
<br />
Nekem lenne egy olyan kérdésem, hogy hogyan kérhetek olvasási visszaigazolást?<br />
Outlook-ot használok, abban be van állítva, hogy minden elküldött levélre kérek visszaigazolást, érdekes módon a magamnak küldött email ad visszaigazolást, ha másnak akkor nem...:(<br />
van erre valamilyen ötlet, megoldás?
https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk/full_commentlist/1#c36814313
Válasz erre: Lejárati dátumriasztó - az alapmegoldás és a VBA-s popup trükk
2019-02-27T14:10:57+01:00
2019-02-27T14:10:57+01:00
Toledo2005
http://blog.hu/user/1438229
<a href="https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk?full_commentlist=1#c36109415" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 36109415 );">@Office Guru</a>: <br />
Kedves Levélolvasó!<br />
Én sem tudtam megcsinálni, szeretném kérni a segítségét.<br />
Nálam a Call popupuzenet nél jelez hibát
https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk/full_commentlist/1#c36735592
Válasz erre: Lejárati dátumriasztó - az alapmegoldás és a VBA-s popup trükk
2019-02-13T12:32:30+01:00
2019-02-13T12:32:30+01:00
keilkrisz
http://blog.hu/user/276536
<a href="https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk?full_commentlist=1#c36735474" class="reply_nick_276536" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 36735474 );">@keilkrisz</a>: lehet rájöttem !?!? :-D<br />
Mivel magyar nyelvű az ecxel-em, magyarul kellet megadni ! Nem TODAY, hanem ma ! :-)
https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk/full_commentlist/1#c36735474
Válasz erre: Lejárati dátumriasztó - az alapmegoldás és a VBA-s popup trükk
2019-02-13T12:12:38+01:00
2019-02-13T12:12:38+01:00
keilkrisz
http://blog.hu/user/276536
Szia,<br />
<br />
hasznosnak találnám a topicot, de valamiért nem működik nálam.<br />
Ezt a megoldást kerestem, de elvileg úgy csináltam, ahogy le van írva, de nem "pirosítja" be a cellát ! :-(<br />
<br />
nem tudom mit rontottam el !?!?!
https://officeguru.blog.hu/2015/08/20/udvozlunk_a_blog_hu-n_49594/full_commentlist/1#c36192836
Válasz erre: Bemutatkozás - célkitűzés - jövőkép
2018-11-25T08:54:44+01:00
2018-11-25T08:54:44+01:00
dibbler
http://blog.hu/user/522529
sok-sok-sok fa, nem látjuk az erdőt.<br />
Azzal szoktam kezdeni, hogy az Office-ra az MS ráköltött néhány (tíz) milliárd dollárt, vlszleg az Excel a legjobb minőségű ma kapható app.<br />
És a többi alappontok, miért pivot, miért SO hívatkozás, miért munkalapfv és alig VBA, miért névkezelés, miért feltételes formázás, ...<br />
Mik az MS ajánlásai egy összetett aktív tábla szerkezetére, milyen színhasználatot javasol az MS, ...<br />
Mit tud az MS az átlagember prezentáció megértéséről, felfogásáról, miért tartjuk be az MS javaslatait szinte betű szerint.
https://officeguru.blog.hu/2018/11/24/dinamikus_tombok_az_excelt_teljesen_uj_alapokra_helyezo_funkcionalitas_mar_a_spajzban_van/full_commentlist/1#c36191736
Válasz erre: Dinamikus tömbök - az Excelt teljesen új alapokra helyező funkcionalitás már a spájzban van!
2018-11-24T22:39:25+01:00
2018-11-24T22:39:25+01:00
dibbler
http://blog.hu/user/522529
CTRL+SHIFT+ENTER -es függvényt eddig csak két dologhoz használtam: <br />
megkeresni az utolsó cellát, ha nem folyamatos a tartomány, és a <br />
feltételes maximum vagy minimum kereséshez.
https://officeguru.blog.hu/2018/11/10/harom_egyszeru_am_hasznos_trukk_a_mindennapokra/full_commentlist/1#c36115031
Válasz erre: Három egyszerű, ám hasznos trükk a mindennapokra
2018-11-12T12:28:15+01:00
2018-11-12T12:28:15+01:00
noodlay
http://blog.hu/user/439792
+1 megoldási javaslat a pivotos szűréshez: a képen látható pivotnál, az F3 cellára lépve be lehet kapcsolni az autofiltert. (gondolom lehet olyan logika, h a pivotban tiltott, de ha a pivotot kívülről nézed, akkor már csak táblázatot lát a program és ott már szabad. :) )
https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk/full_commentlist/1#c36109415
Válasz erre: Lejárati dátumriasztó - az alapmegoldás és a VBA-s popup trükk
2018-11-11T15:57:09+01:00
2018-11-11T15:57:09+01:00
Office Guru
http://blog.hu/user/1029428
<a href="https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk?full_commentlist=1#c35946349" class="reply_nick_1392279" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35946349 );">@blomi76</a>: Beraktam a ThisWorkbook objecthez a kódod, A oszlopra szerződészámokat, B oszlopba dátumokat írtam, nekem simán, elvárásnak megfelelően lefutott. Úgyhogy át kellene küldened a fájlod...
https://officeguru.blog.hu/2015/11/01/lejarati_datumriaszto_az_alapmegoldas_es_a_vba-s_popup_trukk/full_commentlist/1#c35946349
Válasz erre: Lejárati dátumriasztó - az alapmegoldás és a VBA-s popup trükk
2018-10-09T12:43:07+02:00
2018-10-09T12:43:07+02:00
blomi76
http://blog.hu/user/1392279
Szia!<br />
Szuper poszt, pont erre lenne szükségem, de valamiért még sem működik. <br />
<br />
(Első oszlopomban szerződés nevek vannak, másodikban meg a dátumok, második sornál kezdődnek az adatok.)<br />
<br />
Ez van a VBA-ban:<br />
<br />
Workbook/open:<br />
<br />
Private Sub Workbook_Open()<br />
Call popupuzenet<br />
End Sub<br />
<br />
General/popupuzenet:<br />
<br />
Sub popupuzenet()<br />
Dim sorszam As Integer<br />
Dim a As Integer<br />
Dim uzi As String<br />
uzi = "A következo szerzodések lejártak: " & vbCrLf & vbCrLf<br />
sorszam = ThisWorkbook.Worksheets("Munka1").Range("B" & Rows.Count).End(xlUp).Row<br />
For a = 2 To sorszam<br />
If ThisWorkbook.Worksheets("Munka1").Range("B" & a) - Date < 0 Then<br />
uzi = uzi & ThisWorkbook.Worksheets("Munka1").Range("A" & a).Value & " "<br />
End If<br />
Next a<br />
MsgBox uzi<br />
End Sub<br />
<br />
Ha megnyitom, mindig hibára fut.<br />
A makróba meg automatikusan beírodik ez a (General)-hoz:<br />
Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />
<br />
End Sub<br />
<br />
Ha ezt a pár sort kitörlöm, akkor jól lefut. De ha becsukok mindent és újra megnyitom, akkor megint előjön a probléma. :-(<br />
<br />
Tudsz segíteni?<br />
Köszi előre is!
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c35735909
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2018-08-27T20:57:18+02:00
2018-08-27T20:57:18+02:00
_kolléga_
http://blog.hu/user/512352
<a href="https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban?full_commentlist=1#c35569395" class="reply_nick_365726" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35569395 );">@zsolt83</a>: eltekintve az egyszerű verziótól (ti., hogy minden projekthez csinálsz egy terjesztési listát /a címzettekkel/ az outlookban, és akkor a fenti kód továbbra is elég), olyan irányban kellene kibővíteni az excelt (és a kódot), hogy pld. a határidő oszlop után van egy címzett(ek) száma oszlop, és azt egy belső for next végigolvassa, és szépen a <br />
"With Email .To = "officeguruhelp@gmail.com" résznél hozzáadja a címzetteket<br />
<br />
ha probléma még (és lesz kedvem/időm), megírom
https://officeguru.blog.hu/2016/01/17/az_office-csalad_kevesse_ismert_sokoldalu_tagja_onenote/full_commentlist/1#c35607307
Válasz erre: Az Office-család kevéssé ismert, sokoldalú tagja - OneNote
2018-08-02T13:27:41+02:00
2018-08-02T13:27:41+02:00
gigabursch
http://blog.hu/user/169612
<a href="https://officeguru.blog.hu/2016/01/17/az_office-csalad_kevesse_ismert_sokoldalu_tagja_onenote?full_commentlist=1#c35559665" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35559665 );">@Office Guru</a>: <br />
Sima beszkennelt oldalakból.
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c35569395
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2018-07-25T14:44:53+02:00
2018-07-25T14:44:53+02:00
zsolt83
http://blog.hu/user/365726
Sziasztok<br />
<br />
Szeretném kicsit kibővíteni a makrót azzal hogy minden egyes projekthez több e-mail cím tartozik.<br />
Értelemszerűen csak azoknak menjen automatikusan az e-mail, amelyik projekt éppen lejárt.<br />
A címek melletti oszlopban minden címzett mellé hozzá van rendelve a megfelelő projekt. <br />
<br />
Milyen megoldást javasolnátok?<br />
<br />
Köszi!
https://officeguru.blog.hu/2016/01/17/az_office-csalad_kevesse_ismert_sokoldalu_tagja_onenote/full_commentlist/1#c35559665
Válasz erre: Az Office-család kevéssé ismert, sokoldalú tagja - OneNote
2018-07-23T20:52:13+02:00
2018-07-23T20:52:13+02:00
Office Guru
http://blog.hu/user/1029428
<a href="https://officeguru.blog.hu/2016/01/17/az_office-csalad_kevesse_ismert_sokoldalu_tagja_onenote?full_commentlist=1#c35521381" class="reply_nick_169612" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35521381 );">@gigabursch</a>: Pontosan mire is lenne szükséged? Milyen képből akarsz kivarázsolni szöveget?
https://officeguru.blog.hu/2016/01/17/az_office-csalad_kevesse_ismert_sokoldalu_tagja_onenote/full_commentlist/1#c35521381
Válasz erre: Az Office-család kevéssé ismert, sokoldalú tagja - OneNote
2018-07-16T00:28:21+02:00
2018-07-16T00:28:21+02:00
gigabursch
http://blog.hu/user/169612
Belekerültem abba a helyzetbe, hogy kellett a szövegfelismerés - de nem találtam a régi, Office2003-ban lévő szövegfelismerőt.<br />
Megtudta, hogy a OneNote ezt tudja, de nem boldogultam,<br />
<br />
Alkalomadtán, ha lehetne kérni...<br />
Előre is köszi.
https://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is/full_commentlist/1#c35266454
Válasz erre: Hoztam is munkalapot meg nem is
2018-05-25T08:00:37+02:00
2018-05-25T08:00:37+02:00
gigabursch
http://blog.hu/user/169612
<a href="http://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is?full_commentlist=1#c35249990" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35249990 );">@Office Guru</a>: <br />
OK, köszi. Tehát bugos az Office, vagy valahol valami kretén pipa teljesen máshol blokkolja a rendszert.
https://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben/full_commentlist/1#c35264492
Válasz erre: Webservice - RSS-ek használata Excelben
2018-05-24T18:07:21+02:00
2018-05-24T18:07:21+02:00
kovács pisti
http://blog.hu/user/5697
<a href="http://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben?full_commentlist=1#c35249974" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35249974 );">@Office Guru</a>: követem a blogot, mert érdekes témákat vet fel, gyakran olyanokat is, amit soha az életben nem fogok használni, de azért elgondolkodom rajta<br />
<br />
ez a webről adatokat lehúzni dolgot már régen ki szerettem volna próbálni, csak úgy magamnak, most nem jött össze, felbosszantott<br />
éppen el vagyok havazva, de a kulcsszavak alapján úgy egy hónap múlva nekiindulok és a web angol nyelvterületén begyűjtöm ami nekem kell<br />
<br />
köszönöm!
https://officeguru.blog.hu/2016/02/14/vasarnapi_fejtoro_excelbol_egyezo_szoveges_cellak_extra_kerdessel/full_commentlist/1#c35259540
Válasz erre: Vasárnapi fejtörő Excelből: egyező szöveges cellák - extra kérdéssel
2018-05-24T04:54:12+02:00
2018-05-24T04:54:12+02:00
Atzs
http://blog.hu/user/1030706
<a href="http://officeguru.blog.hu/2016/02/14/vasarnapi_fejtoro_excelbol_egyezo_szoveges_cellak_extra_kerdessel?full_commentlist=1#c29573070" class="reply_nick_172072" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 29573070 );">@hedgy</a>: =HA(DARABTELI(A2:A5;A2)=DARAB2(A2:A5);"Mind azonos";HA(MAX(DARABTELI(A2:A5;A2:A5))>1;"Van legalább két azonos";"Mind különböző"))<br />
<br />
Tömbfüggvény, tehát SHIFT+CTRL+ENTER a lezárás
https://officeguru.blog.hu/2018/05/19/html-kod_hasznalata_excelben/full_commentlist/1#c35250260
Válasz erre: HTML-kód használata Excelben
2018-05-21T22:54:45+02:00
2018-05-21T22:54:45+02:00
Atticusicius
http://blog.hu/user/1062284
Hello!<br />
Idáig jutottam: Számítógép\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\Common\User Settings\…<br />
a Common belül nincsen COM Compatibility<br />
a User Settings-ben találtam rengeteg ilyen számsort, de 8856F961... nincs. A legközelebbi értékek : {86AF9220-9D6F-4575-BEF0-619A9A6AA005},{86E17AEA-A932-42C4-8651-95DE6CB37A08},{881D148A-610E-4F0A-8985-3BE4C0DB2B09},{8B524BCC-67EA-4876-A509-45E46F6347E8}.<br />
<br />
Nem tudom számit-e: windows10-em van, 2016-os excel-em.
https://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is/full_commentlist/1#c35249990
Válasz erre: Hoztam is munkalapot meg nem is
2018-05-21T21:38:57+02:00
2018-05-21T21:38:57+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is?full_commentlist=1#c35223720" class="reply_nick_169612" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35223720 );">@gigabursch</a>: Szerintem én azt írtam le, aminek mennie kell, mert a "szürke rákattinthatatlan" hibádat sikerült a másik formon produkálnom nekem is.
https://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben/full_commentlist/1#c35249974
Válasz erre: Webservice - RSS-ek használata Excelben
2018-05-21T21:34:00+02:00
2018-05-21T21:34:00+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben?full_commentlist=1#c35176918" class="reply_nick_5697" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35176918 );">@kovács pisti</a>: Sikerült boldogulnod vagy kell segítség?
https://officeguru.blog.hu/2018/05/19/html-kod_hasznalata_excelben/full_commentlist/1#c35249968
Válasz erre: HTML-kód használata Excelben
2018-05-21T21:33:07+02:00
2018-05-21T21:33:07+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2018/05/19/html-kod_hasznalata_excelben?full_commentlist=1#c35245466" class="reply_nick_1062284" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35245466 );">@Atticusicius</a>: <br />
Start Menü - írd be, hogy regedit, majd indítsd el a registry editort<br />
A megjelenő fában keresd meg a következőt:<br />
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\COM Compatibility\<br />
Mivel most a Web Browserről van szó, keresd meg a 8856F961...kezdetű Classt.<br />
A jobb oldalon megjelenő Compatibility Flagsre kattintva írd át a Decimal értéket 0-ra.<br />
<br />
Kész is vagy.
https://officeguru.blog.hu/2018/05/19/html-kod_hasznalata_excelben/full_commentlist/1#c35245466
Válasz erre: HTML-kód használata Excelben
2018-05-20T19:29:19+02:00
2018-05-20T19:29:19+02:00
Atticusicius
http://blog.hu/user/1062284
Hello! Ott van nekem is a Microsoft Web Browser a More Controlok között de sajnos a regisztrálásnál elakadtam. Tudnál segíteni? Köszi!
https://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben/full_commentlist/1#c35225402
Válasz erre: Webservice - RSS-ek használata Excelben
2018-05-16T15:54:52+02:00
2018-05-16T15:54:52+02:00
FogarasiSzilvi
http://blog.hu/user/157537
<a href="http://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben?full_commentlist=1#c35176918" class="reply_nick_5697" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35176918 );">@kovács pisti</a>: Miskolc témára: szerintem erre a köpnyeg.hu feed-je nem tartalmaz adatot, különben az is megjelenne a feed-ben. De lehet, hogy teljesen félre értem, akkor bocsánat.
https://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben/full_commentlist/1#c35225388
Válasz erre: Webservice - RSS-ek használata Excelben
2018-05-16T15:53:19+02:00
2018-05-16T15:53:19+02:00
FogarasiSzilvi
http://blog.hu/user/157537
nem ismertem, jópofa. :)<br />
viszont wordpress feed-et nem sikerült sehogyan sem beimportálnom. :( Mi lehet a módja/magyarázata?
https://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is/full_commentlist/1#c35223720
Válasz erre: Hoztam is munkalapot meg nem is
2018-05-16T11:07:06+02:00
2018-05-16T11:07:06+02:00
gigabursch
http://blog.hu/user/169612
<a href="http://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is?full_commentlist=1#c35142372" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35142372 );">@Office Guru</a>: <br />
Uhh, magyar verziót esetleg?<br />
Mindenesetre előre is köszi.<br />
De szerintem te pont azt írtad le, amit én leírtam, hogy nem hajlandó működni.
https://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben/full_commentlist/1#c35217306
Válasz erre: Webservice - RSS-ek használata Excelben
2018-05-15T06:21:29+02:00
2018-05-15T06:21:29+02:00
Kecskerépa
http://blog.hu/user/1004272
Tisztelt Office Guru szerkesztő!<br />
<br />
Nagyon hiánypótló ez a blog, számos jó ötletet merítettem innen. Nagyon köszönöm!
https://officeguru.blog.hu/2016/09/05/munkalap_kivalaszto_automatizmus_legordulo_menuben/full_commentlist/1#c35200466
Válasz erre: Munkalap kiválasztó automatizmus legördülő menüben
2018-05-11T16:24:34+02:00
2018-05-11T16:24:34+02:00
Márton Czukorhegyi
http://blog.hu/user/1356734
Szia!<br />
Megcsináltam a leírás alapján és remekül működik.<br />
Nekem viszont egy olyan megoldásra lenne szükségem ami lényegében ugyanígy működik, csak egy kiválasztott munkalap (legyen a neve "üzemórák") viszont nem lenne rejtett, hanem állandóan látható lenne. Ennek megfelelően lehetne módosítani a kódot? <br />
Előre is köszönöm!
https://officeguru.blog.hu/2018/05/06/webservice_rss-ek_hasznalata_excelben/full_commentlist/1#c35176918
Válasz erre: Webservice - RSS-ek használata Excelben
2018-05-07T07:56:41+02:00
2018-05-07T07:56:41+02:00
kovács pisti
http://blog.hu/user/5697
(egy kevésbé kedves olvasó vagyok)<br />
érdekelt a dolog és kipróbáltam, tulajdonképpen műxik<br />
DE: <br />
- a Webservice formulával behozok adatokat ... és?? itt jól esett volna egy olyan segítség, mint az innen kezdődő második részben van is<br />
- a FILTERXML-es rész már teljesen jól használható ... ha budapesti vagyok, de én pl. Miskolcra szeretném ezt megcsinálni, ebben az RSS nem segít, oda URL-ből kellene behúzni a cuccost és főleg kibányászni ezek után a hasznosat - de HOGY?
https://officeguru.blog.hu/2018/04/30/egy_igazan_kemeny_pivot-dio/full_commentlist/1#c35151810
Válasz erre: Egy igazán kemény Pivot-dió
2018-05-01T21:09:59+02:00
2018-05-01T21:09:59+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2018/04/30/egy_igazan_kemeny_pivot-dio?full_commentlist=1#c35148110" class="reply_nick_231795" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35148110 );">@alfredaurel</a>: Hm...sajnos nekem így is elcsesződik a B oszlop. :( De majd még próbálkozom. Köszi
https://officeguru.blog.hu/2018/04/30/egy_igazan_kemeny_pivot-dio/full_commentlist/1#c35148110
Válasz erre: Egy igazán kemény Pivot-dió
2018-05-01T09:18:18+02:00
2018-05-01T09:18:18+02:00
alfredaurel
http://blog.hu/user/231795
Eloszor erre gondoltam, conditional formatting-nal, formulahoz:=row(A4)=6<br />
<br />
Viszont ez refresh-nel eltuntet ia B oszlop alahuzasat. Viszont ha kombinalod a te rule-jaiddal, bar nem tul elegans de megoldja a problemat
https://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is/full_commentlist/1#c35142372
Válasz erre: Hoztam is munkalapot meg nem is
2018-04-29T21:44:39+02:00
2018-04-29T21:44:39+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is?full_commentlist=1#c35041932" class="reply_nick_169612" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 35041932 );">@gigabursch</a>: Használd a Page Layout ribbonfül Page Setup szekciójának Print Titles opcióját.
https://officeguru.blog.hu/2018/03/15/dashboardbol_prezentacio/full_commentlist/1#c35142342
Válasz erre: Dashboardból prezentáció
2018-04-29T21:41:13+02:00
2018-04-29T21:41:13+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2018/03/15/dashboardbol_prezentacio?full_commentlist=1#c34898496" class="reply_nick_1346374" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34898496 );">@Csut Andras</a>: <br />
<br />
Set textbox = ActivePresentation.Slides(1).Shapes.AddTextbox( _<br />
Orientation:=msoTextOrientationHorizontal, _<br />
Left:=1, _<br />
Top:=250, _<br />
Width:=720, _<br />
Height:=100).TextFrame.TextRange<br />
<br />
textbox.Text = "Helloszia"
https://officeguru.blog.hu/2018/04/14/hoztam_is_munkalapot_meg_nem_is/full_commentlist/1#c35041932
Válasz erre: Hoztam is munkalapot meg nem is
2018-04-16T08:52:08+02:00
2018-04-16T08:52:08+02:00
gigabursch
http://blog.hu/user/169612
Részben OFF.<br />
<br />
De excell.<br />
<br />
egyik gép<br />
W8.1, Off. 2013<br />
másik gép<br />
W10, Off. 365<br />
<br />
Nyomtatásnál az oldalbeállítás panelon a Lap fülön képtelen vagyok beállítani nyomtatási terület, ismétlődő sorok, oszlopok zónát. Szürke, rákattinthatatlan.<br />
<br />
Mi lehet a probléma?<br />
<br />
ELőre is köszi.
https://officeguru.blog.hu/2018/03/15/dashboardbol_prezentacio/full_commentlist/1#c34898496
Válasz erre: Dashboardból prezentáció
2018-03-29T07:36:25+02:00
2018-03-29T07:36:25+02:00
Csut Andras
http://blog.hu/user/1346374
Szia!<br />
<br />
Köszönöm a kódot, jól működik.<br />
Alapból van a dián egy TextBox, azt letörlöm.<br />
<br />
dia.Shapes(dia.Shapes.Count - 1).Delete<br />
<br />
Utána próbálok egy saját TextBox létrehoni egy szöveggel, de nem működik.<br />
Tudsz ebben segíteni nekem?<br />
<br />
Dim myTextBox As Shape 'a sub elején deklarálom<br />
Set myTextBox = PP.dia.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 500, 200)<br />
myTextBox.TextFrame.TextRange.Text = "ez legyen kiírva"
https://officeguru.blog.hu/2018/03/24/ket_tavaszkoszonto_excel-jotanacs/full_commentlist/1#c34875810
Válasz erre: Két tavaszköszöntő Excel-jótanács
2018-03-24T21:28:54+01:00
2018-03-24T21:28:54+01:00
magyar excelnél:<br />
=VAGY(ÉS(C10>=F13;C10<=F14);DARABHATÖBB(G13:G15;C10))<br />
sajnos ettől üres még lehet a cella<br />
<br />
a kitöltőt segítendő megadható, hogy pld. a hibaüzenetben (v. előtte a cellakiválasztáskor) kiírja az érvényes értékeket
https://officeguru.blog.hu/2018/02/11/back_in_the_business_pivot-jotanacsok_kezdesnek/full_commentlist/1#c34610662
Válasz erre: Back in the business - Pivot-jótanácsok kezdésnek
2018-02-11T18:13:37+01:00
2018-02-11T18:13:37+01:00
köszi, hasznosak<br />
egy az elsőhöz hasonlót épp mostanában írtam meg VBA-ban, hogy az "A" oszlop szerint (rendezett) táblát szétszedje fájlokra
https://officeguru.blog.hu/2016/02/27/szuresunk_eredmenyenek_automatikus_publikalasa_e-mailben/full_commentlist/1#c34447293
Válasz erre: Szűrésünk eredményének automatikus publikálása e-mailben
2018-01-12T22:34:23+01:00
2018-01-12T22:34:23+01:00
Kovács Flóri
http://blog.hu/user/883625
A példaprgramot valahol el lehe érni? Mert egyeltalán nem működik :)
https://officeguru.blog.hu/2016/02/27/szuresunk_eredmenyenek_automatikus_publikalasa_e-mailben/full_commentlist/1#c34445823
Válasz erre: Szűrésünk eredményének automatikus publikálása e-mailben
2018-01-12T17:46:20+01:00
2018-01-12T17:46:20+01:00
Kovács Flóri
http://blog.hu/user/883625
Szia. Jó a cikk. De nekem az alábbi hibaüznetet írja ki: run time error: 1004 obejct defined error
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34395135
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2018-01-03T22:47:19+01:00
2018-01-03T22:47:19+01:00
<a href="http://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre?full_commentlist=1#c34388427" class="reply_nick_1260287" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34388427 );">@népszopás</a>: na csak így a szép, most már csak ezt a listbox részt kellene szebbé tenni:<br />
...<br />
For Each sor In tart.Rows<br />
If Not sor.Find(keres, LookIn:=xlValues) Is Nothing Then 'és pont elég, ha egyszer megtalálja 1 sorban<br />
Me.ListBox1.AddItem Cells(sor.row, 1) 'a sorhoz tartozó Excel! tábla sora, első oszlopa<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(sor.row, 2)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(sor.row, 3)<br />
End If<br />
Next sor<br />
...
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34388427
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2018-01-02T21:10:12+01:00
2018-01-02T21:10:12+01:00
<a href="http://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre?full_commentlist=1#c34367311" class="reply_nick_1260287" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34367311 );">@népszopás</a>: hát feladom, bár meg lehet írni a range.find metódusával is, de ha ez a feladat ez tűnik a legegyszerűbbnek, hogy sor*oszlop-> cellánként végigmegy rajta<br />
én mindenesetre így csinálnám:<br />
<br />
Private Sub TextBox1_Change()<br />
Dim tart As Range<br />
Dim i, c As Integer<br />
Dim talalt As Boolean<br />
<br />
Set tart = Range("A1:C10")<br />
<br />
Me.ListBox1.Clear<br />
Me.ListBox1.ColumnCount = 3<br />
<br />
keres = Me.TextBox1.Text<br />
<br />
For i = 1 To tart.Rows.Count 'sorok száma a tartományban<br />
talalt = False<br />
For c = 1 To tart.Columns.Count 'oszlopok száma<br />
If InStr(1, tart.Cells(i, c), keres, vbTextCompare) And keres <> "" Then talalt = True<br />
Next c<br />
<br />
If talalt Then 'sor végén feltölti a talált sort<br />
Me.ListBox1.AddItem tart.Cells(i, 1)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = tart.Cells(i, 2)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = tart.Cells(i, 3)<br />
End If<br />
Next i<br />
<br />
End Sub
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34367311
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-28T22:38:26+01:00
2017-12-28T22:38:26+01:00
<a href="http://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre?full_commentlist=1#c34367241" class="reply_nick_1260287" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34367241 );">@népszopás</a>: n most már befejezem :)<br />
<br />
Private Sub TextBox1_Change()<br />
Dim tart, cella As Range<br />
Dim talalt As Boolean<br />
<br />
Set tart = Range("A1:C10") 'ebben a tartományban keres<br />
talalt = False<br />
Me.ListBox1.Clear<br />
Me.ListBox1.ColumnCount = 3 '3 oszlop a listboxban<br />
<br />
keres = Me.TextBox1.Text 'amit keres<br />
<br />
For Each cella In tart.Cells 'összes cellán (x*y) végigmegy balról-jobbra, majd lefele<br />
If InStr(1, cella.Value, keres, vbTextCompare) And keres <> "" Then talalt = 1 'talált<br />
<br />
If cella.Column = 3 And talalt Then 'amikor adott sor utolsó oszlopában van - hogy csak egyszer legyen a listában<br />
Me.ListBox1.AddItem Cells(cella.row, 1) 'a cellához tartozó Excel! tábla sora, elős oszlopa (itt n = a tartomány n. sorával)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(cella.row, 2)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(cella.row, 3)<br />
talalt = 0 'következő találatig nem lesz új lista elem<br />
End If<br />
Next cella<br />
<br />
End Sub
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34367241
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-28T22:23:09+01:00
2017-12-28T22:23:09+01:00
<a href="http://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre?full_commentlist=1#c34366953" class="reply_nick_1260287" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34366953 );">@népszopás</a>: mondjuk ez meg így nem jó, mert egy sort többször is berak a listába, ha több oszlopban is megvan a keresett érték
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34367163
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-28T22:12:03+01:00
2017-12-28T22:12:03+01:00
na, csak nem hagyott nyugpdni, 1 for each-el: (de ez még mindig barkácsolás vsz.)<br />
Private Sub TextBox1_Change()<br />
Dim tart, cella As Range<br />
<br />
Set tart = Range("A1:C10")<br />
<br />
Me.ListBox1.Clear<br />
Me.ListBox1.ColumnCount = 3<br />
<br />
keres = Me.TextBox1.Text<br />
<br />
For Each cella In tart.Cells<br />
If InStr(1, cella.Value, keres, vbTextCompare) And keres <> "" Then<br />
Me.ListBox1.AddItem Cells(cella.row, 1)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(cella.row, 2)<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(cella.row, 3)<br />
End If<br />
Next cella<br />
<br />
End Sub
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34366953
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-28T21:37:47+01:00
2017-12-28T21:37:47+01:00
(meg a szóközt is, na mindegy :)
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34366951
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-28T21:37:10+01:00
2017-12-28T21:37:10+01:00
(a blogmotor megeszi a tabot)<br />
<br />
Private Sub TextBox1_Change()<br />
Dim tart, sor, cella As Range<br />
Dim talalt As Boolean<br />
<br />
Set tart = Range("A2:C10")<br />
<br />
Me.ListBox1.Clear<br />
Me.ListBox1.ColumnCount = 3<br />
<br />
keres = Me.TextBox1.Text<br />
<br />
For Each sor In tart.Rows<br />
talalt = False<br />
For Each cella In sor.Cells<br />
If InStr(1, cella.Value, keres, vbTextCompare) And keres <> "" Then talalt = True<br />
Next cella<br />
<br />
If talalt Then<br />
Me.ListBox1.AddItem sor.Cells(1, 1).Value<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sor.Cells(1, 2).Value<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = sor.Cells(1, 3).Value<br />
End If<br />
Next sor<br />
<br />
End Sub
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34366945
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-28T21:35:59+01:00
2017-12-28T21:35:59+01:00
<a href="http://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre?full_commentlist=1#c34314391" class="reply_nick_1260287" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34314391 );">@népszopás</a>: hát se nem szebb, se nem jobb, de megígértem:<br />
<br />
Private Sub TextBox1_Change()<br />
Dim tart, sor, cella As Range<br />
Dim talalt As Boolean<br />
<br />
Set tart = Range("A2:C10")<br />
<br />
Me.ListBox1.Clear<br />
Me.ListBox1.ColumnCount = 3<br />
<br />
keres = Me.TextBox1.Text<br />
<br />
For Each sor In tart.Rows<br />
talalt = False<br />
For Each cella In sor.Cells<br />
If InStr(1, cella.Value, keres, vbTextCompare) And keres <> "" Then talalt = True<br />
Next cella<br />
<br />
If talalt Then<br />
Me.ListBox1.AddItem sor.Cells(1, 1).Value<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sor.Cells(1, 2).Value<br />
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = sor.Cells(1, 3).Value<br />
End If<br />
Next sor<br />
<br />
End Sub<br />
<br />
(valami azt súgja, hogy ennél jóval egyszerűbben meg lehet írni (VBA-ban), csak még nem jutottam el oda)<br />
<br />
ui. nem lenne szerencsésebb a példákat excelben (is ) feltölteni?
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34321453
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-18T08:32:32+01:00
2017-12-18T08:32:32+01:00
GGy
http://blog.hu/user/128798
Használd már a forráskódban TAB billentyűt is, ez így olvashatatlan!!
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34314409
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-16T22:21:49+01:00
2017-12-16T22:21:49+01:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre?full_commentlist=1#c34314391" class="reply_nick_1260287" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34314391 );">@népszopás</a>: Azám, kezdetleges, ez is volt a cél, de remélhetőleg valaki ezzel már neki tud indulni egy jó kis elmélkedésnek:)<br />
Úgyhogy jöhetnek egyszerűsítő ötletek és javaslatok, a karácsonyi szünetben én meg lehet hozzádobok egy frissítést ehhez a kódhoz, hogy ne csak balról keressen.<br />
<br />
Köszi !
https://officeguru.blog.hu/2017/12/16/userformos_kereses_implementalasa_adatbazisra_tobb_oszlopon_egyszerre/full_commentlist/1#c34314391
Válasz erre: Userformos keresés implementálása adatbázisra, több oszlopon egyszerre
2017-12-16T22:15:20+01:00
2017-12-16T22:15:20+01:00
hát tényleg elég kezdetlegesnek tűnik, nem hinném hogy erre nincs egyszerűbb módszer (valami For ... Each jutna eszembe egyből), plusz ez (csak) balról keres <br />
<br />
ami biztos a Length= Len( ... átrakható a Dim után egyből tekintve, hogy elég egyszer fusson változásonként<br />
<br />
na majd karácsonyi szünetben nekiugrok megírni :)
https://officeguru.blog.hu/2015/11/27/mint_matyas_kiraly_excelben_be_is_szurtuk_a_linket_meg_nem_is/full_commentlist/1#c34207359
Válasz erre: Mint Mátyás király Excelben: be is szúrtuk a linket, meg nem is
2017-11-28T11:23:21+01:00
2017-11-28T11:23:21+01:00
pettyes wombat
http://blog.hu/user/721295
Ezt nagyon köszönöm Neked, ma igencsak jól jött munkámhoz!
https://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel/full_commentlist/1#c34092473
Válasz erre: E-mail küldés automatikusan, néhány soros VBA-kód segítségével
2017-11-08T20:06:37+01:00
2017-11-08T20:06:37+01:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel?full_commentlist=1#c34086301" class="reply_nick_44899" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 34086301 );">@Bálintka.</a>: & Chr(10) &
https://officeguru.blog.hu/2017/11/05/alfanumerikus_randomizalas_avagy_veletlen_generalas_betukkel_es_egyeb_karakterekkel/full_commentlist/1#c34088451
Válasz erre: Alfanumerikus randomizálás - avagy véletlen generálás betűkkel és egyéb karakterekkel
2017-11-07T21:55:22+01:00
2017-11-07T21:55:22+01:00
hogy a kisbetű benne (és egy kicsit szebb is) legyen:<br />
Sub randomizer()<br />
<br />
Dim random, egykar As String<br />
Dim i As Integer<br />
Randomize<br />
For i = 1 To 8<br />
<br />
Select Case Int((3 * Rnd) + 1)<br />
Case 1<br />
egykar = Chr(Int(26 * Rnd + 65))<br />
Case 2<br />
egykar = Chr(Int(26 * Rnd + 97))<br />
Case 3<br />
egykar = Int(10 * Rnd)<br />
End Select<br />
<br />
random = random + egykar<br />
<br />
Next i<br />
ActiveSheet.Range("A1").Formula = random<br />
End Sub<br />
<br />
/nem nehéz észrevenni, hogy egy kis aritmetikai zsonglőrködéssel a kis/nagy-betű rész könnyen optimalizálható lenne, de egyrészt nem ér annyit, másrészt így lehetőséget ad egyszerűen alakítani a kódot pld. olyanná, hogy a betű/BETŰ/szám valószínűség ne 1/3-ad legyen/
https://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel/full_commentlist/1#c34086749
Válasz erre: E-mail küldés automatikusan, néhány soros VBA-kód segítségével
2017-11-07T16:12:02+01:00
2017-11-07T16:12:02+01:00
Bálintka.
http://blog.hu/user/44899
Vagy egy táblázat beszúrása<br />
pl a <br />
.Body = Worksheets("Munka1").Range("A1:C3").Select<br />
<br />
nem működik. :(
https://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel/full_commentlist/1#c34086301
Válasz erre: E-mail küldés automatikusan, néhány soros VBA-kód segítségével
2017-11-07T14:46:05+01:00
2017-11-07T14:46:05+01:00
Bálintka.
http://blog.hu/user/44899
<a href="http://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel?full_commentlist=1#c33321965" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33321965 );">@Office Guru</a>: Bocsi<br />
<br />
A szóköz problémára rájöttem. az az & <br />
és sorba kell írni.<br />
<br />
no de mi az új sor parancsa?
https://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel/full_commentlist/1#c34086247
Válasz erre: E-mail küldés automatikusan, néhány soros VBA-kód segítségével
2017-11-07T14:38:17+01:00
2017-11-07T14:38:17+01:00
Bálintka.
http://blog.hu/user/44899
Sziasztok. fantasztikus a leírás. Zseniális, mert egy magamfajta hozzá nem értő tag is könnyen megtudta csinálni.<br />
Egy "enter" problémám lenne, illetve "szóköz". Kérdésem.<br />
<br />
Az üzenet tartalma több cellából állna. Pl Cells(1, 1) és Cells(1, 2) Szeretném ha egymás alá és egy másik verzióban pedig egymás mellé kerülnének.<br />
<br />
Milyen parancssorral fogalmazzam meg?<br />
<br />
Érthetőbben:<br />
<br />
A1:Bálintka B1:Fázik<br />
<br />
.Body = Worksheets("Munka1").Cells(1, 1).Value<br />
?<br />
Worksheets("Munka1").Cells(1, 2).Value<br />
<br />
mit írjak a kérdőjel helyére, hogy az eredmény:<br />
<br />
Bálintka<br />
Fázik<br />
<br />
Illetve mit írjak a kérdőjel helyére, hogy egymás mellé kerüljön:<br />
<br />
BálintkaFázik<br />
<br />
(direkt írtam egybe, gondolom a szóköz egy harmadik beillesztés lesz, ami a kettő közé kerül " " alakjában.
https://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok/full_commentlist/1#c33914499
Válasz erre: Munkalapok összevonása, összemásolása - 1. rész: Beépített funkciók
2017-10-08T20:09:32+02:00
2017-10-08T20:09:32+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok?full_commentlist=1#c33911813" class="reply_nick_520510" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33911813 );">@toportyánféreg</a>: Amúgy igazad lenne, csak nálam nem így működik... :o)
https://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok/full_commentlist/1#c33911265
Válasz erre: Munkalapok összevonása, összemásolása - 1. rész: Beépített funkciók
2017-10-08T10:16:33+02:00
2017-10-08T10:16:33+02:00
fordulo_bogyo
http://blog.hu/user/450523
Koszi, ertem.
https://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok/full_commentlist/1#c33911001
Válasz erre: Munkalapok összevonása, összemásolása - 1. rész: Beépített funkciók
2017-10-08T09:27:33+02:00
2017-10-08T09:27:33+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok?full_commentlist=1#c33910929" class="reply_nick_450523" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33910929 );">@fordulo_bogyo</a>: Ennél a példánál természetesen így van. Ettől függetlenül akartam megnézni a sima CTRL+C és CTRL+V opción kívüli lehetőségeket...
https://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok/full_commentlist/1#c33910987
Válasz erre: Munkalapok összevonása, összemásolása - 1. rész: Beépített funkciók
2017-10-08T09:26:27+02:00
2017-10-08T09:26:27+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok?full_commentlist=1#c33908503" class="reply_nick_520510" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33908503 );">@toportyánféreg</a>: Igen, így van, de arra simán jó a Consolidate is. A cél a sima másolás, nem a konszolidálás - és első körben meg akartam nézni, mit lehet makró nélkül.
https://officeguru.blog.hu/2017/10/07/munkalapok_osszevonasa_osszemasolasa_1_resz_beepitett_funkciok/full_commentlist/1#c33910929
Válasz erre: Munkalapok összevonása, összemásolása - 1. rész: Beépített funkciók
2017-10-08T09:13:56+02:00
2017-10-08T09:13:56+02:00
fordulo_bogyo
http://blog.hu/user/450523
Bocs, de egy Ctr-C Ctr-V nem egyszerubb ennel?<br />
Idoben is leutesek szamaban is....<br />
<br />
Vagy csak en nem latom a nagyszeruseget ennek a funkcionak?
https://officeguru.blog.hu/2017/09/30/textjoin_a_legujabb_baratunk_amely_uj_alapokra_helyezi_az_osszefuzes_tudomanyat/full_commentlist/1#c33870457
Válasz erre: TEXTJOIN: a legújabb barátunk, amely új alapokra helyezi az összefűzés tudományát
2017-10-01T18:05:09+02:00
2017-10-01T18:05:09+02:00
_kolléga_
http://blog.hu/user/512352
mondjuk így: <br />
<br />
Public Function textjoin(rng As Range, deli As String, ureset As Boolean) As String<br />
Dim conced As String<br />
<br />
conced = ""<br />
For Each cell In rng<br />
If cell.Value <> "" Or ureset = True Then<br />
conced = conced & cell.Value & deli<br />
End If<br />
Next<br />
<br />
textjoin = Left(conced, Len(conced) - 1)<br />
End Function
https://officeguru.blog.hu/2017/09/30/textjoin_a_legujabb_baratunk_amely_uj_alapokra_helyezi_az_osszefuzes_tudomanyat/full_commentlist/1#c33870309
Válasz erre: TEXTJOIN: a legújabb barátunk, amely új alapokra helyezi az összefűzés tudományát
2017-10-01T17:38:33+02:00
2017-10-01T17:38:33+02:00
_kolléga_
http://blog.hu/user/512352
ha valakinek hiányozna 2013-ból:<br />
<br />
Public Function textjoin(rng As Range, deli As String) As String<br />
Dim conced As String<br />
<br />
conced = ""<br />
For Each cell In rng<br />
conced = conced & cell.Value & deli<br />
Next<br />
<br />
textjoin = Left(conced, Len(conced) - 1)<br />
End Function<br />
<br />
(az üres cellák kizárása sem egy ördöngösség)
https://officeguru.blog.hu/2017/09/24/animalt_keziras_powerpointban_dedosnak_tunhet_de_sok_bemutatoban_lehet_helye/full_commentlist/1#c33840312
Válasz erre: Animált kézírás PowerPointban - dedósnak tűnhet, de sok bemutatóban lehet helye
2017-09-26T20:43:59+02:00
2017-09-26T20:43:59+02:00
Dzsontra Volta
http://blog.hu/user/1023520
Ha rajtam múlna, akkor letöltendő szabadságvesztéssel büntetném a powerpoint használatát...
https://officeguru.blog.hu/2017/09/22/itt_a_hetvege_harom_konnyed_excel-tipp_hogy_jol_induljon/full_commentlist/1#c33824358
Válasz erre: Itt a hétvége - három könnyed Excel-tipp, hogy jól induljon
2017-09-24T06:04:18+02:00
2017-09-24T06:04:18+02:00
Burgermeister
http://blog.hu/user/222511
jó, hasznos, átveszem :)
https://officeguru.blog.hu/2017/09/10/ha_nem_tetszik_a_slicer_vagy_csak_mas_megoldas_utan_kutatsz_a_camera_tool_segit/full_commentlist/1#c33742388
Válasz erre: Ha nem tetszik a Slicer vagy csak más megoldás után kutatsz - a Camera Tool segít!
2017-09-10T22:39:05+02:00
2017-09-10T22:39:05+02:00
_kolléga_
http://blog.hu/user/512352
szent isten :)
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c33675310
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2017-08-30T08:17:41+02:00
2017-08-30T08:17:41+02:00
Coolya
http://blog.hu/user/231539
Köszönöm! :-)
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c33674056
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2017-08-29T21:15:40+02:00
2017-08-29T21:15:40+02:00
_kolléga_
http://blog.hu/user/512352
pontosabban így (többet nem írok ígérem :):<br />
<br />
Private Sub X()<br />
Dim Outlookprogi As Object<br />
Dim Email As Object<br />
<br />
On Error Resume Next<br />
<br />
For i = 4 To Range("C65536").End(xlUp).Row<br />
If Cells(i, 3) = Date Then<br />
Set Outlookprogi = CreateObject("Outlook.Application")<br />
Set Email = Outlookprogi.CreateItem(0)<br />
With Email<br />
.To = "officeguruhelp@gmail.com"<br />
.cc = ""<br />
.Subject = Cells(i, 2).Value<br />
.Body = "EzProblema?"<br />
.Attachments.Add<br />
.display<br />
End With<br />
Set Email = Nothing<br />
Set Outlookprogi = Nothing<br />
End If<br />
Next<br />
<br />
End Sub
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c33674046
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2017-08-29T21:14:30+02:00
2017-08-29T21:14:30+02:00
_kolléga_
http://blog.hu/user/512352
mondjuk így működik, bár - vsz - nem szép:<br />
<br />
Private Sub X()<br />
Dim Outlookprogi As Object<br />
Dim Email As Object<br />
<br />
Set Outlookprogi = CreateObject("Outlook.Application")<br />
Set Email = Outlookprogi.CreateItem(0)<br />
<br />
On Error Resume Next<br />
<br />
For i = 4 To Range("C65536").End(xlUp).Row<br />
If Cells(i, 3) = Date Then<br />
Set Outlookprogi = CreateObject("Outlook.Application")<br />
Set Email = Outlookprogi.CreateItem(0)<br />
With Email<br />
.To = "officeguruhelp@gmail.com"<br />
.cc = ""<br />
.Subject = Cells(i, 2).Value<br />
.Body = "EzProblema?"<br />
.Attachments.Add<br />
.display<br />
End With<br />
Set Email = Nothing<br />
Set Outlookprogi = Nothing<br />
End If<br />
Next<br />
<br />
End Sub
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c33674002
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2017-08-29T21:06:57+02:00
2017-08-29T21:06:57+02:00
_kolléga_
http://blog.hu/user/512352
<a href="http://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban?full_commentlist=1#c33673966" class="reply_nick_512352" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33673966 );">@_kolléga_</a>: ja nem, bocs hülyeséget írtam :)<br />
bár lehet, ha a End With után emellett átteszed a <br />
Set Email = Nothing<br />
Set Outlookprogi = Nothing<br />
sorokat, akár jó is lesz
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c33673966
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2017-08-29T21:01:15+02:00
2017-08-29T21:01:15+02:00
_kolléga_
http://blog.hu/user/512352
így kipróbálás (meg ismertek :) nélkül: tedd a <br />
Set Outlookprogi = CreateObject("Outlook.Application")<br />
Set Email = Outlookprogi.CreateItem(0)<br />
<br />
sorokat a <br />
If Cells(i, 3) = Date Then<br />
sor áutánra (a with elé)
https://officeguru.blog.hu/2017/08/12/automatikus_ertesiteskuldes_excelbol_meghatarozott_idopontban/full_commentlist/1#c33671688
Válasz erre: Automatikus értesítésküldés Excelből meghatározott időpontban
2017-08-29T14:56:22+02:00
2017-08-29T14:56:22+02:00
Coolya
http://blog.hu/user/231539
Sziasztok!<br />
<br />
Ha több azonos napon lejáró dátum van nekem csak a legutolsót veszi figyelembe. <br />
Van erre megoldás?<br />
Köszi
https://officeguru.blog.hu/2017/08/02/vagolapos_elmelkedes_excelbol_uritsunk_na_de_hogyan/full_commentlist/1#c33550320
Válasz erre: Vágólapos elmélkedés Excelből: ürítsünk, na de hogyan?
2017-08-08T18:51:22+02:00
2017-08-08T18:51:22+02:00
GABOR2
http://blog.hu/user/1019802
Nem értem miért baj, ha a vágólapon marad valami.
https://officeguru.blog.hu/2017/07/03/textboxok_tartalmanak_makros_feldolgozasa/full_commentlist/1#c33361245
Válasz erre: TextBoxok tartalmának makrós feldolgozása
2017-07-08T07:17:06+02:00
2017-07-08T07:17:06+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/07/03/textboxok_tartalmanak_makros_feldolgozasa?full_commentlist=1#c33335139" class="reply_nick_520510" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33335139 );">@toportyánféreg</a>: Jogos... :)
https://officeguru.blog.hu/2017/07/05/sok_sort_tartalmazo_cella_szetvagasa_soronkent_kulon_cellaba/full_commentlist/1#c33361241
Válasz erre: Sok sort tartalmazó cella szétvágása soronként külön cellába
2017-07-08T07:16:19+02:00
2017-07-08T07:16:19+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/07/05/sok_sort_tartalmazo_cella_szetvagasa_soronkent_kulon_cellaba?full_commentlist=1#c33349299" class="reply_nick_520510" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33349299 );">@toportyánféreg</a>: Ez így is van, csak nem mindenki ismeri, használja a Notepad ++ -t (sőt, bizonyos környezetekben le sem tölthető, fel sem másolható), ahogy pedig írtad is, a sima Notepad nem segítség.
https://officeguru.blog.hu/2017/07/05/sok_sort_tartalmazo_cella_szetvagasa_soronkent_kulon_cellaba/full_commentlist/1#c33354969
Válasz erre: Sok sort tartalmazó cella szétvágása soronként külön cellába
2017-07-07T05:18:37+02:00
2017-07-07T05:18:37+02:00
J. McClane
http://blog.hu/user/61769
Erre valoban a notepad a joval egyszerubb megoldas. De persze lehet bonyolitani is.
https://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel/full_commentlist/1#c33330619
Válasz erre: E-mail küldés automatikusan, néhány soros VBA-kód segítségével
2017-07-03T11:05:52+02:00
2017-07-03T11:05:52+02:00
poord
http://blog.hu/user/814576
<a href="http://officeguru.blog.hu/2015/10/25/e-mail_kuldes_automatikusan_nehany_soros_vba-kod_segitsegevel?full_commentlist=1#c33321965" class="reply_nick_1029428" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 33321965 );">@Office Guru</a>: <br />
<br />
Köszönöm szépen! Működik!
https://officeguru.blog.hu/2017/07/01/lekerekitett_vegu_vagy_eppen_hegyes_oszlopdiagramok_hasznalata/full_commentlist/1#c33326285
Válasz erre: Lekerekített végű vagy éppen hegyes oszlopdiagramok használata
2017-07-02T11:03:29+02:00
2017-07-02T11:03:29+02:00
Attilajukkaja
http://blog.hu/user/53310
Nekem ezek a fura oszlopok nagyon nem jönnek be! :o(
https://officeguru.blog.hu/2017/04/25/word-fajl_tartalma_a_leheto_leggyorsabban_powerpointba_diakba/full_commentlist/1#c33321993
Válasz erre: Word-fájl tartalma a lehető leggyorsabban PowerPointba diákba
2017-07-01T11:04:11+02:00
2017-07-01T11:04:11+02:00
Office Guru
http://blog.hu/user/1029428
<a href="http://officeguru.blog.hu/2017/04/25/word-fajl_tartalma_a_leheto_leggyorsabban_powerpointba_diakba?full_commentlist=1#c32938837" class="reply_nick_907441" onclick="javascript:if ( typeof followCommentReply != 'undefined' ) return followCommentReply( 32938837 );">@Storm Region</a>: Ezzel egyet is értek, a lehető legkevesebb szöveg és a legtöbb design és vizualitás az irányvonal, viszont vannak esetek, amikor nem ez a feladat...