Hirdetés
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- GoodSpeed: Márkaváltás sok-sok év után
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
- ldave: New Game Blitz - 2025
- Real Racing 3 - Freemium csoda
-
LOGOUT
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öveg alapból, de azt hiszem, hogy meg van a hiba.
Ha rámegyek egy + jelre, akkor a szerkesztőben ezt látom: '+, a negatívnál szintén: '-
Ha cserélni akarom vagy rákeresek, akkor így nem találja: '+ csak + ként.
Mit tudok ezzel kezdeni? Ha 1-esre cserélem, akkor '1 lesz a helyén. -
Sziasztok!
Nem használtam még korábban szűrőt és most, hogy használnám nem úgy működik ahogy kellene.
Néztem róla oktató videót és az alapján csinálnám, de valami nem stimmel.Szóval van egy nagy adatbázisom amiben termékek vannak. Az egyik oszlop tartalmazza, hogy a termék van-e készleten avagy nincs. Ezt + és - jelölésekkel teszi.
Összesen 41685 termék van, ebből nagyjából 20e mellett van + jelzés.A szűrőt így állítom be:
Ekkor ugyan úgy 41685 terméket mutat és mind mellé + jelzést tesz.
-
válasz
Des1gnR
#26914
üzenetére
Ezt visszaalakítva számmá, már tényleg azt kapom amit kell, dzsír
Itt a kód, amivel a meg sem nyitott CSV-ben kicserélem a pontot vesszővé.
Sub CSVFormaz()
Dim MyPath As String
Dim MyFile As String
Dim Wkb As Workbook
Dim Cnt As Long
Application.ScreenUpdating = False
MyPath = "C:\Users\Public\Documents\" 'change the path accordingly
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
MyFile = Dir(MyPath & "arlista_temp.csv")
Cnt = 0
Do While Len(MyFile) > 0
Cnt = Cnt + 1
Set Wkb = Workbooks.Open(MyPath & MyFile)
Wkb.Worksheets("sheet_arlista_temp").Select
Columns("C:C").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Wkb.Close savechanges:=True
MyFile = Dir
Loop
If Cnt > 0 Then
MsgBox "Completed...", vbExclamation
Else
MsgBox "No files were found!", vbExclamation
End If
Application.ScreenUpdating = True
End Sub -
válasz
Delila_1
#26911
üzenetére
Persze, azzal kezdtem én is, de ha szöveg a cella formátuma, akkor ugye 19.okt szerepel ott és ha abba cserélek pontot vesszőre, annak ez lesz az eredménye: 2015,10,19
Valami olyan megoldás kéne ami a még be nem importált fájlban cseréli a pontot vesszőre.
Köszi az eddigieket
-
válasz
Des1gnR
#26893
üzenetére
A baj az volt, hogy nem tároltam a cookie-t bejelentkezés után és így nem is továbbítottam a letöltéshez.
Itt a teljes kód:Sub FileDownload()
Dim strCookie As String, strResponse As String, _
strUrl As String
FilePath = "A fájl letöltési útvonala. Pl.:C:\Users\Attila\Documents\arlista.csv"
'
Dim xobj As Object
'
Set xobj = CreateObject("WinHTTP.WinHTTPrequest.5.1")
'
strUrl = "[B]Az url ahol bejelentkezel az oldalra...[/B]"
xobj.Open "POST", strUrl, False
xobj.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xobj.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xobj.Send "A POST data, amit pl. HTTP Live Headerre tudsz kiolvasni."
'
strCookie = xobj.GetResponseHeader("Set-Cookie")
strResponse = xobj.ResponseText
'
' now try to get confidential contents:
'
strUrl = "Ide jön a fájl elérési útja..."
xobj.Open "GET", strUrl, False
'
' these 2 instructions are determining:
'
xobj.SetRequestHeader "Connection", "keep-alive"
xobj.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
'
xobj.SetRequestHeader "Cookie", strCookie
xobj.Send
'
'strCookie = xobj.GetResponseHeader("Set-Cookie")
strResponse = xobj.ResponseText
'Save the file
FileNum = FreeFile
Open FilePath For Binary Access Write As #FileNum
Put #FileNum, 1, strResponse
Close #FileNum
MsgBox "File has been saved!", vbInformation, "Success"
End Sub -
Sziasztok!
Ezzel a makróval szeretnék letölteni egy fájlt. Egy CSV termék exportról van szó ami bejelentkezés nélkül egy 0 értékű CSV fájlt tölt le teljesen érthető módon.
A weboldal wordpress alapú és szeretnék VBA-ból bejelentkezni az oldalra, hogy megkapjam a fájlom.
HTTP Live Headerrel megnéztem a referer url-t és a POST adatot, majd ezt betoltam a fentebb említett makró elejére a saját adataimmal, de ugyan úgy a 0 visszatérésű fájlt kapom. Mit csinálok rosszul?
Dim result As String
Dim myURL As String, postData As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myURL = "http://192.168.10.101:80/your_web_service"
postData = "parameter=hello¶meter2=hi"
winHttpReq.Open "POST", myURL, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.Send (postData)
result = winHttpReq.responseText -
#26511
Des1gnR
őstag
anonymus89
#26510
válasz
anonymus89
#26510
üzenetére
Nem szokott győzködni, hogy vegyél egy ájfont?
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
Sziasztok!
Van egy szöveges állományom amelyben termékek vannak felsorolva:
Élelmiszer
Édesség
Belvita jóreggelt 50g mézzel-mogyoróval
Nettó ár: 83 FtÉlelmiszer
Édesség
Orbit Eper 14g.
Nettó ár: 78 FtA termékek csak egyetlen üres sorral vannak elválasztva. Ezt szeretném úgy excelbe importálni, hogy minden termék új sorba kerüljön és a terméktulajdonságok külön oszlopokba.
Van ötletetek?
-
válasz
nobela
#23276
üzenetére
Feltételezve, hogy az A oszlopról van szó és a 2. sortól indul. Ha az első sortól akkor a for ciklus 1-től induljon. Ha másik oszlopról akkor pedig Cells( i, 1) részt írd át. Az 1 jelöli az A oszlopot, a 2 a B-t és így tovább. A Munkalap_neve természetesen a saját munkalapod neve legyen.
Sub YY()
For i = 2 To Sheets("Munkalap_neve").UsedRange.Rows.Count
Sheets("Munkalap_neve").Cells(i, 1).Value = "YY" & Sheets("Munkalap_neve").Cells(i, 1).Value
Next i
End Sub -
válasz
Fferi50
#23246
üzenetére
Közben az a helyzet állt elő, hogy van amikor az új árlistában kevesebb termék van, így azokat ami a "mi" listánkba benne van és az újba nincs, azt ki szeretném listázni egy új munkalapra.
Az általad írt ciklust fordítottam vissza és 80%-ban működik is, de a két munkalap sorainak számának különbségéből látom, hogy 21 terméket vettek ki az új listából, ám az én makróm csak 17-et listáz ki.
Sajnos nem jöttem rá, hogy mi a gond. (Remélem nem bonyolítottam túl a leírást.)For i = 2 To Sheets("pm_nk_arlista").UsedRange.Rows.Count
Set ujszam = Sheets("pm_nk_arlista_uj").UsedRange.Columns(1).Find(What:=Sheets("pm_nk_arlista").Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
If ujszam Is Nothing Then
Sheets("Kiesett_termékek").Cells(a, 1).Value = Sheets("pm_nk_arlista").Cells(i, 1).Value
Sheets("Kiesett_termékek").Cells(a, 2).Value = Sheets("pm_nk_arlista").Cells(i, 2).Value
Sheets("Kiesett_termékek").Cells(a, 3).Value = Sheets("pm_nk_arlista").Cells(i, 3).Value
Sheets("Kiesett_termékek").Cells(a, 4).Value = Sheets("pm_nk_arlista").Cells(i, 4).Value
Sheets("Kiesett_termékek").Cells(a, 5).Value = Sheets("pm_nk_arlista").Cells(i, 5).Value
a = a + 1
End If
Next iVan ötletetek?
-
#23235
Des1gnR
őstag
m.zmrzlina
#23233
válasz
m.zmrzlina
#23233
üzenetére
Megnézem, köszi.
Arra gondoltam először, hogy ha nem lesz megoldás, akkor a 2 munkalap sorainak számát kivonom egymásból és akkor látom, hogy hányszor kell még lefuttatni. Ezt írom a K11-be és azért léptettem oda.
-
válasz
bandus
#23230
üzenetére
Köszi, közben sikerült megoldanom. Nem hagytam magam
'Keresés:
For i = 2 To lastRow
On Error Resume Next
Selection.Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Err.Number = 91 Then
Sheets("pm_nk_arlista").Cells(lastRow + 1, 1).Value = Sheets("pm_nk_arlista_uj").Cells(i, 1).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 2).Value = Sheets("pm_nk_arlista_uj").Cells(i, 2).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 3).Value = Sheets("pm_nk_arlista_uj").Cells(i, 3).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 4).Value = Sheets("pm_nk_arlista_uj").Cells(i, 4).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 5).Value = Sheets("pm_nk_arlista_uj").Cells(i, 5).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 9).Value = Sheets("pm_nk_arlista").Cells(2, 9).Value
Range("K11").Select
End
End If
Next iMost ezzel csak annyi a gondom, hogy az új értéket megtalálja és beilleszti a régi listába, de az első találatnál leáll. Szóval többször is le kell futtatni.
-
Sziasztok!
Épp egy makrón dolgozok, de elakadtam.
2 különálló munkalapról van szó, melyek termékneveket, árakat és cikkszámot tartalmaznak.
A cikkszám mindkét esetben az A oszlopban található.
A cél az lenne, hogy megtaláljam az új listában az új termékeket (szóval ami nincs benne az én listámba) és azt frissítsem az új termék bekerüljön az én listámba. -
#5001
Des1gnR
őstag
toth_janika
#5000
válasz
toth_janika
#5000
üzenetére
Ha jól értelmezem a problémád akkor itt egy megoldás:kép
B3=a
B4=b
B5=c
B6=d
C3=1
C4=2
C5=3
C6=4
B9=c
B10=HOL.VAN(B9;$B$3:$B$6;1) -
Nah így oldottam meg (biztosan van egyszerűbb kb egy kattintás, de azt sajnos nem tudtam)
Szóval http://img43.imageshack.us/img43/3507/excelu.jpg
Itt a C oszlop az:=HÓNAP(B5)
B16:
=SZUMHA(C5:C11;C16;D5:D11)
Cuci3: közben azt hiszem én is ilyesmire jöttem rá
40k 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- REFURBISHED - DELL Performance Dock WD19DCS (210-AZBN)
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Shure Podcast mikrofon
- OnePlus 13 Gyors teljesítmény és modern dizájn Midnight Ocean 16/512 GB
- BESZÁMÍTÁS! ASUS ROG Z790 i9 14900KF 32GB DDR5 1TB SSD RTX 5070TI 16GB NZXT H6 Flow RGB 1200W
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopműhely Bt.
Város: Budapest