- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- ricshard444: Fényképező ? Telefon helyett
- Real Racing 3 - Freemium csoda
- Mr Dini: Mindent a StreamSharkról!
- t72killer: Egy gyors töltőteszt
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
válasz
bteebi #31199 üzenetére
Ezekkel a dátumformázási beállításokkal nagyjából tisztában vagyok, és meg is tudok jeleníteni dátumokat, ami hiányzik, az a rövid dátum beírása.
Win 8.1 alatt még működött, Win 10 alatt a többi általam használt táblázatkezelőben működik -- Win10 alatt Excelben nem működik.És legjobb tudomásom szerint ehhez még csak beállítás sem kell, ez alapértelmezett szolgáltatás ősidők óta.
Úgyhogy valami azt súgja, hogy a MS próbálja ösztönözni a felhasználókat a váltásra...
Köszönettel: MaCS
-
bteebi
veterán
válasz
MaCS_70 #31187 üzenetére
Az Excel a dátumot mindig az 1900. január 1. óta eltelt napok számaként tárolja (1,5 pl. 1900.01.01. 12:00, 2,75 pedig 1900.01.02. 18:00), a cellaformátum az, ami ezt (jobb esetben) az ízlésünknek megfelelően jeleníti meg. Valamilyen beállításbeli problémád lehet csak. Próbáld meg azt, hogy Cellák formázása (Ctrl+1) → Szám → Egyéni → Formátumkód: éééé.hh.nn. Ha így se jeleníti meg rendesen, akkor nincs ötletem
. Visszafelé (dátumból szám): vagy általános, vagy szám formátum.
-
föccer
nagyúr
válasz
szabonagyur #31197 üzenetére
Feltételes formázással elég keveset szoktam foglalkozni, így passz, hogy hogyan lehetne ennél hatékonyabban megoldani.
üdv, föccer
-
föccer
nagyúr
válasz
szabonagyur #31195 üzenetére
Cella értéke eggyenlő 26 és alul megadod a hozzá tartozó színt. Ez után új szabályt veszel fel ugyan arra a cellára, cella értéke eggyenlő 13 és alul megadod a hozzá tartozó színt. És ezt megcsinálod az összes értékkel.
-
föccer
nagyúr
válasz
szabonagyur #31193 üzenetére
Ki lehet választani azt is, hogy cella értéke alapján. Ha több érték is lehet, akkor egyesével be kell az összes értéket felvenni a szabályba.
üdv, föccer
-
föccer
nagyúr
válasz
szabonagyur #31191 üzenetére
Feltételes formázás néven keresd. Lehet cella értékére is beállítani.
-
szabonagyur
félisten
Sziasztok,
Excelben hogy tudom beállítani, hogy egyes cellák színét vagy betűket megadott színkód alapján formázzon? PL. 26 az fekete stb
Köszi
-
föccer
nagyúr
válasz
the radish #31188 üzenetére
Cellaformátumban válaszd ki a megfelelő formátumot.
üdv, föccer
-
the radish
senior tag
Sziasztok!
Excelben tárolt adatok word körlevélbe illesztésénél a dátummal akadt egy kis problémám:
Excelben a megfelelő 2016.04.02 formátum a wordben 04/02/2016 formátumban jelenik meg. Hogy tudnám ezt a hibát orvosolni?
-
Üdvözlöm a tudós topiclakókat!
Ha már lett volna a problémám, elnézést kérek, a kereső segítségével nem találtam nyomát.
Tehátakkorlás suk!
Gyakorlati (és pénzügyi) okok miatt több gépemen is az Office régebbi, jelesül 2000 és 2003 becenevű változata fut. A Windows 8.1-ig nem is volt komoly gondom, egy-két funkció ugyan eltűnt a 8-ra váltáskor, de nem volt vészes.
A 10-es upgrade viszont már komoly problémát okoz, mégpedig az Excelben: nem kezeli a dátumbeírást. Azaz, ha beírom, hogy 4/1, akkor kapok egy 4/1-es cellát, nem pedig a mai dátumot -- illetve semmilyen dátumot, akkor sem, ha egyébként dátumformátumú a cella. Ha dátumformátumú cellába írok számot, azt kizárólag 1900. január 1-jétől számított napok alapján hajlandó kiírni, semmilyen elválasztott formátumot nem ismer fel.
Erre vajon van megoldás?
Köszönettel: MaCS
-
-
Nowitzki
csendes tag
válasz
Kalandor #31181 üzenetére
Mindenféle utómunka nélkül szerintem sem lehetséges szétválasztani a szöveget (csak ha tabulátorral vannak elválasztva az egyes értékek). Szerintem a legegyszerűbb ha a fenti makrót bemásolod a "PERSONAL.XLSB" fájlba és akkor az összes excel fájlban működni fog egy klikkre.
-
föccer
nagyúr
válasz
Kalandor #31181 üzenetére
Az excel magától nem fogja tudni, hogy a beszúrandó szöveget szét kell szednie-e vagy sem. Az adat importtal tudod utasítani erre.
Ha mindenképpen csak beszúrással akarod rendezni a dolgot, akkor vagy makrót kell mögő tenni, vagy szöveg tördelő függvénnyel kell szétszedned a beszúrt szöveget. Szerintem mind a kettő bonyolultabb, mint exportálni.
A függvényeset össze3dobtam neked, átküldöm e-mailen.
-
válasz
Nowitzki #31180 üzenetére
Importálás nélkül tabulátorral kell elválasztva lenniük az értékeknek hogy másolás-beillesztéskor külön cellába kerüljenek az értékek.
Nekem ez van Wordpress formulában, hogy ezeket kiküldi emailben:
[nev],[szuletesi_ido],[megye],[iranyitoszam],[telepules]
és emailben ez érkezik meg:
nev,szuletesi_ido,megye,iranyitoszam,telepulesA kapcsos zárójelek közt elvileg azt írok, amit csak akarok, a rendszer kiküldi. Milyen karaktert írjak?
^I-t, és HT symbolt próbáltam, azt nekem nem veszi be az Excel. Mi a helyes karakter?
A második megoldásodat értettem, csak makro nélkül, teljesen egyszerűen szeretném megoldani
-
Nowitzki
csendes tag
válasz
Kalandor #31179 üzenetére
Importálás nélkül tabulátorral kell elválasztva lenniük az értékeknek hogy másolás-beillesztéskor külön cellába kerüljenek az értékek. Minden más esetben csak importálással működik, vagy beillesztés után "text to columns", mindkettőre lehet makrót írni. Például ha ezzel "¿" legyen elálasztva akkor csak bemásolod az "A1" cellába a "¿"-vel elválasztott értékeket (pl.: adat1¿adat2¿adat3¿adat4¿adat5) és futtatod ezt:
Sub Macro1()
Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:="¿"
End Sub
akkor szétszedi cellákba. -
-
válasz
föccer #31176 üzenetére
Bármi adat jó
Csak eg yolyan karakter kell, aminél az Excel automatikusan külön cellába dobálja a folyószöveget:
adat1, adat2, adat3, adat4, adat5
Szóval az a karakter kell a vessző helyett, aminél ezt kimásolva és excelbe téve nem 1 hanem 5 egymás melletti cellába kerül az adat.
Ha van ilyen karakter. -
-
Van egy emailform, ami az egyes adatokat emailben küldi, vesszővel vagy bármilyen karakterrel elválasztva, amit kérek. Van olyan karakter, amit használva ha kimásolom azt az ömlsztett sort, akkor cellántként szétszedi az Excel?
Vessző és pontosvessző nem jó, külön sorokat használva pedig külön sorokba teszi, de egymás mellé kellene sorokba.Tudom, hogy ki lehet másolni, notepadbe be, CSV-be export, de hátha van szimplább megoldás, egy másolás egyszerűbb.
-
tombar
senior tag
sziasztok
olyan jellegű problémám van, hogy van egy folyamatosan futó makró, ami adatgyűjtőként funkcionál. megnyomsz egy gombot egy mérőgépen, és az általa mért érték bekerül egy excel tábla egy osrral és oszloppal meghatározott helyére.
2 gondom van vele. egyik, hogy mindig a soron következő cellán kell lennie a kijelölésnek és magának az excel ablaknak kell aktívnak lennie. kód ismeretének hiányában (még nem néztem meg, illetve ehhez a részéhez nem értek) van lehetőség ennek a kiküszöbölésének.előre is köszönöm.
-
atti1848
senior tag
-
Nowitzki
csendes tag
válasz
PowerBuldog #31169 üzenetére
Vagy ha a részleteket is ki akarod íratni akkor:
Sub pizza()
sor = 1
For pizza1 = 1 To 45
For pizza2 = 1 To 45
Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2 'pizzák sorszámai
Cells(sor, "C") = Cells(pizza1, "A") & "+" & Cells(pizza2, "A") ' pizzák árai
Cells(sor, "D") = Cells(pizza1, "A") + Cells(pizza2, "A") 'pizzák összege
Cells(sor, "E") = "=" & Cells(pizza1, "A").Address & "+" & Cells(pizza2, "A").Address 'pizzák összege képlettel
sor = sor + 1
Next pizza2
Next pizza1
End Sub -
Nowitzki
csendes tag
válasz
PowerBuldog #31167 üzenetére
Ha az "A" oszlopban vannak egymás alatt felsorolva a pizzák árai, akkor működik. Ezért kérdeztem, hogy hol vannak neked megadva az egyes pizzák árai.
-
Nowitzki
csendes tag
válasz
PowerBuldog #31165 üzenetére
Hol vannak megadva a pizzák árai?
Tegyük fel az "A" oszlopban vannak egymás alatt felsorolva az egyes pizzák árai. Akkor mondjuk ez működhet:Sub pizza()
sor = 1
For pizza1 = 1 To 45
For pizza2 = 1 To 45
Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2
Cells(sor, "C") = Cells(pizza1, "A") + Cells(pizza2, "A")
sor = sor + 1
Next pizza2
Next pizza1
End Sub -
PowerBuldog
veterán
Sziasztok!
Van-e olyan guru aki tud egy függvényt nekem erre:
Rendelhető két pizza. 45 féle pizza van. 45*45 variáció. Ezeknek a pizzáknak az árát kéne kiszámolni egy oszlopba az összes lehetséges kombinációban
pl: 1150Ft-os pozzához lehet párosítani 1150Ft/1290Ft/1650Ft/1490Ft-os pizzát stb -
Nowitzki
csendes tag
válasz
Declare #31162 üzenetére
Ez hozzáírja a fájlnévhez a mentés dátumát (év, hó, nap, óra, perc).
Sub ActiveSheetExportToPdf1()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste_" & Format(Now, "yyyymmdd_hhnn") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End SubEz pedig hozzáad egy növekményes azonosítót a fájlnévhez ha az már létezik.
Sub ActiveSheetExportToPdf2()
cntr = ""
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = "" Then GoTo xprt
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") <> "" Then
cntr = 1
Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = ""
cntr = cntr + 1
Loop
End If
xprt:
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub -
Nowitzki
csendes tag
válasz
Declare #31160 üzenetére
Szia,
Próbáld meg ezt:
Sub ActiveSheetExportToPdf()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub -
Declare
őstag
Sziasztok!
Egy kis macro s segitseget kernek.
Egy excel sheet -et szeretnek macroval PDF formatumba lementeni. Az lenne a cel, hogy a macrot elinditva, az excellel azonos mappába, mentse le maskent a tablazatot PDF formatumba ugy, hogy a neve az az excel fajl neve + egy szocska legyen ("_Laserteileliste")
Tehat:
"29.03.2016 XY Project.xlsm" (fajl nev) es ebböl a macro "29.03.2016 XY Project_Leserteileliste.PDF" et mentene el.
Van egy macro-m, ami majdnem ugy müködik, ahogy nekem kellene:
Sub Laserteile_PDF()
Dim FSO As Object
Dim s(1) As String
Dim sNewFilePath As String
Set FSO = CreateObject("Scripting.FileSystemObject")
s(0) = ThisWorkbook.FullName
If FSO.FileExists(s(0)) Then
'//Change Excel Extension to PDF extension in FilePath
s(1) = FSO.GetExtensionName(s(0))
If s(1) <> "" Then
s(1) = "." & s(1)
sNewFilePath = Replace(s(0), s(1), ".pdf")
'//Export to PDF with new File Path
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sNewFilePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Else
'//Error: file path not found
MsgBox "Error: this workbook may be unsaved. Please save and try again."
End If
Set FSO = Nothing
End SubEz az adott mappaba elmenteni az excel nevvel megeggyezö néven a pdf et. A baj az, hogy nem tudom, hogy lehet a plussz szócskát betenni a nevébe es ez felülirja, mindig a legutobbit.
Tudtok ebben segiteni?
Kicsit autodidacta modon tanulgatom is a macro keszitest, a netröl, ilyen alap szinten, kb ertem miröl van szo ebben a macroban, de azert sokminden nem tiszta
-
Delila_1
veterán
válasz
bteebi #31156 üzenetére
Feltettem ide a fájlt.
Az eredeti lapodat átneveztem, az új neve Eredeti. Készítettem róla egy másolatot, a Sheet1-et, ezen dolgoztam.
Tettem a lapra egy feltételes formázást, majd futtattam a makrót. A makró végén az F oszlopba írtam egy ellenőrző képletet. Ha itt minden sorban IGAZ érték van, akkor rendben van a dolog.
-
csaba.cs
újonc
Sziasztok!
Egy kis segítséget szeretnék kérni, nem tudom hogy egyáltalán megoldható-e az elképzelésem.
Van 4db cellám, C,D,E és H. A c,d,e cellákba értékek vannak, H cella üres. Az lenne a kérdés, hogy megoldható-e az hogyha a C,D,E cellák közül valamelyiket kitöltöm egy színnel(legyen ez a szín most sárga) akkor a sárgára színezett cella értéke, és a cella színe is bekerüljön a H cellába. Csatoltam egy képet hátha így érthetőbb. És előre is köszönök bármilyen segítséget/ötletet! -
Delila_1
veterán
-
YAN0U
csendes tag
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
-
Nowitzki
csendes tag
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
EndElőre is nagyon szépen köszönöm!
-
Carasc0
őstag
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?
-
Delila_1
veterán
válasz
gaben86 #31138 üzenetére
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 -
gaben86
csendes tag
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 -
werszomjas
addikt
válasz
werszomjas #31132 üzenetére
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.
-
Delila_1
veterán
válasz
werszomjas #31128 üzenetére
Nézz el ide!
-
föccer
nagyúr
válasz
werszomjas #31128 üzenetére
Darabhatöbb föggvény. Színre csak makróval menne.
-
werszomjas
addikt
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.
-
spe88
senior tag
válasz
bteebi #31114 üzenetére
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. -
föccer
nagyúr
válasz
Garffi #31123 üzenetére
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
-
Garffi
tag
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. -
d.bali
csendes tag
Ü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 -
DS39
nagyúr
Ü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.
-
bteebi
veterán
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.
-
bteebi
veterán
válasz
Joltee #31110 üzenetére
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 -
gdodi
csendes tag
válasz
BigBadPlaYeR #31108 üzenetére
Azzal kezdtem.
-
gdodi
csendes tag
válasz
BigBadPlaYeR #31106 üzenetére
Próbáltam, nem szereti. Lehet, hogy csak szintaktikailag nem fogadja el, de nem jöttem rá, hogy lenne jó.
-
BigBadPlaYeR
senior tag
Aktív munkalap = ActiveSheet ?
-
gdodi
csendes tag
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! -
walanr
csendes tag
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.
-
bteebi
veterán
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 SubEz 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).
-
bteebi
veterán
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Assassin's Creed Shadows Collector's Edition PC
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- ÁRGARANCIA! Épített KomPhone i5 14400F 32/64GB RAM RTX 5060Ti 8GB GAMER PC termékbeszámítással
- LG 32GS95UE - 32" OLED / UHD 4K / 240Hz - 480Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- AKCIÓ! ASUS H81M-PLUS H81 chipset alaplap garanciával hibátlan működéssel
- Fedezd fel az NVIDIA világát! Kamatmentes rèszletre is!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest