- Huawei Watch Fit 3 - zöldalma
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Vivo X200 Pro - a kétszázát!
- Milyen okostelefont vegyek?
- iPhone topik
- Poco X5 Pro - ránézésre jó
- Szinte játékpénzért megvehető a Honor Play 10C
- Google Pixel topik
- Honor Magic7 Pro - kifinomult, költséges képalkotás
Hirdetés
-
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
-
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
Hirdetés
- Huawei Watch Fit 3 - zöldalma
- Battlefield 6
- Luck Dragon: Asszociációs játék. :)
- Otthoni hálózat és internet megosztás
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Samsung Galaxy A54 - türelemjáték
- Vezeték nélküli fejhallgatók
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- 3DMark 11 eredmények
- sziku69: Szólánc.
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Eladó Steam kulcsok kedvező áron!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- 137 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- Xiaomi Redmi Note 13 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Logitech G513 Carbon Tactile DE (3)
- Surface Laptop 7 Business edition - Intel Core ultra 5 236V energiahatékonyabb az intelnél! -olvass
- DELL Precision 7540 - Intel Core i9-9980HK, RTX 3000 (nagyon erős GPU-val)
Állásajánlatok
Cég: FOTC
Város: Budapest