-
Fototrend
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
-
tomi_x
tag
Sziasztok !
Segítséget szeretnék kérni.
Adott egy munkafüzet, benne 12 db munkalappal.
Mérete 36 MB.
A probléma, hogy borzalmasan lassú.
Megnyitáskor is és használatkor is.
Amikor adatot viszek fel, az alábbi látható a jobb alsó sarokban:
A file a sharepointon van, de ha a helyi lemezre lementem akkor is ugyanez a helyzet.
A feltételes formázásokat töröltem belőle, az se segített.
Van esetleg valakinek ötlete ?Köszi
tomi -
tomi_x
tag
válasz
Fire/SOUL/CD
#53290
üzenetére
Köszi a segítséget !
Ezzel a sorral tökéletesen működik:Worksheets("Kezdőlap").Cells(13, 3).Value = megrendelo
-
tomi_x
tag
válasz
Fire/SOUL/CD
#53288
üzenetére
Ezzel sem működik.
Ezt a hibát kapom:
-
tomi_x
tag
válasz
Fferi50
#53286
üzenetére
Ez volna az:
Private Sub CommandButton1_Click()
Dim mappanev As String
Dim fso As Scripting.FileSystemObject
Dim WSNET As Object
Dim mappanev2 As String
Dim mappanev3 As String
Dim arajanlatnev As String
Dim fajl As Variant
Dim bekernev As String
Dim sablonnev As String
Dim keszito As String
Dim megrendelo As String
Dim kapcsolat As String
Dim ugyfel As String
Dim bekernev2 As String
mappanev = Cells(11, 11).Value & Cells(10, 11).Value
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSNET = CreateObject("WScript.Network")
mappanev2 = mappanev & "\Árajánlat"
mappanev3 = mappanev & "\Kapott anyag"
arajanlatnev = mappanev2 & "\" & Cells(9, 12).Value & ".xlsm"
bekernev = mappanev2 & "\" & Cells(13, 12).Value & ".xlsm"
Cells(9, 13).Value = arajanlatnev
Cells(13, 13).Value = bekernev
sablonnev = Cells(14, 11).Value
If Cells(9, 14).Value < 253 Then
If fso.FolderExists(mappanev) = True Then
MsgBox "A könyvtár létezik az adott könyvtárba" & vbNewLine & "Nyisd meg a meglévő árajánlatot !"
Else
fso.CreateFolder mappanev
fso.CreateFolder mappanev2
fso.CreateFolder mappanev3
'MsgBox "Mappák létrehozva." & vbNewLine & mappanev & vbNewLine & mappanev2 & vbNewLine & mappanev3
'árajánlat mentése másként
ActiveWorkbook.SaveCopyAs Filename:=arajanlatnev
Workbooks.Open Filename:=arajanlatnev
keszito = Cells(4, 3).Value
megrendelo = Cells(3, 8).Value
kapcsolat = Cells(4, 8).Value
ugyfel = Cells(8, 8).Value
MsgBox "Az Ok gomb megnyomása után tallózd ki az önköltségi sablon táblázatot !"
fajl = Application.GetOpenFilename _
(FileFilter:="Excel makróbarát fájlok, *.xlsm")
If fajl = False Then
'Cancel gombot nyomták meg
Exit Sub
End If
Workbooks.Open Filename:=fajl
ActiveWorkbook.SaveCopyAs Filename:=bekernev
ActiveWorkbook.Close
Workbooks.Open Filename:=bekernev
Sheets(2).Activate
bekernev2 = Cells(13, 16) '"'" & mappanev2 & "\" & Cells(13, 12).Value & ".xlsm" & "'"
'Workbooks(bekernev).Activate
ActiveWorkbook.Cells(13, 3).Value = megrendelo
End If
Else
MsgBox "Túl hosszú file név !" & vbNewLine & "A Projekt megnevezése mezőt tudod módosítani !"
End If
End SubSharepointon lévő mappákból, mappákba dolgozna a makró.
A mappákat, a file-ok másolatait rendben megcsinálja.
Akkor akad el amikor adatot szeretnék az egyik új file cellájába (ActiveWorkbook.Cells(13, 3).Value = megrendelo). -
tomi_x
tag
válasz
Fire/SOUL/CD
#53272
üzenetére
Köszi a segítséget, megoldódott.
De újfent elakadtam, az alábbi sorra dob fel "Subscript out of range" hibaüzenetet.Workbooks(bekernev).Sheets(2).Cells(6, 3).Value = keszito
Ahol a változók String tipusúak:
bekernev = c:\Users\tomi\OneDrive - valami\valami SharePoint mappa\Árajánlatok\teszt projekt\Árajánlat\teszt táblázat.xlsm
keszeto = az én nevemElőre is kösz a segítséget
tomi -
tomi_x
tag
Sziasztok !
Sharepointon szeretnék mappát létrehozni, ha nem létezik a mappa. A mappa nevét a táblázat egy cellája tartalmazza.
De sajna a "Path not found" hibára futok.
Mit rontottam el ?
A kód:Private Sub CommandButton1_Click()
Dim mappanev As String
Dim fso As Scripting.FileSystemObject
Dim WSNET As Object
'mappa név a fejléc adatokból
mappanev =
\\tomi.sharepoint.com\Shared%20Documents\teszt%20mappa\" & Cells(10, 11).Value
MsgBox mappanev
'létező mappa vizsgálata, ha nem létezik akkor létrehozás
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSNET = CreateObject("WScript.Network")
If fso.FolderExists(mappanev) = True Then
MsgBox "A könyvtár létezik az adott könyvtárba"
Else
fso.CreateFolder mappanev
MsgBox "A könyvtár nem létezett, ezért létrehoztam"
End If
End SubElőre is köszi a segítséget.
-
tomi_x
tag
Sziasztok !
Segítséget szeretnék kérni.
Egy nyilvántartás B oszlopa tartalmazza a neveket. Ezek a nevek nem térhetnek el a már használt nevektől, melyeket egy másik táblázat tartalmaz. Ezt meg tudom oldani egy adatérvényesítéssel. De hogyan lehetne úgy megoldani, hogy az első pár karakter begépelése után feldobjon egy találati listát ?
ActiveX Beviteli lista vezérlővel próbálkoztam, ami működik is.
Csak abban a táblázatban amiben használnom kell, ott is 1000 fölötti sor lesz, így akkor ennyi vezérlőelemet kell létrehoznom ?Előre is köszönöm a segítséget.
tomi -
-
tomi_x
tag
Sziasztok !
Egy kis segítséget szeretnék kérni.
Adott egy táblázat:
B oszlopban nevek
C oszlopban dátumok
D oszlopban szöveges leírás
Egy napon, egy névhez előfordulhat több leírás is.Ebből kellene létrehoznom egy olyan táblázatot, ami az alábbiakat tartalmazza:
F oszlop dátum
G oszlop név
H oszlop leírás, leírás.....Ebben kérném segítségeteket, hogy milyen függvényekkel tudom megoldani.
Előre is köszi.
-
tomi_x
tag
Sziasztok !
Az alábbi kódom van, ami nem akar működni:
Dim a As RangeFor i = 6 To 60With Worksheets("Adatok").Range("a1:a100”)Set a = .Find(What:=Worksheets("Számla lista").Cells(i, 3).Value, LookIn:=xlValues)If a = Worksheets("Számla lista").Cells(i, 3) ThenMsgBox "van "ElseMsgBox "nincs "End IfEnd WithNextHa az If feltétel igaz akkor jó, de ha hamis akkor az alábbi hibát kapom:
vba runtime error 91 object variable or with block variable not set
Mit rontottam el ?
Előre is köszi a segítséget. -
tomi_x
tag
válasz
Fferi50
#46134
üzenetére
Köszi, tökéletesen működik.
Viszont most a formázásnál akadtam meg.
A feladat az lenne, hogy ha a sorszám megegyezik a következővel akkor bizonyos cellák tartalma ne látszódjon, ha nem egyezik meg akkor pedig kap egy alsó szegélyt a sor.
Az alábbi kóddal próbálkoztam:For i = 2 To utolso_sor_formazaskovetkezo_sor = i + 1elozo_sor = i - 1If Worksheets(1).Cells(i, 1).Value = Worksheets(1).Cells(kovetkezo_sor, 1) ThenWorksheets(1).Range("I" & i & ":O" & i).SelectWith Selection.Font.ThemeColor = xlThemeColorDark1.TintAndShade = 0End WithElseWorksheets(1).Range("a" & i & ":O" & i).SelectMsgBox "várj" 'jó tartomány van-e kijelölveSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneSelection.Borders(xlEdgeLeft).LineStyle = xlNoneSelection.Borders(xlEdgeTop).LineStyle = xlNoneWith Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlMediumEnd WithSelection.Borders(xlEdgeRight).LineStyle = xlNoneSelection.Borders(xlInsideVertical).LineStyle = xlNoneSelection.Borders(xlInsideHorizontal).LineStyle = xlNoneEnd IfNext
Ennek sajna ilyen az eredménye:
Ötlet hogy 4. , 5. sornál miért nem hajtja végre a szegélyezést ? -
tomi_x
tag
Sziasztok !
Írtam egy makrót, amelynek a következő a feladata:
Elsőként nyit egy új munkafüzetet, majd menti is. Ezután az eredeti munkafüzet adatait soronként vizsgálja. Ha az adott sor "A" oszlop értéke megfelel a feltételnek, akkor átmásolja az újonnan nyitott munkafüzetbe.
Tökéletesen müködik is, viszont nagyon zavar ahogy ugrál a munkafüzetek között.
Le lehet ezt valahogyan tiltani ?
Pl csak fusson le, de a munkafüzetek közti ugrálást ne jelenítse meg ?
Előre is köszi.
tomi -
tomi_x
tag
Sziasztok !
Segítséget szeretnék kérni.
Adott egy táblázat adatokkal(név, cím és stb.). Egy word dokumentumot kellene létrehoznom, ahol a kiválasztott személy adatait a megfelelő helyre importálja az excel táblázatból. Lehet ezt valahogy automatizálni, vagy marad a kézi gépeléses megoldás.
Excelben meg tudom oldani, csak ott a dokumentum formátuma nem elfogadható.
Előre is köszi
tomi -
tomi_x
tag
válasz
Fire/SOUL/CD
#44391
üzenetére
Így lenne
Sheets("Összesítés").Range("M2").Formula = "=MID(CELL("filename";$A$1);1;(SEARCH("[";CELL("filename";$A$1)))-1)"De erre meg ezt dobja ki:
-
-
#44091
tomi_x
tag
Véreshurka
#44089
tomi_x
tag
válasz
Véreshurka
#44089
üzenetére
Így megy nekem is.
De úgy kellene megoldanom, hogy amint egy cellába valaki beír adatot az zárolt legyen, vagy esetleg egy vezérlő gombbal megoldani, hogy "adatbevitel lezárása". -
tomi_x
tag
Sziasztok !
Egy kis segítséget szeretnék kérni. Hogy fel tudjam tenni a kérdést, leegyszerűsítettem a feladatot.
Adott a mellékelt kép szerinti táblázat. A D oszlopba akkor kellene az értékeket átírni ha a B oszlop értéke Kp felvétel vagy Kp bevétel.
Ezzel próbáltam : =SZUMHATÖBB(C2;B2;"Kp felvétel";B2;"Kp bevétel")
De nem akart működni.
Mit rontottam el ? Vagy másik függvényt kellene használnom ?Előre is köszi a segítséget.
Új hozzászólás Aktív témák
- Gitáros topic
- Bittorrent topik
- Hardcore café
- MWC 2026: Óriásakkut tuszkoltak egy szupervékony hajlíthatóba
- Projektor topic
- exHWSW - Értünk mindenhez IS
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- AMD vs. INTEL vs. NVIDIA
- Oldman2: A KOReader ebook olvasó program
- Nem indul és mi a baja a gépemnek topik
- További aktív témák...
- Microsoft és egyéb dobozos retro szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- HP ProDesk 600 G5 i5-9500 8GB 256GB 1 év garancia
- Apple iPhone 14 128GB,Újszerű,Adatkabel,12 hónap garanciával
- iPhone 11 Pro 256GB 100% (3Hónap Garancia) - AKCIÓ
- Bomba ár! Lenovo X13 Yoga G1 - i5-10G I 8GB I 256SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- BESZÁMÍTÁS! ASUS B660M i5 12400F 32GB DDR4 500GB SSD RTX 5060Ti 16GB Lian LI LANCOOL 207 Inwin 650W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest