- Szoszo94: Xiaomi Mi Router 3G - Padavanra fel!
- gban: Ingyen kellene, de tegnapra
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- btz: Internet fejlesztés országosan!
- antikomcsi: Celebtanya - Farm VIP V.
- Luck Dragon: Asszociációs játék. :)
- Bevezetés a wokok világába
- sziku69: Fűzzük össze a szavakat :)
- weiss: Pant* rant
-
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. -
#31198
föccer
nagyúr
szabonagyur
#31197
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
-
#31196
föccer
nagyúr
szabonagyur
#31195
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.
-
#31194
föccer
nagyúr
szabonagyur
#31193
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
-
#31192
föccer
nagyúr
szabonagyur
#31191
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.
-
#31191
szabonagyur
félisten
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
-
#31189
föccer
nagyúr
the radish
#31188
föccer
nagyúr
válasz
the radish
#31188
üzenetére
Cellaformátumban válaszd ki a megfelelő formátumot.
üdv, föccer
-
#31188
the radish
senior tag
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.
-
#31170
Nowitzki
csendes tag
PowerBuldog
#31169
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 -
#31168
Nowitzki
csendes tag
PowerBuldog
#31167
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.
-
#31166
Nowitzki
csendes tag
PowerBuldog
#31165
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 -
#31165
PowerBuldog
veterán
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
-
-
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!
-
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 -
#31133
werszomjas
addikt
werszomjas
#31132
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.
-
#31131
Delila_1
veterán
werszomjas
#31128
Delila_1
veterán
válasz
werszomjas
#31128
üzenetére
Nézz el ide!
-
#31129
föccer
nagyúr
werszomjas
#31128
föccer
nagyúr
válasz
werszomjas
#31128
üzenetére
Darabhatöbb föggvény. Színre csak makróval menne.
-
#31128
werszomjas
addikt
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
-
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 -
#31109
gdodi
csendes tag
BigBadPlaYeR
#31108
gdodi
csendes tag
válasz
BigBadPlaYeR
#31108
üzenetére
Azzal kezdtem.
-
#31107
gdodi
csendes tag
BigBadPlaYeR
#31106
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ó.
-
#31106
BigBadPlaYeR
senior tag
gdodi
#31105
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
. Visszafelé (dátumból szám): vagy általános, vagy szám formátum.
Ha nem, akkor makro lesz 
)
.
, mert alapból az excel *-al jelöli a szorzást. 
Új hozzászólás Aktív témák
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eladó Steam kulcsok kedvező áron!
- Thinkpad X230 legenda: i7 CPU, IPS kijelző, 12 GB, dupla SSD, magyar villbill, webcam, fingerprint
- PlayStation Plus Premium előfizetések
- Több mint 70.000 eladott szoftverlicenc
- Bomba ár! HP 255 G7 - AMD A4 I 4GB I 128SSD I HDMI I 15,6" FHD I Radeon I HDMI I W11 I Cam I Gari!
- Bomba ár! HP ProBook 450 G6 - i7-8GEN I 16GB I 256SSD I HDMI I 15,6" FHD I Cam I W10 I Gari!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest