-
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
-
picsu
csendes tag
válasz
Delila_1
#16951
üzenetére
Szia Delila!
Nagyon köszi a segítséget. Annyi a különbség, hogy a könyvtáramban van vagy 80 file amiből ezeket a cellákat ki kellene venni és a makrós xls-be belerakni egymás alá...
...és ha ez megvan jön a feketeleves...
Minden tábla ugyanilyen csak különböző adatokkal. Amire szükség lenne az az "A" oszlopban levő számok és a hozzá tartozó 'AE" oszlopban levő szám. Például 10-es sor: 01-B340L --> 3.480
Ami a buktató nekem, hogy egy komisszió többször is szerepel az "A" oszlopban. (mivel első, másod és van, hogy harmadosztályú) mint például a "A11-A12-A13" celláknál.
Ilyenkor csak mindig az a sor kellene ahol az "F" oszlopban "1"-es van.
Tehát például 18-as sor: 01-B462L --> 12.560Még mindig tudsz segíteni?
Isti
-
picsu
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem. Régen office 2003-am volt amin szuperül működött ez a parancs:
Set fajllista = Application.FileSearchAz új 2007-esben azonban hibát kapok rá... :-(
"Runtime error '445'
Object doesn't support this actionTudnátok segíteni, hogy mivel tudom helyettesíteni?
Előre is nagyon köszönöm.
IstiA makróm ez:
Sub export()Dim elso, masodik, harmadik, negyedik, otodik, hatodik, hetedik As String
Dim fold As FileDialog
Dim foldrv As Variant
Dim fso As Object
Dim fajllista As FileSearch
Dim fajllistaindex As Long
Dim forras, cel As StringApplication.Calculation = xlCalculationManual
Application.ScreenUpdating = Falsecel = ActiveWindow.Caption
Set fold = Application.FileDialog(msoFileDialogFolderPicker)
With fold
If .Show = -1 Then
foldrv = .SelectedItems(1)
Else
Exit Sub
End If
End WithSet fajllista = Application.FileSearch
With fajllista
.NewSearch
.LookIn = foldrv
.Filename = "*.xls"
.SearchSubFolders = False
If .Execute > 0 Then
For fajllistaindex = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(fajllistaindex)
Workbooks.Open Filename:=.FoundFiles(fajllistaindex)forras = ActiveWindow.Caption
'
With Workbooks(forras).Sheets(1)Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 1) = Workbooks(forras).Sheets(1).Cells(3, 1)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 2) = Workbooks(forras).Sheets(1).Cells(3, 2)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 3) = Workbooks(forras).Sheets(1).Cells(3, 3)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 4) = Workbooks(forras).Sheets(1).Cells(3, 4)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 5) = Workbooks(forras).Sheets(1).Cells(3, 5)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 6) = Workbooks(forras).Sheets(1).Cells(3, 6)End With
'(fajllistaindex, 1) = workbooks(Application.DisplayAlerts = False
Workbooks(forras).Close
Application.DisplayAlerts = True'"=[Book1.xls]Sheet1!R1C1"
'"=[" & .FoundFiles(fajllistaindex) & "]Sheet1!R1C1"Next fajllistaindex
End If
End WithApplication.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.CalculateMsgBox "Na ez is megvan mégsincs este... Összesen " & fajllistaindex & " fájlból importáltunk adatokat.", vbInformation + vbOKOnly, "Komisszióadatok importálása befejeződött"
End Sub
-
picsu
csendes tag
Sziasztok!
Egy gyors kérdésem lenne amire a nyakamat teszem 1 perc sincs a megoldása.
Van egy excel fájlom benne "Munka1" "Munka2" "Munka3" fülecskékkel.
A "Munka1" A oszlopába számok kerülnek. Mondjuk 1,2,3,4,5
A "Munka2" A oszlopába is számok kerülnek. Mondjuk 2,3,4,5,6
Szeretném a "Munka3" A oszlopába kiíratni azokat a számokat amik a két A oszlopban együtt nincsenek meg. Jelen esetben ez az 1 és a 6.
Szeretném makróval megoldani mert egy gombot is rendelnék a művelet végrehajtásához...
Mit gondoltok?
Üdv.P.
-
picsu
csendes tag
Sziasztok!
Óriási segítségre lenne megint szükségem.
A helyzet nem egyszerű és remélem érthető tudok lenni...
Szóval van egy ilyen beviteli táblám excelben:
A "munka1" lapomat három részre osztottam. A jobb felső mezőben cégneveket szeretnék felvinni úgy, hogy az adatokat a "munka2" "A" oszlopába másolja be egymás alá amiket beírok és kattintok a felvitel gombra. Ugyanez a munka + munkaszám felvitel mezőnél. Ezt mondjuk mellé a "B" oszlopba írja.
Ha a felvitel megvan akkor a bal felső mezőben ki tudjam választani azokat a cégeket amiket felvittem az előbbi módon. (cégnév + munka,munkaszám)
Ha mindez működik a 3. ablakban alul tudjak az adott céghez adatokat bevinni. Mondjuk a Valami kft.-nek két dátumot. Ezt is rögzítsük a felvitel gombal a "munka2" mondjuk "C" és "D" oszlopába.
És most jön a feketeleves. Hogyan tudom azt megoldani, hogy ha kiválasztok egy céget a bal felső sarokban akkor a 3. mezőben azaz az alsó vízszintesben mindig felhozza az adott cégre már bevitt dátumokat?
Remélem nem nehezet kérdeztem.
Nagyon várom segítségeteket.
Előre is köszi.P.
UI: jelenleg még csak a design van meg...
-
picsu
csendes tag
válasz
Delila_1
#2868
üzenetére
Delila egy isten vagy mondták már??
Nagyon köszönöm.
Viszont egy dolgot elfelejtettem. Mivel sok adattal dolgozom előfordul, hogy ami file név bennevan az A oszlopban nincs benne a könyvtár alatt.
Hogyan tudom kiküszöbölni, hogy ne akadjon ki a makró ezeknél a pontoknál hanem egyszerűen hagyja üresen a kitöltendő cellákat és lépjen tovább...
Hmmm??
Előre is nagyon köszi.P.
-
picsu
csendes tag
Sziasztok!
Nagyon szükségem lenne a segítségetekre...
Van egy teszt.xls file-om aminek az A oszlopában számok vannak. (Pl: 12H056L, 12L671N, stb, stb, stb)
Van egy könyvtáram ahol ezek a számok filenévként vannak elmentve. (12H056L.xls, 12L671N.xls, stb.)A kérdésem a kövekező lenne. Mi legyen a makróban amiben elérem azt, hogy a teszt.xls file A1 mezőjében levő file nevet megkeresse a könyvtáramban, megnyissa és abból mondjuk kiemelje a B3-as cellát + a C6-os cellát valamint a E1-E7 cellák összegét és beírja ezeket az A1-es mező mellé a B1-be a C1-be és a D1-be.
Várom mielőbbi segítségeteket.
Üdv.P.
-
#2172
picsu
csendes tag
qpakcovboy
#2171
picsu
csendes tag
válasz
qpakcovboy
#2171
üzenetére
Nagyon egyszerű!
Azt a cellát amibe szeretnéd, hogy tudjanak írni kérj egy
''jobb klikk'' - ''cellaformázás'' - ''védelem'' menüt és vedd ki a ''zárolt'' sor elöl a pipát.
Ezután menj az ''Eszközök'' - ''Védelem'' - ''Lapvédelem'' menübe és adj egy lapvédelmi kódot.
Ilyenkor csak abba a mezőkbe tudnak írni amikből kivetted a zárolt sor elöl a pipát.
Ennyi.
Üdv.Picsu -
picsu
csendes tag
Sziasztok!
Meglehet azt csinálni, hogy sok-sok xls tartalmából mindig mondjuk azokat a cellákat vegye ki ahol van @ karakter?
Megpróbálom egyszerűbben mert nem forog ma az agyam...
Ha mondjuk van
1.xls
2.xls
3.xls
És mindegyikben van valamelyik cellájában egy vagy több @ karakter, akkor azt a cellát egy másik táblába hogyan tudom bemásoltatni egymás alá?
Előre is köszönöm.
Üdv.P -
#2166
picsu
csendes tag
loszerafin
#2155
picsu
csendes tag
válasz
loszerafin
#2155
üzenetére
Érdekes felvetés, hogy nincs köze az excelhez a kérdésemnek...
Akkor bizonyára tudod azt mihez van köze...nemde?
Egyébként talán excel-el lesz a legkönnyebb úgynéz ki. -
picsu
csendes tag
Srácok nagyon nagy segítségre lenne szükségem.
Ha van egy weboldal ami mondjuk így áll össze:
www.valami.hu/1.htm
www.valami.hu/2.htm
www.valami.hu/3.htm
Ha én mindegyik htm-ből nick neveket szeretnék kivenni xls-be azt hogyan tudom megtenni?
Előre is nagyon köszönöm. Picsu
Új hozzászólás Aktív témák
Fferi50- One otthoni szolgáltatások (TV, internet, telefon)
- iPhone topik
- Futás, futópályák
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Óra topik
- Cisco vizsgák (CCNA, CCNP, CCIE)
- Autós topik
- Garancia kérdés, fogyasztóvédelem
- Honor 200 Pro - mobilportré
- Home server / házi szerver építése
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bioshock 2 Special Edition
- The Elder Scrolls Online Imperial Collector s Edition
- 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
- Apple iPhone 15 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy S23 Ultra 8/256GB - Kártyafüggetlen, Fekete - 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Windows 10 / 11 Pro Retail aktiváló kulcs Azonnal szállítással, számlával, garanciával!
- 153 - Lenovo LOQ (15IRX9) - Intel Core i5-13450HX, RTX 4060 (ELKELT)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest