-
GAMEPOD.hu
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
-
slashing
senior tag
válasz Delila_1 #22171 üzenetére
Uhh ez tök jól működik és naivan azt hittem az összefűzés a másik makróval már gyerek játék lesz de valamiért hibaüzenetet dob ki miután megnyitotta az első fájlt(Object variable or With block variable not set). Szerintem az zavar be neki hogy nem tudja hol dolgozzon vagy valami hasonló most így néz ki kb. csak összemásoltam a kettőt. A kiemelt résznél van gondolom a hiba hogy melyik workbook-al mit szeretnék csinálni de nem jövök rá mit kéne átírnom hozzá...
Sub ProcessFiles()
Dim Filename, Pathname As String
Dim wb As WorkbookPathname = ActiveWorkbook.Path & "\Files\"
Filename = Dir(Pathname & "*.xls")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
it wb
wb.Close SaveChanges:=Yes
Filename = Dir()
Loop
End SubSub it(wb As Workbook)
With wb
'Do your work here
Dim cell As Range, usor As Long
Dim selectRange As RangeFor Each cell In ActiveSheet.Range("A3:A1000")
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cellusor = Sheets("mega").Range("A" & Rows.Count).End(xlUp).Row + 1
selectRange.Copy
Sheets("mega").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
End SubÚgy kéne összefűzni a két makrót hogy van egy összesítés.xls amiben csak egy makróindító gomb van illetve a mega munkalap. Ha elindítom a gombbal a makrót akkor a files könyvtárban lévő fájlokból kimásolgatja ide az a3:a1000 nem üres celláit transzponálva egymás alá.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Elkészült Oroszország első litográfiai berendezése
- Renault, Dacia topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- DIGI kábel TV
- Időjárás topik
- Politika
- Autós topik látogatók beszélgetős, offolós topikja
- Microsoft Excel topic
- Fűnyíró topik
- Android alkalmazások - szoftver kibeszélő topik
- További aktív témák...
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs