Erre nincs megoldás ezek szerint?

a képek alapján igen. amint működésre is tudom bírni remélhetőleg okosabb leszek. köszi a segítséget.

Köszi, beírtam, de valamiért 0-át ad vissza, nem pedig a jó értéket. A munka1 fülön az értékek egy Táblázat1 nevű táblázatban van. Ezért nem működik rendesen?

Sziasztok!

A megoldandó feladatom a következő: Mondjuk van A1 és A2 cella. Ha A2 tartalmának legalább egyik eleme (karakterlánc) megegyezik az A1 cellában található karakterlánc egyik elemével, de A2 nem tartalmaz olyan karaktert, amit A1 sem tartalmaz, akkor az eredmény legyen 1. Minden más esetben az eredmény legyen 0.
Kisbetű/nagybetű nem számít.

Pl. A1=AB
A2=A; eredmény=1
A2=BA; eredmény=1
A2=ABC; eredmény =0

Egyszer már írtam ide, és nagyon segítőkészek voltatok, sikerült is megoldanom a segítségetekkel egy ennél sokkal durvább problémát, úgyhogy előre is köszönöm a segítséget!

Azt ellenőrizd, hogy mindegyik helyen dátumként, nem szövegesen szerepel-e a dátumod.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Írtam hozzá egy saját függvényt, amit modulba kell tenned (lásd a Téma összefoglalót). Ha több füzetben is szeretnéd alkalmazni, akkor a personal-ba tedd.

Function Van_Benne(mitkeres As String, mibenkeres As String)
Dim b As Integer, f As Boolean

For b = 1 To Len(mitkeres)
If InStr(mibenkeres, Mid(mitkeres, b, 1)) > 0 Then
f = True
Else
f = False: Exit For
End If
Next

If f Then Van_Benne = 1 Else Van_Benne = 0
End Function

A cellába, ahol az eredményt szeretnéd megkapni, írd be

=van_benne(A2;A1)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Fú ez nagyon jó! Köszönöm! De az a baj, hogy munkahelyre kéne, és ott nem tudom, mit szólnának egy makrós táblázathoz... Nem lehet megoldani az alapfüggvényekkel valahogy ezt?

Sziasztok!

Azt szeretném kérdezni,hogy tudom azt elérni,hogy ha a B oszlopban szereplő dátum 30 nappal több az aktuális dátumnál,akkor a D oszlopba pirossal írja ki a A oszlopban lévő adatot.

Segítségeteket előre is köszönöm.

Feltételes formázásba tedd ezt a képletet
=HA((B1-MA())>30;1;0)
beállításnak pedig a szöveg színe legyen piros ha 1

Bámulatos hol tart már a tudomány!

D1 cellába beírod ezt:

=HA(B1+30=C1;MA();"")

Ha a C cellában 30 nappal több van, mint B cellában, kiírja a dátumot, egyéb esetben nem ír kis semmit.

D1 cella > feltételes formázás > új szabály > adott tartalmú cella formázása > nem üres > formátum > piros betűszín > formátummásolóval addig húzod, amíg tart az oszlop.

Sziasztok,

adódott egy problémám, hátha ti tudtok rá megoldást. Ha tudtok, az optimális az lenne, ha a megoldás kerülné a makrókat, de végső esetben, ha nincs más, kénytelen leszek azzal dolgozni

Szóval, a gond a következő: Adott (kereséstől függő) nevű sorhoz és oszlopokhoz tartozó adatokat szeretnék keresni egy excelben, ami sok munkalapos, mindegyik sok-sok ezt-azt tartalmaz. Ez nem is okoz gondot, Index és két Hol.Van megoldja.

Viszont: a keresett adatok sokszor színezve vannak, ilyen-olyan opciók alapján feltételes formázással. A nagyon király az lenne, ha nem csak az adott cella értékét tudnám kinyerni a keresésnél, hanem a cella színét is. Az se zavarna, ha valahogy a teljes cella "jönne" ahogy formázva van, mindenestől.

Egyszerűen nem találok még olyan függvényt sem, ami lekérdezné egy adott cella színét, hát még olyat, ami ezzel műveletek is képes végezni (másolni pl).

Ha ez így, amit leírtam, nem tiszta, készítek egy rövid mintát, és dobok be képet. Tudtok valami megoldást, ami segítene?

Előre is köszönöm!

HTC, LG

Ezt nem is fogod függvénnyel megoldani csak makróval lehet!!!

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

Szia!

Szerintem akkor jársz a legjobban, ha a feltételes formázásokat átírod erre a kereső munkalapra is, persze megfelelően módosítva. Gondolom néhány általános szabály van és nem minden cellára/munkalapra különböző.

Üdv.

Sziasztok!

Excelt szeretnék tanulni (nem makrót, arra a korábbi fórum hsz-okat átnyálazva láttam ajánlott irodalmat) és szeretnék érdeklődni, hogy most van-e vmi ajánlott könyv, weboldal, tanfolyam, ami a segítségemre lehet?

Ha már volt erre válasz, neharagudjatok, egy negyedóra keresgélés után nem találtam.
köszönöm előre!

Sziasztok!

Excel 2016-ot használok. Képtelen vagyok megoldani a következő egyszerű feladatot. Nagyon fontos, hogy makró nélkül kell a megoldás.

Van egy kitöltős teszt. A megoldókulcsban 2 betű szerepel. Pl. AB. A helyes megoldás lehet A, B, AB, BA. Ha ezeket így beírom az üres teszt cellájába, mint helyes megoldás, az működik, csak nem elegáns. Azt szeretném megértetni a programmal, hogy Ha a megoldókulcs cellájában szereplő betűk közül bármelyik le van írva az üres tesz cellájában, és nem szerepel más betű benne, akkor helyes a megoldás, minden más esetben helytelen.

Pl. A : helyes
BA: helyes
b, A : helyes
B, a, C : helytelen.

Ok, úgy hogyan?

HTC, LG

Nem lehet átírni, mert oszloponként különböző és az adott oszlop adataitól függ. Amikor keresek egy értéket, akkor pedig csak azt jelenítem meg, és nem látja az oszlop többi elemét, ezért nem veheti fel pontosan azt a színt, amit ott venne fel.

HTC, LG

Közben megtaláltam a megoldást. Valószínűleg nem a legelegánsabb, de jobb, mint a semmi.

=HA(VAGY(BAL(X5;1)=BAL(Megoldókulcs!X5;1);BAL(X5;1)=JOBB(Megoldókulcs!X5;1));1;HA(VAGY(JOBB(X5;1)=BAL(Megoldókulcs!X5;1);JOBB(X5;1)=JOBB(Megoldókulcs!X5;1));1;HA(UNICODE(BAL(X5;1))+UNICODE(JOBB(X5;2))=UNICODE(BAL(Megoldókulcs!X5;1))+UNICODE(JOBB(Megoldókulcs!X5;2));1;0)))

Nem. Még sem jó Nem működik jól.

sziasztok!

makró nélkül (policy) szeretném megoldani a következő feladatot: van egy 20x10-es mátrix, ahol minden sorban ki kell tölteni max. 5 cellát egy legördülő menü által felajánlott elemek közül valamelyik értékkel. ha 5-nél többet akarnak kitölteni a 10-ből akkor hibaüzenetet kell dobjon.

a kettőt külön külön meg tudom oldani érvényesítéssel, de egyszerre nem.

a legördülő lista triviális, a kitöltött értékeket pedig ennek nyomán lehet számoltatni de akkor listát nem tudok beállítani.

próbálkoztam azzal, hogy a mátrixba beteszem a listát, a sorok végére pedig beteszek egy darab2-t és azt figyeltetem, de az szépen felszámol 6-7-8-ig és nem szól, csak ha F2-t nyomok rá majd ütnék egy entert, tehát itt átcsúszik az ellenőrzésen a hiba.

van-e erre valamilyen makrómentes workaround?

Tegyél feltételes formázást a cellákra, ahhoz add meg a Darab2 függvényt.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Akadt egy kis problémám:

Van egy sor január 1-től január 30-ig a napokkal.
Abban a sorba sárgával jelölök meg pár cellát..
Egy külön cellába folyamatosan számolnia kellene hány sárga színű cella van és a darabszámot kiírnia..
Ki hogy oldaná meg? Amit találtam macro-t ilyen célra, ott csak akkor növekszik a darabszám, ha formátummásolóval változtatom a cella színét..

Előre is köszönöm.

Sosem tudod, mi az elég, amíg meg nem tapasztalod, mi a túl sok.

Sziasztok!

Volna egy hatalmasnak mondható táblázat, ahol egy összeadás elcsúszott, vagy hibás össdzeget írtam, nem tudom. Végén a szumma nem számol, meg kéne keresnem, hogy hol a hiba, de a több mint 22 ezer sort nem nyálaznám végig. Van arra módszer, hogy a hibás adatra ugorjak?

Köszi!
T

és az miben segítene nekem? gondolom pl. "bepirosítja" a sort, ha 5-nél több értéket tartalmaz, de nekem az kellene (ha megoldható) hogy ezt ne is engedje, dobjon egy olyan hibaüzenetet mint az érvényesítésnél szokott.

Tud valaki olyan megoldást hogy egy excel fájlban több sorban vagy egy link pl. xyz.com/doku.pdf. Ezeket szeretném letölteni egyesével egy mappába. Megoldható?

Válaszolok is ha valakinek szüksége lenne rá.
Option Explicit
Public Enum DownloadFileDisposition
OverwriteKill = 0
OverwriteRecycle = 1
DoNotOverwrite = 2
PromptUser = 3
End Enum

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Windows API functions, constants,and types.
' Used for RecycleFile.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _
Alias "PathIsNetworkPathA" ( _
ByVal pszPath As String) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" ( _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long

Private Declare Function SHEmptyRecycleBin _
Lib "shell32" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const MAX_PATH As Long = 260

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

'''''''''''''''''''''''''''
' Download API function.
''''''''''''''''''''''''''''''''''''''
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DownloadFile
' This downloads a file from a URL to a local filename.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DownloadFile(UrlFileName As String, _
DestinationFileName As String, _
Overwrite As DownloadFileDisposition, _
ErrorText As String) As Boolean

Dim Disp As DownloadFileDisposition
Dim Res As VbMsgBoxResult
Dim B As Boolean
Dim S As String
Dim L As Long

ErrorText = vbNullString

If Dir(DestinationFileName, vbNormal) <> vbNullString Then
Select Case Overwrite
Case OverwriteKill
On Error Resume Next
Err.Clear
Kill DestinationFileName
If Err.Number <> 0 Then
ErrorText = "Error Kill'ing file '" & DestinationFileName & "'." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If

Case OverwriteRecycle
On Error Resume Next
Err.Clear
B = RecycleFileOrFolder(DestinationFileName)
If B = False Then
ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If

Case DoNotOverwrite
DownloadFile = False
ErrorText = "File '" & DestinationFileName & "' exists and disposition is set to DoNotOverwrite."
Exit Function

'Case PromptUser
Case Else
S = "The destination file '" & DestinationFileName & "' already exists." & vbCrLf & _
"Do you want to overwrite the existing file?"
Res = MsgBox(S, vbYesNo, "Download File")
If Res = vbNo Then
ErrorText = "User selected not to overwrite existing file."
DownloadFile = False
Exit Function
End If
B = RecycleFileOrFolder(DestinationFileName)
If B = False Then
ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
End Select
End If

L = URLDownloadToFile(0&, UrlFileName, DestinationFileName, 0&, 0&)
If L = 0 Then
DownloadFile = True
Else
ErrorText = "Buffer length invalid or not enough memory."
DownloadFile = False
End If

End Function

Private Function RecycleFileOrFolder(FileSpec As String) As Boolean

Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long

If (Dir(FileSpec, vbNormal) = vbNullString) And _
(Dir(FileSpec, vbDirectory) = vbNullString) Then
RecycleFileOrFolder = True
Exit Function
End If

With FileOperation
.wFunc = FO_DELETE
.pFrom = FileSpec
.fFlags = FOF_ALLOWUNDO
' Or
.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
End With

lReturn = SHFileOperation(FileOperation)
If lReturn = 0 Then
RecycleFileOrFolder = True
Else
RecycleFileOrFolder = False
End If
End Function

Sub example()

Dim URL As String
Dim LocalFileName As String
Dim B As Boolean
Dim ErrorText As String
Dim c As Range

For Each c In Columns("K:L").SpecialCells(xlCellTypeConstants, 23)
URL = c
LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B = DownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
If B = True Then
Debug.Print "Download successful"
Else
Debug.Print "Download unsuccessful: " & ErrorText
End If
Next c

End Sub

[ Szerkesztve ]

Tömb függvény:

=--ÉS(SZÁM(SZÖVEG.KERES(KÖZÉP(A2;SOR(INDIREKT("A1:A"&HOSSZ(A2)));1);$A$1)))

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

szerintetek mi okozza azt hogyha egy excelt bezarok, allandoan feljon az a hibaablak hogy az excel.exe stopped working and restarting? jogtiszta, meg uj gep...

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

megnézné nekem egy hozzáértő hogy mit kellene változtatni ahhoz hogy ha két ugyan olyan fájl link van akkor ne kérdezze meg hogy felülírja-e, hanem írja felül kérdés nélkül vagy hagyja ki azt a letöltést

[ Szerkesztve ]

Sziasztok!

Segítséget szeretnék kérni az FKERES működésre bírásához.

EZ a leírás alapján próbálok validációs listát csinálni, de nem megy, hibát dob a képletre.

az, hogy:
=INDIREKT(FKERES(A1,lookuplista,2,HAMIS)&"List")
hibát okoz. És a FKERES belsejét jelöli. (lookuplista egy névtér)

Egyszerűen nem tudok rájönni, hogy mi a hiba.
Elvileg ennek az A1 cellába írt érték alapján kellene kikeresnie a lookuplista névtérből a második oszlop értékét, majd ezt az indirekt egy másik névtérbe lévő értékkel kapcsolja.

If you chase two rabbits you will lose them both.

Aha.. Pontosvessző... kib... ";". Mert a sima kva vessző már nem jó neki.

If you chase two rabbits you will lose them both.

Fkeres-nél tényleg nincs mód, hogy a keresendő érték a tartomány ne az első cellájában szerepeljen?

Pl
C oszlopban van amit keresek, és az A oszlopban a hozzátartozó érték amit szeretnék kinyerni.

Ezt mivel lehetne még?

De van.
azt hiszem ez kell neked.

If you chase two rabbits you will lose them both.

A már javasolt HOL.VAN/INDEX páros a legjobb megoldás.
FKERES-el pedig így lehet megoldani:
=FKERES(E1;VÁLASZT({1\2};C:C;A:A);2;0)

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Nagyon szép megoldás. Egyetlen apró hibalehetőség maradt benne: A végén a $A$1-ben a $ jelek nem kellenének. Ugyanis a kérdező elfelejtette jelezni, hogy nem az A oszlopban használja, hanem az X oszlopban. Ráadásul nem is ugyanazon a munkalapon. És ha ilyenkor is az aktuális munkalap A1 oszlopában keresi a karaktereket, akkor meglepő eredményekre juthat.

Köszi, tökéletes.

(#37786) Mutt
Köszi neked is, elég lesz a hol van index, szépen működik.

Sziasztok!

Power Queryvel van problémám:

Több lekérdezést fűzök össze egymás "mögé" (táblázatilag alá). A különálló lekérdezésekben, és a forrásában is az A oszlop adat típusa dátum. Az összefűző lekérdezésben is átállítottam a típust dátumra. Valamiért mégis az eredmény minden egyes alkalommal dátum helyett "General", emiatt egy ezen a queryn alapuló pivot table mindig elromlik.

Mi a megoldás erre a problémára?

[ Szerkesztve ]

Szia!

Ha kérdés nélküli felülírást szeretnél, akkor
Application.DisplayAlerts = False a makró elejére és
Application.DisplayAlerts = True a makró végére.

A kihagyáshoz:
LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B=Dir(LocalFileName)=""
If B Then B = True ThenDownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
End if

Üdv.

Sziasztok
Van egy táblázatom ami jelenleg 10000 sornyi adatra van képletezve.
ez most még sok de később meg kevés lesz.
Van egy rakat képletem ami kb ilyen
=SZUMHA($B$404:$B$10403;B257;$K$404:$K$10403) itt rögzített a vége

A kérdésem az hogy ha a 10403 at ki szeretném cserélni 5000 re vagy 15000 re akkor azt makróval vagy az indirekt függvénnyel csináljam.
Lehet ezt egyáltalán makróval?

Sajnos az indirektet se nagyom bírom felfogni. Valaki tudna egy érthető leírást hozzá?

Szia!

Számolást kikapcsolod. (Képletek - Számolási beállítások - Manuális). Ezután Ctrl+F (keresés és csere), Keresett szöveg 10403 Csere fül -- Csere erre: amire akarod, majd Egyebekre katt, Keresés helye kiválasztod Képletek --- az összes cseréje.

Számolás visszakapcsolása (Képletek - Számolási beállítások - Automatikus)

Makróval:
Application.Calculation=xlCalculationManual
Activesheet.Usedrange:Find What:="10403",LookIn:=xlFormulas,LookAt:=xlPart
Activesheet.Usedrange.Replace What:="10403", Replacement:="5000",LookAt:=xlpart
Application.Calculation=xlCalculationAutomatic

Üdv.

[ Szerkesztve ]

Sziasztok!

Régóta megoldatlan dologba futottam megint, mármint részemről, azaz eddig még nem sikerült egyszerűen megoldani az alábbi problémát. Mindenféle ötletet szívesen fogadok!

Az alábbi táblázatban azt szeretném elérni hogy a léptető gombra kattintva mindig a következő/előző név jelenjen meg, függetlenül attól hogy egy név hányszor szerepel a listában az A oszlopban..

A léptető ugyebár nem tud függvényt fogadni, mert pl. a "DARABHATÖBB(A:A;K3)" segíthetne...
Remélem érthető a kérdésem....

[ Szerkesztve ]

Szia!

A neveket másold le egy külön oszlopba, majd ismétlődések eltávolítása. - ezáltal csak egy-egy név marad.
A léptetőnek a min-max értékét ehhez az oszlophoz igazítsd.
Ha mondjuk az X oszlopban vannak a nevek, a léptető pedig a K1 cellához van kapcsolva, akkor a képlet
=Index($X$1:$X$10;$K$1)
amit írhatsz pl. a K2 cellába akár.

Üdv.

[ Szerkesztve ]

Bocs, azt nem írtam, hogy segéd oszlopra nincs lehetőség, mert folyamatosan bővül az adatbázis újabb és újabb esetekkel, ezért arra nincs lehetőség hogy minden új bejegyzés után a segéd oszlopot frissítse a felhasználó, ennek automatikusan követnie kellene a változásokat.

Egy hosszú képlet esetleg Excel 2010 vagy frissebb esetén:

=HA(K1>SZORZATÖSSZEG(1/DARABTELI(nevsor;nevsor));"Nincs több név";INDEX(nevsor;ÖSSZESÍT(15;6;HOL.VAN(nevsor;nevsor;0)/HA(GYAKORISÁG(HOL.VAN(nevsor;nevsor;0);SOR(INDIREKT("A1:A"&DARAB2(nevsor))))>0;1;0);K1)))

Létre kell hoznod a névkezelőben nevsor névvel egy dinamikus tartományt, a képlete (Munka1 füzet esetén):
=ELTOLÁS(Munka1!$A$2;0;0;DARAB2(Munka1!$A:$A)-1)

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Megadod a léptető cellacsatolását egy olyan helyre, ahol rejtve marad, pl. a H3-ba.
A képlet, ami kiírja a kiválasztott nevet:

=HAHIBA(INDEX(INDIREKT("A2:A" & DARAB2(A:A));$H$3;1);"Nincs több név")

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

ezzel is csak egyesével léptet a nevek közt....
a következőre szeretnék ugrani, akkor is ha azonos nevűből egymás alatt több van

annyit már sikerült megoldani, hogy névkezelővel felvettem egy dinamikus tartományt, amiben megszámolom hány azonos név van egymás alatt (=DARABHATÖBB(form_1;név)

továbbá megoldottam, hogy megszámolja hány darab van a következő névből és az előzőből
- ez az ugrások számához kell majd...

[ Szerkesztve ]

Léptető helyett scrollbart tegyél be, annál megadhatod a kicsi- és nagy léptetést (SmallChange, Largechange). Az előbbi a nyílra-, a második a csúszkára kattintáskor jön létre.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.