Hirdetés
- Azonnali VGA-s kérdések órája
- Azonnali alaplapos kérdések órája
- Projektor topic
- 3D nyomtatás
- AMD Navi Radeon™ RX 9xxx sorozat
- Melyik tápegységet vegyem?
- Pánik a memóriapiacon
- Sony MILC fényképezőgépcsalád
- Soundbar, soundplate, hangprojektor
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
-
PROHARDVER!
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
-
-
#14987
lappy
őstag
Vizes Tomi
#14986
lappy
őstag
válasz
Vizes Tomi
#14986
üzenetére
egy képet tudsz mutatni róla!
-
#14902
lappy
őstag
Dark Archon
#14901
lappy
őstag
válasz
Dark Archon
#14901
üzenetére
Szia!
A diagram kirajzoltatása még menne is, sikerül beállítani a logaritmikus skálát is, de negatív tartományban nem hajlandó kirajzolni.!
Amúgy elindítod a diagram készítőt! Az tengelyeket beállítod ha ez megvan akkor a súgóban rákeresel a logaritmikus szóra és ott lépésről lépésre leírja hogy kell átállítani. -
-
-
lappy
őstag
Szia Delila_1!
Ebben tudnál nekem segíteni!
Az alábbi macrót kellene 2007 ben használnom, de nem vagyok toppon a macróban hogy hogyan tudom átalakítani.
A cél az hogy egy gombot megnyomva könyvtárból lehessen kiválasztani egy .xls kiterjesztésű fájlt és azt betölti majd a munkalapra.!
Ez a macro viszont csak 2003 ban megy az Application.FileSearch miatt.Private Sub UserForm_Initialize()
Dim KERES As Object
Dim FILEOK() As StringSet KERES = Application.FileSearch
KERES.LookIn = "C:\TRS\Munka"
KERES.Filename = "*.xls"
If KERES.Execute > 0 Then
DARABSZAM = KERES.FoundFiles.Count
ReDim FILEOK(DARABSZAM)
For I = 1 To DARABSZAM
FILEOK(I) = KERES.FoundFiles(I)
Next I
File_lista.List = FILEOK
End IfFile_lista.SetFocus
End Sub
-
#14813
lappy
őstag
dellfanboy
#14812
lappy
őstag
válasz
dellfanboy
#14812
üzenetére
Szia!
Ha csak az ár kell mellé egy cellába akkor =b1!
-
lappy
őstag
Sziasztok!
Az alábbi macrót kellene 2007 ben használnom, de nem vagyok toppon a macróban hogy hogyan tudom átalakítani.
Private Sub UserForm_Initialize()
Dim KERES As Object
Dim FILEOK() As String
Set KERES = Application.FileSearch
KERES.LookIn = "C:\TRS\Munka"
KERES.Filename = "*.xls"
If KERES.Execute > 0 Then
DARABSZAM = KERES.FoundFiles.Count
ReDim FILEOK(DARABSZAM)
For I = 1 To DARABSZAM
FILEOK(I) = KERES.FoundFiles(I)
Next I
File_lista.List = FILEOK
End If
File_lista.SetFocus
End Sub -
#14769
lappy
őstag
marchello1
#14768
lappy
őstag
válasz
marchello1
#14768
üzenetére
Szia!
Nem igazán értem a problémád de talán ez kell neked:1 2 3
P 105 =AB.SZUM($A$4:$B$10; "2";A4:A5)
S 96
C 105
P 75
S 76,8
P 45 -
#14744
lappy
őstag
Töki bácsi
#14729
lappy
őstag
válasz
Töki bácsi
#14729
üzenetére
Szia!
Így talán megfelel neked!
táblázat készítése:
1. vízszintes sorba a hosszúság!
2. függőleges sorba szélesség
3. a metszéspontokba az ár!
ha ez kész, akkor:
kis táblázat ahol meg kell adni a szélességet plusz a hosszúságot
akkor kiadja az árat
a képlet hozzá:
=INDEX(B3:E6;HOL.VAN(C12;B3:E3;0);HOL.VAN(D12;B3:B6;0))
Figyelj! tömbképletnek kell lennie!! -
#14728
lappy
őstag
Töki bácsi
#14727
lappy
őstag
válasz
Töki bácsi
#14727
üzenetére
Én érvényesítési listával oldanám meg!
-
#14726
lappy
őstag
Töki bácsi
#14725
lappy
őstag
válasz
Töki bácsi
#14725
üzenetére
Szia!
Attól függ hogy hány összefüggés van szélesség és hosszúság között?! -
lappy
őstag
Szia!
Ha 2003 as excel van akkor
Aktuális dátum: Jelöljük ki a cellát, és nyomjuk meg a CTRL+. (pont) billentyűket (a szerkesztőlécen).
Aktuális idő: Jelöljük ki a cellát, és nyomjuk meg a CTRL+SHIFT+. (pont) billentyűket.Aktuális dátum és idő: Jelöljük ki a cellát, és nyomjuk meg a CTRL+. (pont), majd a Szóköz, végül a CTRL+SHIFT+. (pont) billentyűket (a szerkesztőlécen).
Újabb verzióban nem működik csak az idő! -
lappy
őstag
Sub CallMailer()
Dim lngLoop As Long 'Programming ethics 1. Always start your first line after leaving a line space, and 1 indentation level
With ActiveSheet
For lngLoop = 2 To .Cells(Rows.Count, 1).End(xlUp).Row ' Programming ethics 3. Always indent your loops, case statements and with constructors
Call SendMessage(strTo:=.Cells(lngLoop, 1).Value, strCC:=.Cells(lngLoop, 2).Value, strBCC:=.Cells(lngLoop, 7).Value, strMessage:=.Cells(lngLoop, 8).Value, strSubject:=.Cells(lngLoop, 3).Value, strAttachmentPath:=.Cells(lngLoop, 6).Value, rngToCopy:=.Cells(lngLoop, 9))
Next lngLoop
End With 'Programming ethics 2. Always end your last line leaving a line space before ending the sub or function, and having indendation level of 1
End Sub
Sub SendMessage(strTo As String, Optional strCC As String, Optional strBCC As String, Optional strSubject As String, Optional strMessage As String, Optional strAttachmentPath As String, Optional rngToCopy As Range, Optional blnShowEmailBodyWithoutSending As Boolean = False)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
If Trim(strTo) & Trim(strCC) & Trim(strBCC) = "" Then
MsgBox "Please provide a mailing address!", vbInformation + vbOKOnly, "Missing mail information"
Exit Sub
End If
' Create the Outlook session.
On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
Err.Clear: On Error GoTo -1: On Error GoTo 0
If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
End If
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
If Trim(strTo) <> "" Then
Set objOutlookRecip = .Recipients.Add(strTo)
objOutlookRecip.Type = olTo
End If
' Add the CC recipient(s) to the message.
If Trim(strCC) <> "" Then
Set objOutlookRecip = .Recipients.Add(strCC)
objOutlookRecip.Type = olCC
End If
' Add the BCC recipient(s) to the message.
If Trim(strBCC) <> "" Then
Set objOutlookRecip = .Recipients.Add(strBCC)
objOutlookRecip.Type = olBCC
End If
' Set the Subject, Body, and Importance of the message.
If strSubject = "" Then
strSubject = "This is an Automation test with Microsoft Outlook"
End If
.Subject = strSubject
If strMessage = "" Then
strMessage = "This is the body of the message." & vbCrLf & vbCrLf
End If
.Importance = olImportanceHigh 'High importance
If Not strMessage = "" Then
.Body = strMessage & vbCrLf & vbCrLf
End If
If Not rngToCopy Is Nothing Then
.HTMLBody = .Body & RangetoHTML(rngToCopy)
End If
' Add attachments to the message.
If Not IsMissing(strAttachmentPath) Then
If Len(Dir(strAttachmentPath)) <> 0 Then
Set objOutlookAttach = .Attachments.Add(strAttachmentPath)
Else
MsgBox "Unable to find the specified attachment. Sending mail anyway."
End If
End If
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
' Should we display the message before sending?
If blnShowEmailBodyWithoutSending Then
.Display
Else
.Save
.Send
End If
End With
Set objOutlook = Nothing
Set objOutlookMsg = Nothing
Set objOutlookAttach = Nothing
Set objOutlookRecip = Nothing
End Sub
Function RangetoHTML(rng As Range)
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and Outlook 2010.
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
' Copy the range and create a workbook to receive the data.
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
' Publish the sheet to an .htm file.
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
' Read all data from the .htm file into the RangetoHTML subroutine.
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
' Close TempWB.
TempWB.Close savechanges:=False
' Delete the htm file.
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function -
#14600
lappy
őstag
Bocimaster
#14596
lappy
őstag
válasz
Bocimaster
#14596
üzenetére
Az elején létrehozod a diagramot és utána kellenek azok a lépések!
-
#14595
lappy
őstag
Bocimaster
#14589
lappy
őstag
válasz
Bocimaster
#14589
üzenetére
Szia!
Ha jól gondolom akkor ilyet szeretnél!
Minden le van írva, hogy hogyan kell!
[link] -
lappy
őstag
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String)
SetCurrentDirectoryA szPath
End Sub
Sub Combine_Workbooks_Select_Files()
Dim MyPath As String
Dim SourceRcount As Long, Fnum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range
Dim rnum As Long, CalcMode As Long
Dim SaveDriveDir As String
Dim FName As Variant
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
SaveDriveDir = CurDir
ChDirNet "C:\"
FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", _
MultiSelect:=True)
If IsArray(FName) Then
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
rnum = 1
For Fnum = LBound(FName) To UBound(FName)
Set mybook = Nothing
On Error Resume Next
Set mybook = Workbooks.Open(FName(Fnum))
On Error GoTo 0
If Not mybook Is Nothing Then
On Error Resume Next
With mybook.Worksheets(1)
Set sourceRange = .Range("A1:A25")
End With
If Err.Number > 0 Then
Err.Clear
Set sourceRange = Nothing
Else
If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
Set sourceRange = Nothing
End If
End If
On Error GoTo 0
If Not sourceRange Is Nothing Then
SourceRcount = sourceRange.Rows.Count
If rnum + SourceRcount >= BaseWks.Rows.Count Then
MsgBox "Not enough rows in the sheet. "
BaseWks.Columns.AutoFit
mybook.Close savechanges:=False
GoTo ExitTheSub
Else
Set destrange = BaseWks.Range("A" & rnum)
With sourceRange
Set destrange = destrange. _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value
rnum = rnum + SourceRcount
End If
End If
mybook.Close savechanges:=False
End If
Next Fnum
BaseWks.Columns.AutoFit
End If
ExitTheSub:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
ChDirNet SaveDriveDir
End Sub -
#14560
lappy
őstag
Bocimaster
#14557
lappy
őstag
válasz
Bocimaster
#14557
üzenetére
Az attól függ milyen az adathalmaz, de a BIN2DEC fgv próbálkozz!
-
lappy
őstag
válasz
lacipapi
#14530
üzenetére
Szia!
Sub SaveWorkbookBackup()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.FullName
i = 0
While InStr(i + 1, BackupFileName, ".") > 0
i = InStr(i + 1, BackupFileName, ".")
Wend
If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
BackupFileName = BackupFileName & "_masolat" & ".xls"
OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar = "Munkafüzet mentése"
.Save
Application.StatusBar = "Munkafüzet mentése..."
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "Biztonsági másolat nem kerül mentésre!", vbExclamation, ThisWorkbook.Name
End If
End Sub -
#14485
lappy
őstag
zseszter0705
#14484
lappy
őstag
válasz
zseszter0705
#14484
üzenetére
Szia!
Ha elmented és újra indítod akkor is ugyanez van? -
#14474
lappy
őstag
dellfanboy
#14473
lappy
őstag
válasz
dellfanboy
#14473
üzenetére
Szia!
Alap esetben nem! De sok fáradságos és kitartó munkával igen!
[link]
vagy ez a módszer!
Először mindenképpen át kell konvertálni pl. word formátumúvá.
(persza ha kinyomtatott doksi lett szkennelve és úgy lett pdf, akkor sokkal macerásabb lesz a visszakonvertálás, minta a dokumentum közvetlenül pdf-be került nyomtatásra) -
#14470
lappy
őstag
basaharc502
#14469
lappy
őstag
válasz
basaharc502
#14469
üzenetére
Szia!
Igazából ez nem is excel probléma!
A tanácsom a következő:
- egyesével vidd be az évszámokat
- majd tedd be az eseményt
Na most következik a trükk!
az animálásnál kell beállítani a következőket
(az évszámokat akár egyesével kattintásra hozhatod be vagy már mind látszik ezt rád bízom)
az egyik eseményt kiválasztva be lehet állítani hogy milyen animációval és mire induljon el
jobb gomb majd effektus beállítása
időzítés (a képen láthatod hogy mit is kell beállítani)
remélem segítettem! -
#14438
lappy
őstag
medvezsolt
#14436
lappy
őstag
válasz
medvezsolt
#14436
üzenetére
Szia!
Ha fgv.-el ezt nem tudod megcsinálni csak macroval! -
lappy
őstag
válasz
greenface
#14417
üzenetére
Szia!
Példa:
Ha a cellában ez van
A1 2012.06.07 23:59:59 ---- formázás dátumra
A1-ben a következőt látod 2012.06.07 de ha rámész a cellára akkor még ott van a óó:pp:mp
Beszúrsz egy oszlopot az adataid mellé
Ezután B1-be a következő képletet írod =A1
Nálam (2007-ben) a B1 cellában a következőt látom 2012.06.07 ami dátum formátumú
és ahhoz hogy dolgozni tudj vele kijelölöd a B oszlopot és másolás -- irányított beillesztés-- érték!
ha nem megy akkor vhova töltsd fel és átalakítva megkapod! -
lappy
őstag
válasz
greenface
#14406
üzenetére
Szia!
Gondolom sok adatod lehet éé:hh:nn óó:pp:mp formátumú amit sikerült formázással dátum formátumra varázsolni! És ebből kell neked csak a dátum rész!
Akkor segédtáblát kellene létrehozni! A képlet pedig A1 cella esetén =A1 ezután pedig kijelölöd mindet és másolás majd irányított beillesztés csak érték és formázod dátumra és kész! -
lappy
őstag
Szia!
Elég nagy butaságot írtál le! Mivel a leírás alatti cellákba is egy globális listát használsz, ha jól tudom!
NA most ha megint létrehozol egy listát a kódok munkalapon akkor arra tudsz hivatkozni bármelyik munkalapon! pl: lista az érvényesítésnél meg csak annyi hogy lista kiválasztás és a forráshoz pedig =lista
és így működnie kell! -
#14393
lappy
őstag
Fire/SOUL/CD
#14381
lappy
őstag
válasz
Fire/SOUL/CD
#14381
üzenetére
SZVSZ Delila_1 NYARAL
-
lappy
őstag
Szia!
A következőket tettem és MŰKÖDIK!
1. Töröld az összes tartománynevet!!!
2. Én átrendeztem a Kódok lapot függőleges nézetre( egymás alatt vannak a lista elemei)
Bár lehet a 2. lépés nem kell!
3. Újra elneveztem a tartományokat!
4. Minden működik!
Szerintem a névkezelőben sok felesleges tartományelnevezés került bele! Nekem csak 6, ill. 7 (kódok tartománynév) van!
Lehet az okozta a gondot! -
lappy
őstag
Szia!
Ha átmásolod egy másik munkalapra akkor már nem tudod ugyanolyan névvel elmenteni az a listádat! mert egy globális név lesz!! (ill. lehet csak) amire bárhol hivatkozhatsz!
Nem tudom mitől nem működik neked ez a lista más munkalapon!
Az érvényesítésnél a forrásba pl.: beírod =jelleg (ilyenkor fog feljönni hogy L, M, ME, stb)
és minden egyes jelleghez tartozó megnevezésnél az érvényesítési forrásba pedig beírod pl.:
munka1 munkalapon =indirekt(E8)
munka2 munkalapon =indirekt(F8)
munka3 munkalapon =indirekt(G8)
ahol az E8, F8, G8 celláknál tudod kiválasztani a jelleget! -
#14326
lappy
őstag
foregister
#14324
lappy
őstag
válasz
foregister
#14324
üzenetére
Szia!
az a baj hogy nem látom mi függ össze mivel.
pl a Name1 ből lesz NewName 6
de hogy miért az lesz belőle azt nem tudom kilogikázni se! Vmi összefüggés kell hogy legyen vagy meg kell hogy legyen a lista hogy mit kell mire cserélni, de gondolom ezt nem 10-20 szó -
#14325
lappy
őstag
foregister
#14322
lappy
őstag
válasz
foregister
#14322
üzenetére
Szia!
Delila erre adta neked azt a függvényt!! -
#14323
lappy
őstag
foregister
#14321
lappy
őstag
válasz
foregister
#14321
üzenetére
-
-
#14281
lappy
őstag
Metathrone
#14279
lappy
őstag
válasz
Metathrone
#14279
üzenetére
Szia!
Valódi jelszó megtudására a GOOGLE-ba beírva egy pár kulcsszót kidob egy pár programot amivel excel jelszót meg lehet tudni! Igaz el tarthat egy darabig még megkeresi a valódi jelszót! -
lappy
őstag
válasz
D@ni88
#14257
üzenetére
Szia!
itt van egy txt beolvasóPublic Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
Sub DoTheImport()
Dim FileName As Variant
Dim Sep As String
FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
If FileName = False Then
''''''''''''''''''''''''''
' user cancelled, get out
''''''''''''''''''''''''''
Exit Sub
End If
Sep = Application.InputBox("Írjon be egy elválasztó karaktert.", Type:=2)
If Sep = vbNullString Then
''''''''''''''''''''''''''
' user cancelled, get out
''''''''''''''''''''''''''
Exit Sub
End If
Debug.Print "FileName: " & FileName, "Separator: " & Sep
ImportTextFile FName:=CStr(FileName), Sep:=CStr(Sep)
End Sub -
lappy
őstag
Sub WriteXls()
Dim firstrow As Integer, rownum As Integer, colnum As Integer
Dim filename As String
Dim Filelocation As String
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Filelocation = "C:\SAJÁT\"
With ws
rownum = 3
While .Cells(rownum, 1) <> ""
filename = .Cells(rownum, 1).Value
Open (Filelocation & filename & ".xls") For Output As #1
colnum = 2
While .Cells(rownum, colnum) <> 0
Print #1, ws.Cells(rownum, colnum) & " ";
colnum = colnum + 1
Wend
Close #1
rownum = rownum + 1
Wend
End With
End Sub
Szúrj az első sorba egy nevet, mert úgy menti majd el!
pl.: A1:text1===>text1.xls -
-
lappy
őstag
Na akkor más a leányzó fekvése!!
Akkor az előbb amit csináltál azt szedd le! és csinál a következőt!
A képen látod a D11
11 sort ez lesz nálad a "jelleg" nevű lista amit tartomány elnevezéssel készítesz el!
ezután minden egyes jelleghez létrehozod a saját listáját tartományelnevezéssel! pl: E -hez az a,b ,c!
ha hibát jelez az excel akkor adj neki vmi más elnevezést mint a kód!
pl: a nagy O betűt, O/Sz nél nem engedi elnevezni O nak találj ki vmi nevet neki!Ezután a B57 hez teszel egy érvényesítési listát! a lista a jelleg nevű lesz!! ezt már tudod hogy kell készíteni!
és az érvényesítés cellához pedig a következő listát kell tenni aminek a forrásához az indirekt fgv. használod (segítség a képen van) =INDIREKT(B57) nálad -
-
lappy
őstag
A második lépésnél kell a képlet!
A lista lehet elnevezve vagy adott tartomány is! a képletben most adott tartomány!
a szüksége képlet =HA(B57="Ü";$B$8:$B$15;HA(B57="ü";$B16:$B20;"") ami azt csinálja hogy ha Ü kerül a B57-be akkor az adott listából lehet választani
ha B57= ü akkor egy másik listából választhatsz!
a buktatója a dolognak hogy ha a Jelleg több mint 7 (2003 excelben ha jól tudom csak ennyi a HA fgv száma) akkor már makró kell hozzá!!
A névkezelő most neked nem kell csak ha módosítani akarod az elnevezett listádat! -
11 sort ez lesz nálad a "jelleg" nevű lista amit tartomány elnevezéssel készítesz el!
Új hozzászólás Aktív témák
Fferi50- VGA kibeszélő offtopik
- Fotók, videók mobillal
- Renault, Dacia topik
- Okos Otthon / Smart Home
- Ezek voltak az év játékai 2025-ben szerintetek
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Azonnali VGA-s kérdések órája
- Kerékpárosok, bringások ide!
- Honor Magic5 Pro - kamerák bűvöletében
- E-roller topik
- További aktív témák...
- LicencAruhaz.hu OLCSÓ, LEGÁLIS SZOFTVEREK AZONNAL - Windows - Office - Win Server - ÖRÖK GARANCIÁVAL
- HP 150W töltők (19.5V 7.7A) kis kék, kerek, 4.5x3.0mm
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- AZONNALI SZÁLLÍTÁSSAL Eladó Windows 8 / 8.1 Pro
- MacBook Pro 13, 14, 15, 16, MacBook Air M1, M2 M3 M4 bill magyarosítás lézerrel / sapkacserével
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest