-
Mobilarena
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
-
#43337
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Van egy VBA kodom, ami eddig tokeletesen mukodott (sot Excel 2010-es gepeken most is mukodik). Egy Excel tabrol kellene kikuldenie egy emailt, de Excel 2016-os gepeken Run-time error '-2147467262 (80004002)-t dob. No such interface supported.
A kodreszlet az alabbi, a masodik sornal akad el:
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = EmailList
.Item.CC = CCEmailList
.Item.Subject = Subject
.Item.Send
End WithVan esetleg otletetek, hogy mi baja lehet? Google elso korben nem sokat segitett.
Koszi
-
#42441
szőröscica
addikt
sztanozs
#42434
-
#42427
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Lenne egy makro hibam, ami csak egyetlen szamitogepen jelentkezik, es keptelen vagyok rajonni, hogy hol akadunk el vele:
Private Sub download_template(saveto, URL)
'Construct multipart/form-data string
xmlString = ""
xmlString = xmlString & "--" & boundary & vbNewLine & "Content-Disposition: form-data; name=""USERNAME""" & vbNewLine & vbNewLine & username & vbNewLine
xmlString = xmlString & "--" & boundary & vbNewLine & "Content-Disposition: form-data; name=""PASSWORD""" & vbNewLine & vbNewLine & password & vbNewLine
xmlString = xmlString & "--" & boundary & "--"
'Create objects, set variables (response is binary)
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
Set mStream = CreateObject("ADODB.Stream")
If mStream.State = adStateClosed Then
mStream.Open
End If
mStream.Type = adTypeBinary
mStream.Position = 0
mStream.SetEOS
With objXMLHTTP
.Open "POST", URL, False
.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
.send (xmlString) 'Your multipart post URL
mStream.Write objXMLHTTP.responseBody
mStream.SaveToFile saveto, adSaveCreateOverWrite
mStream.Close
Set mStream = Nothing
End With
End SubA .send (xmlString) reszen fut hibara, Run-time error '-2146697208 (800c0008)':
The download of the specified resource has failed hibauzenettel.Amit megprobaltam, az az, hogy a Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") reszt atirtam Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")-ra, de nem segitetet, ugyanott szallt el.
A projekthez szukseges reference libraryk be vannak kapcsolva, hisz maskepp a tobbi szamitogepen sem mukodnenek. Lattok barmi egyertelmu hibat a kodban, ami ezt okozhatja? Vagy valami gaz van a szamitogeppel? Lehet serult valami fajl?
Koszi a tippeket.
Udv,
Balazs -
#37105
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Egy nagyon egyszerű makróra lenne szükségem, de kifog rajtam. Semmi másra nem lenne szükségem, csak arra, hogy az A1-es cellában megadott időpontban csináljon egy refesht a workbookra.
Ezt írtam hozzá:
Public Sub testrefresh()
Application.OnTime TimeValue(Range("A1")), "CC"
End Sub
Public Sub CC()
Application.CalculateFullRebuild
End SubMikor eljut az óra az adott pillanatra, hibaüzenetet kapok: “Cannot run the macro “C:\.....\teszt.xlsm’!CC’. The macro may not be available in this workbook or all macros may be disabled.
Xlsm-ként van lementve.
Hol hibázok? Excel 2010?
Köszi!
-
#34137
szőröscica
addikt
szőröscica
addikt
Hello!
Hol hibázik a kódom?
A RowCount érték ki van számolva, gyakorlatilag az lenne a célom, hogy ha nem üres a D oszlopban a cella, akkor az adott sor J és D celláját másolja át egy másik sheeten lévő lista aljára. A For ciklus mintha nem menne, csak a legelső nem üres D-ig megy, utána abbahagyja, nem másolja át a többit.
For i = 3 To RowCount
If Not IsEmpty(Range("D" & i)) Then
Range("J" & i).Select
Selection.Copy
Sheets("Submitter excl. trades").Select
Range("H65000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
l = Selection.Row
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Trading activity_NEW").Select
Range("D" & i).Copy
Sheets("Submitter excl. trades").Select
Range("I" & l).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next i -
#33445
szőröscica
addikt
szőröscica
addikt
Hello!
Egy VBA kódot használok, aminek egyik része frissít egy pivotot, és ráfilterez bizonyos dolgokra a pivotban.
With ActiveSheet.PivotTables("Included").PivotFields("Final Level")
.PivotItems("Level 2").Visible = True
.PivotItems("Level 1").Visible = True
.PivotItems("Level 3").Visible = TrueA gondom az, hogy ha bármelyik hiányzik az eredeti adatsorból, akkor a kód hibára fut, hisz miután befrissítette a pivotot, nem lesz pl "Level 2", amire szűrhetne. Mivel egészítsem ki a kódot, hogy csak akkor próbáljon erre filterezni, ha van is ilyen?
Köszi!
-
#31383
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Autofilter makrót írok, és azt szeretném megoldani, hogy 37 dologra szűrjön rá. Na most ez xlOr operátorral nem kivitelezhető, ha jól sejtem. Mit írjak be Criteria1-nek, hogy azt a range-et kezelje or-ként, amiben a paramétereim vannak? Tegyük fel, hogy name managerrel elneveztem BÉLA-nak a range-t.
Köszönöm!
-
#28660
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Van egy makróm, amit arra használok, hogy egy mappában szereplő összes xls tartalmát behúzza egyetlen sheetre. Először egy másik makróval kilistáztatom az összes fájlt ami az adott mappában van, majd futtatom az alul találhatót.
Tudnátok segíteni abban, hogy hogyan tudnám módosítani olyan módon, hogy miután egy fájlból bemásolta az összes sort, törölje ki azokat a sorokat, amiknek bármelyik (vagy ha így nem lehet, akkor I és M oszlopban) cellájában q vagy r szerepel.
Azért lenne erre szükségem, mert 16-17 ezer sorosak a fájlok, amiket importál a makró, viszont mindegyiknek körülbelül harmadában szerepel q vagy r érték, amelyek számomra haszontalan adatok, így rengeteg helyet spórolhatnak (közel vagyok az 1 millió sorhoz, és ha azt túllépem, nem másolja tovább a makró dolgokat).
Az alábbi makrót használom az importálásra. Segítenétek módosítani?
Köszönöm szépen.
Sub pasteall()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim PL, files As Variant
Dim i, j As Long
Dim k, l, m, n As Long
Dim wbname As String
' select this workbook and clear all the input sheets
wbname = ThisWorkbook.Name
Workbooks(wbname).Activate
Sheets("Data Sheet").Activate
Range("D4:U1000000").ClearContents
'copy data
For i = 1 To Range("WorkbookCount").Value
workbookpath = Range("Workbook_Name_Header").Offset(i, 0)
PL = Range("Desk_Name_Header").Offset(i, 0)
files = Range("File_Name").Offset(i, 0)
Workbooks.Open (workbookpath)
Sheets("Data").Activate
Range("A65000").Select
Selection.End(xlUp).Select
l = Selection.Row
Range("A2:W" & l).Select
Selection.Copy
Workbooks(wbname).Activate
Sheets("Data Sheet").Activate
Range("A1035000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Workbooks(files).Activate
ActiveWorkbook.Close
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub -
#23493
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Excelben szeretnék egy névsort véletlenszerűen csoportokba sorolni. Függvényt nem lehet használni, és nem húzható kézzel az egyes csoportok alá a név.
van valami rendezési lehetőség erre?
Van 44 név, 6-7 fős csoportba kell tenni őket véletlenszerűen, fv hasznalata nélkül.
-
#20520
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Szumha, vagy szumhatöbb függvény használatával kapcsolatban lenne egy problémám, de az is lehet, hogy szimplán nem jó függvénnyel állok neki a problémának.
Van egy adatbázisom, amiben az egyik oszlop a dolgozók nemét tartalmazza (0 nő, 1 férfi), egy másik a korukat, a harmadik pedig az órabérüket.
Ebből kellene meghatároznom a 35 évnél idősebb nők összes bérét egy órára.
A szumhatöbb viszont nem kezeli a >35 kritériumot, azt írja, hogy hibás a beírt képlet. Sima szumhával szépen kijön ha csak a nők fizetését akarom, de a második kritériumot, miszerint 35 évnél idősebb legyen, nem tudja kezelni.Persze sorbarendezéssel meg tudom csinálni a feladatot, de ennél elegánsabb megoldást szeretnék.
Új hozzászólás Aktív témák
Hirdetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Assassin's Creed Shadows Collector's Edition PC
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Antivírus szoftverek, VPN
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Csere-Beszámítás! Asus Prime RTX 5060Ti 16GB GDDR7 Videokártya! Bemutató darab!
- BESZÁMÍTÁS! ASROCK H310CM i5 8400 16GB DDR4 256GB SSD 1TB HDD GTX 1060 3GB Rampage SHIVA TT 500W
- AKCIÓ! Microsoft XBOX Series X 1TB SSD fekete játékkonzol garanciával hibátlan működéssel
- BESZÁMÍTÁS! Dell Latitude 5550 üzleti -Intel Ultra 7 165U16GB DDR5 RAM 1TB SSD Intel Graphics WIN11
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged