-
Fototrend
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
-
Des1gnR
őstag
Heló!
Elakadtam egyéni mértékegység beállításánál
Egy szám mögé kellene cm-t beírnom úgy, hogy utána számolni is tudjak vele, de nem akar összejönni
Tudnátok segíteni?Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
Heló!
Importálni szeretném a prohardver adatlapom excelbe mert szeretnék a hozzászólások adataival számolgatni ez lehetséges valahogy?Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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á
[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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)Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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.Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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.
[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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.
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
válasz Fferi50 #23237 üzenetére
Ha kiveszem az end-et akkor semmit nem ad hozzá az új listából.
Ha pedig a Te ciklusod használom, akkor hozzáadja az egész új listát.m.zmrzlina: Nem kizárt, hogy a darabteli lesz a vége
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
-
-
Des1gnR
őstag
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?
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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?
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
Erre a formátumra van szükség:
Élelmiszer______Édesség_____Belvita_____Nettó árSajnos vannak nem minden termék áll azonos sorhosszból. Van, hogy a termékleírás magában 4 sor.
(#26180)
hhheniEz akár jó is lehetne ha érteném
[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
válasz anonymus89 #26510 üzenetére
Nem szokott győzködni, hogy vegyél egy ájfont?
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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.responseTextDell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
Sziasztok!
Ki lehet azt a funkciót valahol kapcsolni az 2013-as officeban, hogy a számokat dátummá alakítsa?
Bemásolom azt, hogy 10.19, és átírja 19.okt-ra. Ha visszaalakítom számmá, akkor pedig 42296 lesz belőle.Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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 eddigieketDell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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 SubDell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
válasz Fferi50 #26917 üzenetére
Nyilván úgy értettem, hogy nem nyitod meg manuálisan, de igazad van persze, még szép
Más gépeket is futni fog ez a makró és hogy ne kelljen mindenhol álligatani, főleg ne kelljen magyarázni, így volt ésszerűbb.
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
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.
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
-
Des1gnR
őstag
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.Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Des1gnR
őstag
-
Des1gnR
őstag
Sziasztok!
Van 40.000k sorom egy táblában ami 200 oszlopból áll. Ki szeretnék belőle másolni kb 150 oszlopot, de minden szétfagy amikor próbálom. Kb 1000 soronként megy, de az a baj, hogy nem 1 ilyen táblám van és ez így rengeteg idő.
Létezik valamiféle megoldás?
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2