Hirdetés
- Milyen egeret válasszak?
- VR topik (Oculus Rift, stb.)
- HP notebook topic
- IFA 2025: Hatalmas táblagépek az Acertől
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Home server / házi szerver építése
- Épített vízhűtés (nem kompakt) topic
- IFA 2025: Egy normál és papírvékony tábla a Samsungtól
- TCL LCD és LED TV-k
-
PROHARDVER!
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
-
vamzi
senior tag
Szia,
Elhiszem, viszont nem valami kifinomult a PH keresője és lövésem sincs hogy keressek rá, hogy értékelhető találatot kapjak. A hsz-eket pedig kézzel nem szeretném áttúrni.
Jelenleg amúgy ott tartok, hogy kigugliztam egy olyan VBA kódot, ami minden táblázat első sheetjét összemásolja nekem. De mivel nem ismerem a nyelvet, így nem tudom kiegészíteni, hogy a többi sheetet is másolja át.
[link]
Sub MergeAllWorkbooks()
Dim MyPath As String, FilesInPath As String
Dim MyFiles() As String
Dim SourceRcount As Long, FNum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range
Dim rnum As Long, CalcMode As Long
' Change this to the path\folder location of your files.
MyPath = "C:\Users\Ron\test"
' Add a slash at the end of the path if needed.
If Right(MyPath, 1) <> "\" Then
MyPath = MyPath & "\"
End If
' If there are no Excel files in the folder, exit.
FilesInPath = Dir(MyPath & "*.xl*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If
' Fill the myFiles array with the list of Excel files
' in the search folder.
FNum = 0
Do While FilesInPath <> ""
FNum = FNum + 1
ReDim Preserve MyFiles(1 To FNum)
MyFiles(FNum) = FilesInPath
FilesInPath = Dir()
Loop
' Set various application properties.
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
' Add a new workbook with one sheet.
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
rnum = 1
' Loop through all files in the myFiles array.
If FNum > 0 Then
For FNum = LBound(MyFiles) To UBound(MyFiles)
Set mybook = Nothing
On Error Resume Next
Set mybook = Workbooks.Open(MyPath & MyFiles(FNum))
On Error GoTo 0
If Not mybook Is Nothing Then
On Error Resume Next
' Change this range to fit your own needs.
With mybook.Worksheets(1)
Set sourceRange = .Range("A1:C1")
End With
If Err.Number > 0 Then
Err.Clear
Set sourceRange = Nothing
Else
' If source range uses all columns then
' skip this file.
If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
Set sourceRange = Nothing
End If
End If
On Error GoTo 0
If Not sourceRange Is Nothing Then
SourceRcount = sourceRange.Rows.Count
If rnum + SourceRcount >= BaseWks.Rows.Count Then
MsgBox "There are not enough rows in the target worksheet."
BaseWks.Columns.AutoFit
mybook.Close savechanges:=False
GoTo ExitTheSub
Else
' Copy the file name in column A.
With sourceRange
BaseWks.Cells(rnum, "A"). _
Resize(.Rows.Count).Value = MyFiles(FNum)
End With
' Set the destination range.
Set destrange = BaseWks.Range("B" & rnum)
' Copy the values from the source range
' to the destination range.
With sourceRange
Set destrange = destrange. _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value
rnum = rnum + SourceRcount
End If
End If
mybook.Close savechanges:=False
End If
Next FNum
BaseWks.Columns.AutoFit
End If
ExitTheSub:
' Restore the application properties.
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
End Sub -
mdk01
addikt
A kötjelek és az alsóvonás azonos, de van olyan cella ahol a 2-es helyett 0,4 van így nem tudom neki azt mondani általánosságban hogy a 2. értéktől vegyen ki egyet, mert ezt a kettessel meglehet csinálni, de ahol a 0,4 van ott ugye az kell hogy a 2. értéktől vegyen ki hármat.
Szóval a tuti az lenne ha azt megtudnám adni neki hogy pl. a 2. és 3. kötjel között vegyen ki mindent és ugyanígy a 3. 4. kötjel között. Azért nem jó az érték mert ugye az mindig máshol van mivel vhol 2-es szám vhol 0,4-es szám szerepel. -
madrol
csendes tag
-
-
slashing
senior tag
detto ugyan az
Szer.:
De jó ötletet adtál mert így kiderült hogy nem azzal van gond ahonnan veszi az adatot hanem azzal hogy amelyikbe belekerül annak is idő a cellaformátuma. De itt már nem számít hogy szöveg vagy idő így átállítom szövegra és akkor csak egy 0-át ír ki amire meg már tudok egy feltételes formázást csinálni
-
pigster
senior tag
Köszi.
Ez eddig ok is lenne, de csak akkor működik, ha ténylegesen ott van a szám is, tehát pl:
1,234
12,34
123,4Ezeket szépen tizedesre igazítaná
De az én problémám az lenne, hogy hogyan lehetne ezt úgy megoldani, hogy ebben az esetben is tizedesre igazodjon, az elsó szám az az előzőekben megfejtett feltételes formátum miatt nézzen így ki, tehát egész számnál ne 00-t írjon ki a tizedesekhez, hanem "--". Ennek a formátumkódja meg "# ##0,--". Ezt meg sehogy sem sikerült összehozni a kérdőjellel.:123,--
1,23
12,30
Na, szóval ilyesmi kéne, de úgy, hogy ne kelljen monospace karaktert beállítani Excelben (Lucida Console, Courier New stb)
illetve:
Ha egész szám van megadva, akkor még sikerült megoldanom, hogy semmit se írjon kia tizedesekhez, de a nyamvadt tizedesvesszőt ekkor is kiteszi. El lehet tüntetni vhogy, hogy egész értékeknél ne jelenjen meg a tizedesveszző, de mégis ahhoz igazodjon így?123
1,23
12,30 -
-
-
bteebi
veterán
Ahhoz a laphoz rendeld a makrót, amelyiken a legördülő lista van, a $A$1 helyére pedig a legördülő listát tartalmazó cellát írd.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Worksheets(Range("B3").Value).Activate
ActiveSheet.PrintOut
End If
End Sub -
bandi0000
nagyúr
az a lényeg, hogy vannak korkedvezmények, meg van minden embernek a kora, és van egy táblázat, azt tudom hogy felveszek egy segédtáblát, ott leírom a határokat hogy 0-100%;6-33%;26-0%;65-100% és a megoldásban erre valami hivatkozást csinálhatott, vagy valami, mert így néz ki a képlete: =FKERES(C27;kor_kedvezmény;2)
és ezt a bizonyos kor_kedvezményt nem tudom hova rakni
-
#20912
dellfanboy
őstag
lappy
#20911
dellfanboy
őstag
köszi a szumha-s segítség sokat segített.
más tudtok abban segíteni, hogy kell létrehozni lenyíló nyilakat/opcionális választást?
az alábbit akarom a1cellában 5 értéket lehet kiválasztani (szöveg) ami mellé dedikáltan van x érték mögöttepl. ha pirosat választja ki akkor 5 az érték ha kéket akkor 22 stb.
mind konstans 5 választható érték van csak.előre is köszi
-
#20056
PindurAnna
Közösségépítő
lappy
#20017
PindurAnna
Közösségépítő
Nem érthetően magyaráztam el akkor..de már próbálom újraírni a cellákat teljesen új táblázatba.
Most olyan kérdésem van, hogy van két fáljban táblázatom, össze lehet valahogy hasonlítani őket, hogy melyik cellába lett más írva? Tehát volt egy táblázat azt elmentettem mondjuk egy névvel. Aztán azt később bővítettem itt ott és azt elmentettem kettő névvel. Most arra lennék kíváncsi mit változtattam meg a kettőbe.
Nagyon szépen köszönöm az eddigi segítségeteket.
-
vigyori78
őstag
2077-et használok abban is ott van de az a gondom ha olvasásra is jelszavazom akkor egyből az olvasás jelszavát kéri én azt szeretném elérni ha megnyitom az excel-t akkor ha az olvasásra nyomok akkor kérje a jelszót tehát egyből lehessen választani hogy mire akarom megnyitni ,lent a képen például ha az olvasásra nyomok akkor kérje az olvasás jelszavát.
-
ngabor2
nagyúr
A valódi probléma az, hogy a cellaformázások egyszercsak eltűnnek. 1500 soros táblázatokról van szó, amiben a színek és a cellán belüli igazítások és formázások nagyon fontos szerephez jutnak. Néha egy-egy sor beszúrásakor gondol egyet a program, átalakítja a stílus részt a szalagon, és onnantól kezdve bármilyen formátumban mentjük el, azt újra megnyitva minden formázás megszűnik. Ennek az okára, vagy a kiderítésének módjára nem bírtunk rájönni.
-
Simba86
senior tag
NAGYON köszönöm lappy! tökéletes!!!
még egy kérdésem lenne, de az gondolom már tényleg lehetetlen: ha két oszlopba írok (mondjuk egy számlán van kétféle áfával rendelkező tétel is), akkor szerinted lehetséges, hogy összeadja a két alapot vagy a két áfát? (mert ugye a pénztárgykönyvben a különböző áfás tételek alapjai is összevonandók)
(pl: 1000 az egyik, 1000 a másik oszlopba, az egyiknek az alapja így 847, míg a másiké 952, így az alaphoz tartozó cellába ennek a kettőnek az összege kerülne)
(mondjuk erre van megoldás, két külön sorba írom a két tételt, csak érdekel a dolog
)Delila! köszönöm a segítséged, de sajnos ez bonyolultabb ennél. 27%-os áfánál az alapot úgy kell kiszámolni, hogy a bruttót szorzom 0,7874-gyel, míg 18%-osnál 0,8475-tel, mert a bruttó tartalmazza az áfát, azaz a bruttó nem 100%, hanem 127,118, ill. 105. De mindenképpen köszönöm a segítőkészséged, értékelem!
-
Delila_1
veterán
-
-
slashing
senior tag
Nem is igazából a képlet láthatósága a fontos mert azt elvileg lapvédelemmel is el lehet tüntetni csak jó lenne egy olyan változat amibe bele írhatnak az emberek ha éppen szükséges mert valami váratlan történt(havi szinten kerül kiadásra a tábla). Szerkeszthetőre nem rakhatom mert ha valaki elkezd beleírogatni akkor 1 héten beleül borul az egész, mert nem sok olyan adat van benne ami nem számított érték.
Még van egy verzió ami működőképes lehet, mégpedig a másol/beilleszt és egy makró megformázza az eredeti külsőre.
-
#19214
the radish
senior tag
lappy
#19212
the radish
senior tag
Tulajdonképpen az lényegtelen, de nem titok, gps track állománnyal munkálkodok.
De más csv-t is ha megnyitok "kézzel", akkor pl. az A1 cellába ";", ",", vagy szóközzel, vagy bármi mással elválasztva, de egy cellában jelennek meg az adatok. Ha azonban makróval nyittatom meg, akkor már külön oszlopokban jelennek meg az előbb említett módon tagolt adatok. -
Caipi
tag
Ott lesz a hunyó, csak nem jöttem rá, hogy mi az. A lapnév+cella rész ad hibát
Szerk:
ha csak a fájlnév+cellát adom meg, akkor nem #HIV-t kapok vissza, hanem elérési út nem található hibaüzenetet.
A fájl maga egy többek által elérhető meghajtóra fog kerülni, ahonnan megnyitják. Lehet, hogy ennek a definiálásnál van a hiba? -
dudikpal
senior tag
Hm, de, majdnem:
V6:A14
W6: A13Akkor ez okozza a bajt, mert a W6ban itt az A336-nak kéne lennie, mivel a W oszlopban keresendő tartomány A324:A428.
A W6 képlete most ez: =ÖSSZEFŰZ($H$1;HOL.VAN($H$2;INDIREKT(W3);0)+2)
Ahol a W3=A324:A428, tehát a tartomány, ahol keresnie kellene. -
gaben1117
senior tag
Valaki rá tudna kukkantani, hogy mi lehet a baj? Valmiért nem fut le a makró, asszem syntax errort ír. A módszer amit próbálok abban a hszben van, amire most válaszoltam.
Ezt írja a visual basic:
"Sub AllSectionsToSubDoc()
Dim x As Long
Dim § As Long
Dim doc dokumentumApplication.ScreenUpdating = False
Application.DisplayAlerts = FalseÁllítsa doc = ActiveDocument
§ = doc.Sections.Count
Az x = szakasza - 1 az 1-Step -1
doc.Sections(x).Range.Copy
Documents.Add
ActiveDocument.Range.Paste
ActiveDocument.SaveAs (doc.Path & "\" & x & ". Doc")
ActiveDocument.Close Hamis
Következő xApplication.ScreenUpdating = True
Application.DisplayAlerts = TrueEnd Sub
"A cél az lenne, hogy amikor létrejön a körlevél, akkor rekordonként külön fájlba lehessen darabolni vagy eleve úgy mentse. (4 oldalanként kéne szabdalni) Bármilyen megoldás jó lenne.
-
Agostino
addikt
szia
köszönöm ilyenem van, eddig oké a történet. most azt szeretném, hogy az excel a várost megyéhez rendelje. tehát város oszlop minden cellája mellé behúzza a megyét is. van egy batár nagy táblám amiben csak városok vannak de megye adatok nélkül nem tudok dolgozni vele. össze kellene párosítani a kettőt
-
Caipi
tag
Szia,
Köszönöm szépen, jó tippek vannak az oldalon, mentettem is.
Csinált-e valaki ilyet, vagy megoldható-e egyáltalán, a következő:Adott A oszlopban egy lista, ahol egy-egy elem többször is felsorolásra kerül.
Egy másik cellában szeretnék létrehozni egy érvényesítést ebből, de úgy, hogy a többszörözött elemek csak egyszer látszódjanak. Ez mogoldható-e csak függvény segítségével?
Hogy az érvényesítés tartománya dinamikus legyen, azt lelestem erről az oldalról.Köszönöm előre is a tippeket
Ez nagyon jónak néz ki! Köszönöm 
Új hozzászólás Aktív témák
Fferi50- PlayStation 5
- A fociról könnyedén, egy baráti társaságban
- One otthoni szolgáltatások (TV, internet, telefon)
- Milyen egeret válasszak?
- eBay
- VR topik (Oculus Rift, stb.)
- Okos Otthon / Smart Home
- HP notebook topic
- IFA 2025: Hatalmas táblagépek az Acertől
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- GYÖNYÖRŰ iPhone SE 2020 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3278, 100% Akkumulátor
- Akik a Fehéret szeretik! Itt a WHITE Setup! Akár kamatmentes rèszletre is!
- GYÖNYÖRŰ iPhone 12 64GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS2045, 95% Akkumulátor
- Bomba ár! Dell Latitude E7470 - i7-6GEN I 16GB I 256GB SSD I 14" FHD I HDMI I CAM I W10 I Gari!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest