- Mobilinternet
- Microsoft Outlook topic
- Bittorrent topik
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- ASUS routerek
- HBO Max & OD topic
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- TP-Link Archer C5 - AC1200 router
-
IT café
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
-
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.
-
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.
[ Szerkesztve ]
-
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 -
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!
-
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!
-
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[ Szerkesztve ]
-
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!
-
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 -
-
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
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen