-
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
-
Declare
őstag
válasz
Declare
#40435
üzenetére
egy kis Update:
a összes tesztelt olyan 2018 as datumra lefut, ami 0 val kezdödik ( 02.11.18 ; 06.10.18 stb.). Ha viszont nem 0 val kezdödik akkor a 2018 as datumokkal nem fut a makro (vagy lefut de nem talal semmit). 2019 es evvel semmi problema, akarmilyen datummal lefut
-
Declare
őstag
válasz
Fferi50
#40423
üzenetére
juhuuuu
köszi szepen! Müködik.Viszont van egy anomalia, amire nem tudok rájönni
Ez a kód:
(lenyege röviden: a "Tab1" munkafüzet C oszlopaban a "Tab2" munkafüzet nevenek (mindig egy datum, pl 15.03.19) megfelelö datumokat kikeresi. Ha talalal egy egyezöt, akkor kimasolgatja a "Tab1" munkafüzetben a datum soraban talalhato adatokat a "Tab2" munkafüzet megfelelö cellaiba.A teszt közben, akarmilyen 2019 es datummal teszteltem, lefut szuperül. 2018 as datumok közül viszont a többseggel nem müködik. Van amivel lefut jol, viszont a legtöbb tesztelt datummal egyszerüen nem fut le, mintha nem lenne a keresett datum a cél munkafüzet C oszlopaban. Pedig ott van es ugyan ugy van formazva. Az egesz C oszlop datumkent van formazva.
Egy pl: munkafüzet neve 15.03.19 => lefut es szuper.
10.12.18=> nem fut le (mintha nem talalna, de van)
09.10.18=> lefut es szuperNa erre mondjatok nekem valami magyarazatot es megoldast legyszi, mert total passz a kerdes. Ha viszont a makro hol müködik hol nem, ugy nem sok ertelme volt az egesz eddigi munkamnak vele
Sub Aktualisieren_Tagebuch()
Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Dim Tab1 As String
Dim Tab2 As String
Tab1 = "Bautagebuch"
Tab2 = ActiveSheet.Name
OK = Tab2
Application.ScreenUpdating = False
iZähler = 15
With Worksheets(Tab1).Range("C1:C500")
Set c = .Find(DateValue(OK), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(Tab1).Select
Range("B" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("A" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("B" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("I" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("D" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("E" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("E" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Sheets(Tab2).Select
Application.ScreenUpdating = True
End Sub -
Declare
őstag
válasz
Fferi50
#40413
üzenetére
Meglett a hiba
(kettö gomb volt es az egyiknel atirtam az "After"-os valtozatra, a masiknal nem. AMikor probalgattam a gombokat a masodik gombnal nem müködött, csak ez nem tünt fel, hogy csak az egyikkel van a baj.)A kereses es kigyüjtesre majdnem megvan a megoldas:
Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Const Tab1 = "Bautagebuch"
Const Tab2 = "13.03.19"
Sub suchen()
iZähler = 5
With Worksheets(Tab1).Range("C1:C500")
OK = Application.InputBox("Wonach soll gesucht werden? ")
Set c = .Find(OK, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("A" + Trim(Str$(c.Row)) + ":G" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End SubA baj, hogy en datumot szeretnek keresni, de ha datumot beirom az inputboxba, nem törtenik semmi
. Ha mas oszlopban keresek (nem a C ben, hanem mondjuk A ban) es ott beirok egy nevet, azzal tökeletesen müködik. Valami itt a datum formatum dologgal lesz szerintem, de nem tudom, hogy mi Ötlet valakinek?
-
-
Declare
őstag
Sziasztok!
Van egy (szerintem) egyszerü es egy kisse komplexebb kerdesem.
Ezt a makrot hogy kell modositanom, hogy az uj worksheetet mindig a worksheetek végére illessze be?
(Egy gombot csinaltam az excelben, amire kattintva lefut ez a makro. A makro letrehoz egy uj sheetet es elnevezi az aznapi datummal es kiirja hogy kesz. Ha ilyen sheet mar van, akkor kiirja, hogy mar van ilyen es nem csinal semmit.)
Private Sub CommandButton1_Click()
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Format(Date, "DD/MM/YY")
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' Fertig."
Else
MsgBox "The sheet named ''" & newSheetName & _
"''schon existiert."
End If
Unload MeKerdes2. Ez a bonyi
Van egy tablazat (tablazatkent formazva) A:I tartomanyban:
A__________B___________C__________..... _______I
Cegnev1 ___Szakág1___ Datum1 __....._______Emberek szama1
.
.
Cegnev6 Szakág6 Datum1 ..................................Emberek szama6
.
.
stb.Innen kellene kigyüjteni a fent letrehozott aznapi datummal elnevezett worksheetben a datumnak megfeleöen egymas ala kilistazva az elemeket.
(Azaz a makronak a C oszlopban kellene keresni a datumnak megfelelö ertetekeket es ha talal egyet fentröl lefele haladva, akkor az uj tablazatba az A1 cellaba beirja a hozza tartozo ertekeket (azaz A1=>Cegnev1; B1=>Szakág1; C1=>Emberek szama1). Majd megy tovabb lefele es ha megint talal egy megfelelö datumot ott megint kigyüjti az ertekeket (azaz pl.: A2=>Cegnev6; B2=>Szakág6 ...stb)
Egesz sok mindent összeraktam már ehhez a tablazathoz, de ezzel a feladattal sajna elakadtam
Valakinek erre ötlet?
-
Declare
őstag
válasz
Delila_1
#40364
üzenetére
Valami nem klappol
Private Sub Workbook_Open()
Dim rng As Range, A
Set rng = Sheets("Allgem.").Range("B:B").Find(What:=Date, LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
Set A = ActiveCell
Range(A).Interior.ColorIndex = 3
ActiveWorkbook.RefreshAll
End Sub -
Declare
őstag
Sziasztok!
Egy kis Excel VBA feladaton ügyködöm, de nem akarom leirni mi a célom, inkabb magam talalnam ki az utat a megvalósitasig.
Viszont egy két kisebb segitsegre biztosan szüksegem lesz / van
1 Kerdes: van egy kivalasztott cellam excelben
Private Sub Workbook_Open()
Dim rng As Range, A
Set rng = Sheets("Allgem.").Range("B:B").Find(What:=Date, LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
Set A = ActiveCellhogyan tudom most kivalasztott aktiv cellanak a hatteret (amit elvileg ementettem "A" valtozoba) beszinezni?
(kesöbb az lenne a cel, hogy az "A" mindig ennek a cellanak a cimet tartalmazza. -
Declare
őstag
válasz
Fferi50
#33310
üzenetére
Valamit en rontottam el, sorry...nem szoltam
Ez ugye csak egy reszlete a teljes makronak es amikor probaltam ezt amit küldtel külön jo volt, aztan beillesztettem a teljes makroba (ahol ezek a Titel meg S. Titel ezek egy lekerdezesböl jönnek) es ott valamit elronthattam. A hibat nem talaltam meg, nem is tudom, de ujra bemasoltam, ujra atirtam amit kellett es most jo.
Szoval köszönöm szepen megegyszer, megiscsak jol müködik
Szep hetveget mindenkink!
-
Declare
őstag
Ma nem volt még kerdes, szoval bedobok egy nagyobb falatot, ha lesz ideje valamelyikötöknek, megköszönnem a segitseget
Csiszolgatom a macrokat, amiket összeallitottam a segitsegetekkel es azert mindig elöjön valami, de ezzel most nem birok.Még Fferi50 irta ezt nekem pont azt hiszem:
Dim kezdrng As Range, vegrng As Range, ws1 As Worksheet, celrng As Range, elsocim As String, gewerkrng As Range
Set ws1 = ActiveSheet
'megkeressük az elso S. Titel cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, After:=Range("G1"))
elsocim = vegrng.Address 'megjegyezzük a címét, mert itt kell leállítani
Do While Not vegrng Is Nothing
'megkeressük a kezdo sort / Titel /
Set kezdrng = ws1.Columns("G").Find(what:="Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlPrevious)
If kezdrng.Row < vegrng.Row Then 'ha kisebb mint az S. Titel helye, akkor összeadjuk
vegrng.Offset(0, -1).Formula = "=Sum(" & kezdrng.Offset(2, -1).Address & ":" & vegrng.Offset(-1, -1).Address & ")"
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
End If
'következo S. Titel
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az elsohöz, kilépünk
Loop
'megkeressük az elso S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Bereich", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, After:=Range("G1"))
elsocim = vegrng.Address: Set gewerkrng = Range("G1") 'megjegyezzük a helyét és a lehetséges elso cellát
Do While Not vegrng Is Nothing
'megkeressük az elso S. Titelt a Gewerkben
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlPrevious)
Set celrng = kezdrng
Do While Not kezdrng Is Nothing
If kezdrng.Row > gewerkrng.Row Then ' ha benne van a tartományban
If kezdrng.Row < vegrng.Row Then ' és oda tartozik, akkor bevesszük az összesítésbe
Set celrng = Union(kezdrng, celrng)
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" 'ha nincs benne, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" ' ha már az elozo Gewerkhez visszaértünk, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
'megkeressük a következo S. Titel cellát:
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=kezdrng, searchdirection:=xlPrevious)
Loop
Set gewerkrng = vegrng ' a Gewerk területet változtatjuk
'megkeressük a következo S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Bereich", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az elso találathoz, akkor végeztünk
LoopA lenyeg hogy egy tablazatban vannak fötetelek ("Bereich" es hozza kapcsoldo S(szumma). Bereich sorok. A "Bereich" es "S.Bereich" között vannak altetelek ("Titel" es "S.Titel"). A "Titel" es "S.Titel" között pedig feladatoknak az értékei/árai.
A makro azt csinalja, hogy megkeresi az "S.Titelt" es ezt a szöveg cellat felülirva beir egy SZUMM kepletet, felfele egeszen addig, amig nem jön a "Titel" cella (tehat tartomanyt szummaz). Igy szummazza a feladatok ertekeit. Ezt megcsinalja ujra es ujra, minden "Titel" es "S.Titel" között.
Ezutan megkeresi az elsö "S.Bereich" cellat, ode beir egy SZUMM kepletet, amibe a fölötte levö "S.Titel" cellakat adja össze egyesevel (nem tartomanyt, hanem ahol "S.Titel" van azt az egy cellat hozzaadja), egeszen addig, amig nem jön megint egy "S.Bereich". Ebbe a következö "S.Bereich" cellaba szummazza a következö "S.Titel"-eket es igy tovabb.Ez jol is müködik, egeszen addig, amig van több Titel/S.Titel es Bereich/S.Bereich. Most viszont volt egy olyan eset, hogy 1db Bereich/S.Bereich páros volt és itt a makro vegtelen ciklusba került.
Kb Latom hol lehet a hiba, de nem tudom, hogy lehetne kijavitani
Nem egyszerü a kerdes, föleg gondolom most elsöre atolvasva
, de ha lesz idötök valamikor, ez hasznos lenne, ha valahogy ki lehetne küszöbölni ezt a hibat.Csinaltam egy Excel tablat, hogy nez ki az adattabla a makro futtatasa elött, hogy nez ki utanna, illetve egy olyan lapot is ahol a futtatas elött van a a tabla es jelentkezik a hiba. [link]
Köszi elöre is ha lesz idötök, en is ezzel probalkozom most
-
Declare
őstag
Sziasztok!
Van egy ilyen sorom a makroban:
Selection.Offset(-4, 5).Value = Selection.Offset(6, 26)Ez beirja az "Offset(-4,5) cellaba az erteket amit kell (Offset(6,26) cella erteket). Hogy kell ezt atirni, hogy ne ertek legyen az excel tablaban, hanem az adott (offsetelt) cella hivatkozasa
Biztos hogy rosszul keresgelek a neten mert nem talalom sehol
mi ennek a neve? Link? -
Declare
őstag
válasz
Delila_1
#32812
üzenetére
Igen, müködik, lefut hiba nelkül, ezt irtam is, csak a vegrehajtando feladatok között van egy olyan, amit ha 2x egymas utan hajt vegre, nem jo eredmenyt ad. Az elso esetben (az if not mycell..." esetben tökeleesen müködik. A masodik "If Not mycell2" egy egyszerü feladat van, az is tökeletes, de lehet mar ott is gubanc lenne. A harmadik "If not mycell3" ahol ugyan olyan feladatai vannak, mint az elso ("If not mycell") esetben es az többször egymas utan is lefut ugyan azon a cellakon. Ezt az eredmenyböl latom, mert nem jo.
Szoval ezert irtam, hogy müködik, fut, megall, azt csinalja amit kell kb, de össze vissza es nem is minden esetben csak 1x hajtja vegre a müveletet. Ez bosszant, hogy nem tudom, hol lehet a hiba...
A makrod, amit csinaltal ((#32813) Delila_1) viszont ugy nezem most mar tökeletes lesz ehhez a feladatomhoz, szoval nagy köszönet megegyszer, ezzel a feladatom tökeletesen meg lesz oldva, egyszerübb is, de ettöl függetlenül a "hol a hiba" kerdesem a bemasolt makromra nagyon erdekelne
Igy viszont lett egy ujabb makro a kis "gyüjtemenyembe", amihez nyulhatok, ha valamit meg kell oldanom
-
-
Declare
őstag
Elakadtam egy gondolatmenetben
asszem megsem ertem teljesen a "loop" logikajat még.Ennek a makro resznek azt kellene csinalnia, hogy vizsgalja G oszlopt es ahol "Value1" erteket talal ott vegrahajtani par dolgot, ahol "Value2"-t ott mast, ahol "Value3" -t ott megint mast. Majd ha visszater a lap tetejen ujra az elsö "value2" ertekhez akkor vegzett. (atlathatosag kedveert leegyszerüsitettem, hogy a Value1,2,3 talalatokkor mit csinaljon, szoval elsö sorban a logikai hibat keresnem, nem alternativ makrot a feladatra
)Nagyjabol jol müködik, de megsem. En ugy kepzelnem, hogy ennek ugy kellene futnia, hogy elindul G1 töl, megy lefele folyamatosan, majd eleri a tabla aljat, visszaer G1 re megy, megy es amikor elerte megint a value2 t akkor megall.
E helyett ez többször egymas utan, össze vissza vegzi el a müveleteket. Egyedül az elsö If nel ( a mycell) müködik ugy ahogy kell. A többi nem. (szoval a makro fut, meg is all, de a vegrahajtando parancsokbol latom, hogy valami nem jo, valahogy többször visszater es vegrahajt utasitasokat ugyan abban a cellaban.....bogarasztam a netet, futtattam többfele probalkozast, amiben valtoztatgattam ezt azt, de sehogy sem jo
)igy elsö blikkre, meg tudjatok mondani, hol a logikai hiba?
Dim i As Integer, mycell As Range, myfind As Range, mycell2 As Range, elso As String, mycell3 As Range
Set myfind = Range("F:F").Find(what:=myValue2, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
If Not myfind Is Nothing Then
elso = myfind.Address
Do While True
Set mycell = Range("F:F").Find(what:=myValue2, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
Set mycell2 = Range("F:F").Find(what:=myValue1, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
Set mycell3 = Range("F:F").Find(what:=myValue3, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
If Not mycell Is Nothing Then
i = mycell.Row
Range("G" & i).Value = Range("=F" & i).Value
End If
If Not mycell2 Is Nothing Then
i = mycell2.Row
Range("G" & i).Value = Range("=F" & i).Value
End If
If Not mycell3 Is Nothing Then
i = mycell3.Row
Range("G" & i).Value = Range("=F" & i).Value
End If
Set myfind = Range("F:F").Find(what:=myValue2, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=myfind)
If myfind.Address = elso Then Exit Do
Loop
End If -
Declare
őstag
-
Declare
őstag
válasz
bsasa1
#32670
üzenetére
Szia!
Kiprobaltam, amit csinaltal es jonak tünik
Viszont egy baj van es ezt nem ertem, igazabol, miert
Range("F" & sor).FormulaR1C1 = "=Sumif(R2C[1]:R[-1]C[1],""S. Titel"",R2C:R[-1]C)"ennek ugye a kepletet kellene a cellaba irnia, nem pedig az erteket...de ennek ellenere az ertek kerül csak be a cellaba es nem a Summif keplet
ez miert van? Nekem mindenkepp a keplet kellene. -
Declare
őstag
válasz
Fferi50
#32680
üzenetére
Jogos! Ugye amikor valaki sokat foglalkozik valamivel, nem egyertelmü, mi az ami csak neki vilagos, meg mi az ami masnak is
Javitottam a pelda excelt. [link]
A lenyeg, hogy lefele haladva össze kellene adni mindig az "S. Titel" ertekeket az "S. Gewerk" cellakba. Aztan tovabb lefele (egy-egy ilyen "S. Gewerk" szumma ertek utan) ujabb "S. Titelek" jönnek....majd ujra "S. Gewerkbe" vannak ezek összegezve...majd ujra es ujra
Most az uj excel link, az ugy nez ki, ahogy ki kell neznie. (Nem mellesleg rövidebb es egyszerübb az excel pelda
) -
Declare
őstag
válasz
Fferi50
#32665
üzenetére
Ahamm...Thx!
Viszont most kerdeznek egy dolgot....ezzel sajna több, mint fel napja el vagyok akadva es nem talalom a megoldast
Ami kellene: Van F oszlop szamokkal es G oszlop cimkekkel. A G oszlopot kellene vizsgalni es ha abban "S. Gewerk" cimket talal, akkor melle az F oszlopba szummazni kellene az összes olyan cella erteket, ami mellett "S. Titel" szerepel. Ezt mindig S. Gewrk" töl a fölötte levö "S. Gewerk" ig kellene.
Tehat blokk szerüen felülröl lefele nezve, az also "S. Gewerk" mindig a fölötte levö "S. Titel" szummakat tartalmazza. Majd tovabb haladva a következö "S. Gewerk" alul a fölötte levö "S. Titel" ertekek szummajat tartalmazza.
Adott a macro (ezt nagyjabol pont Te irtad, csak alakitgatom, hasznalom, de most nem sikerül
)Sub Test()
Dim i As Integer, mycell As Range, myfind As Range, elso As String
Set myfind = Range("G:G").Find(what:="S. Gewerk", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
If Not myfind Is Nothing Then
elso = myfind.Address
Do While True
Set mycell = Range("G:G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
If Not mycell Is Nothing Then
i = myfind.Row
Range("F" & i).Formula = "=Sum(" & Range("F" & mycell.Row).Address & ")"
End If
Set myfind = Range("G:G").Find(what:="s. Gewerk", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=myfind)
If myfind.Address = elso Then Exit Do
Loop
End If
End SubEz most ugye azt csnalja, hogy megkeresi a "S. Gewerket" es melle beirja a szumma erteket a fölötte levö 1db "S. Titel" nek.....es ugye ezt kellene ugy alakitani, hogy ne csak a felette levö 1 db "S. Titel" szumma legyen, hanem a többi is, egeszen a következö "S. Gewerk" ig. Nem tudom ez igy megoldhato e
Dropboxba feldobtam egy egyszerüsitett tablat, ahol latszik mi van.[link]
Ha lesz ra valamikor idötök ranezni, ez ujabb nagyon hasznos segitseg lenne
-
Declare
őstag
válasz
Delila_1
#32642
üzenetére
+(#32643) Fferi50
Köszi, jo a tipp, amit irtok, viszont ilyenkor az ertek nem törlödik, hanem kicserelödik egy szoközre. Ez alapjaban veve jo, de volt már, hogy pont ez szivatott meg valamilyen keplet, vagy kereses vagy hasonlo közben (üres cellakra kerestem/szürtem, közben meg ugye nem voltak üresek...vagy hasonlo problema volt).
Szoval ha lehet ezt a szoközre cserelest nem eröltetem. Inkabb fusson le parszor a fent makro....igazabol megvan az a kenyelmes helyzet, hogy manapsag nyugodtan lehet pazarolni az eröforrasokat, hisz ezekhez bitang gyorsak ezek a gepek....igy nem 1 masodperc lesz a futas, hanem 2
-
Declare
őstag
válasz
Fferi50
#32636
üzenetére
Tegnap egesz nap makroztam es nap vegere kicsit bezsibbadt az agyam
..jogos, amit irsz, de egyben asszem meg is valaszoltad a kerdesem 
Ez maga a kod (azaz F oszlopban megkeresi az összes "Position" erteket es törli. Ezen kivül van meg 3 db különbözö szöveg, amit ugyan igy keresni es törölni kell es erre gondoltam, hogy valahogy & jellel hozzaadni, mint feltetelt....
Dim FoundCell As Range
Application.ScreenUpdating = False
Set FoundCell = Range("F:F").Find(what:="Position")
Do Until FoundCell Is Nothing
FoundCell.ClearContents
Set FoundCell = Range("F:F").FindNext
Loop(amugy az alapjat egy nagyobb makronak pont az kepezi, amiben Te es Delila_1 segitettetek....nagyon jo segitseg, majd azert megmutatom, mit alkottam belöle, csak ugy erdekesseg keppen. Sok mindent megtanulgattam a netes leirasok segitsegevel + a makroitokat felhasznalva
) -
Declare
őstag
Sziasztok!
Egy rövid kerdesem lenne (elsö körben
)Set FoundCell = Range("F:F").Find(what:="Position")ebben a sorban a "mit keressen" feltetelhez, tudok megadni több feltetelt? Tehat jelen eseteben a Position cellakra keres, de az kellene, hogy a Position es Text nevü cellakra keressen. Vagy ez ilyen formán nem megoldhato
(#32632) daddy9 azert azt erzed, hogy ez nem egy kis munka, amit itt szivessegböl kersz ugye?
Szerintem indulj neki guglival, macro felvetellel, aztan utanna kerdezz ha elakadsz 
en is igy csinalgatok mostmar egeszen komolyan összetett macrokat, felhasznalva az itt kapott nem kis segitsegeket is az egyes reszekhez -
Declare
őstag
Sziasztok!
Egy (szerintem) nagyon egyszerü kerdesem lenne most elsö körben (aztan lehet lesz majd most megint pár
)Ezt a kodot hogyan tudom ugy atirni, hogy a SUBTOTAL fv. mindig az adott oszlop 6-ik cellajatol vegezze el a müveletet? (Tehat a masodik fele, hogy
R[-5]Caz oké, viszont az elsö fele, azR[-10]Caz mindig az adott oszlop, felülröl 6-ik vellaja legyen)ActiveCell.FormulaR1C1 = "=SUBTOTAL(9, R[-10]C : R[-5]C)"mod: ja es az oszlopban vannak ertekek es vannak neha üres cellak is....de ez mindegy kell, hogy legyen, mindig a felülröl 6-ik cella kellene kezdö pontnak.
-
Declare
őstag
válasz
Fferi50
#31875
üzenetére
Valami nem jo. Csak az utolso esetben csinalja azt, amit kell, az összes többiben nem.Igy nez ki ugye a kod
Sub FormatText()
Dim i As Integer
For i = 1 To Range("A" & "100").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("H" & i & ":H" & i), "w") > 0 Then
Range("A" & i & ":H" & i).Select
Selection.Font.Name = "Calibri"
Selection.Font.FontStyle = "Italic"
Selection.Font.Underline = xlUnderlineStyleSingle
Range("E" & i).Value = Range("A" & i).Value & " " & Range("D" & i).Value
Range("E" & i).HorizontalAlignment = xlRight
Range("A" & i & ":D" & i).ClearContents
On Error Resume Next
If Range("H" & Selection.Row).Value = "w" Then Range("F" & Selection.Row).Formula = "=Sum(" & Range("F" & Selection.Row - 1).Address & ":" & Range("F" & Range("H" & Selection.Row).EntireColumn.Find(what:="p", LookIn:=xlValues, SearchDirection:=xlPrevious, lookat:=xlWhole).Row).Address & ")"
If Err <> 0 Then If Range("H" & i).Value = "w" Then Range("F" & i).Formula = "=Sum(" & Range("F" & i - 1, Cells(1, "F")).Address & ")"
On Error GoTo 0
End If
Next i
End SubFeltöltöttem egy par sorra leegyszerüsitett excelt a dropboxba, benne van ez a makro is [link] .
Ha esetleg valamikor lesz idötök/kedvetek ranezni, akkor ebben latszik, hogy hogy nez ki a nyers tabla, amin le kell futnia a makronak. Az utolso "tömbnel" jol müködik, ott jol szummaz. A többinel nem.
Ez most nem különösebben sürgös, a korabbiakkal böven kisegitettetek, ez csak majd a tovabb lepeshez lenne jo
-
Declare
őstag
Ahogy Delila_1 is irta, en is igy oldottam meg hasonlo problemat, ami Neked van
Makro rögzitese gombbal szepen meg lehet csinalni.
Nekem van egy ilyen gomb ( nyomtato valasztas)
Sub Nyomtato valasztas()
Application.Dialogs(xlDialogPrinterSetup).Show
End SubA nyomtatas gomb meg igy nez ki nalam (nyilvan a nyomtatasi terület, nalad mas lesz).
Sub Nyomtatas()
ActiveWorkbook.RefreshAll 'Frissiti az excel munkafüzetet /kihagyhato/
With ActiveSheet.PageSetup '/lap elrendezes/
.Orientation = xlLandscape
.CenterHorizontally = True
.CenterVertically = False
.PaperSize = xlPaperA4
End With
With ActiveSheet.PageSetup '/ egy lapra illeszti a nyomtatast + a lablecbe beteszi a lapszamot
.FitToPagesWide = 1
.RightFooter = "Seite &P/&N"
End With
Application.Dialogs(xlDialogPrinterSetup).Show '/nyomtato beallitas ablak
ActiveSheet.PageSetup.PrintArea = "$AU$1:$BI$22" '/nyomtatasi terület
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True, _
IgnorePrintAreas:=False
End SubNezd meg a makro rögzitest, meg nezd meg ami nekem van, szerintem talalsz benne hasznos dolgokat a sajat problemadhoz is
-
Declare
őstag
válasz
Fferi50
#31862
üzenetére
Tuti, most mar kiirja a szumm függvenyt, köszönöm Viszont, most kiprobaltam konkret szamokkal is es nem jo valami
Szoval ez a teljes kod:
Sub FormatText()
Dim i As Integer
For i = 1 To Range("A" & "55").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("H" & i & ":H" & i), "w") > 0 Then
Range("A" & i & ":H" & i).Select
Selection.Font.Name = "Calibri"
Selection.Font.FontStyle = "Italic"
Selection.Font.Underline = xlUnderlineStyleSingle
Range("E" & i).Value = Range("A" & i).Value & " " & Range("D" & i).Value
Range("E" & i).HorizontalAlignment = xlRight
Range("A" & i & ":D" & i).ClearContents
On Error Resume Next
If Range("H" & Selection.Row).Value = "p" Then Range("F" & Selection.Row).Formula = "=Sum(" & Range("F" & Selection.Row - 1).Address & ":" & Range("F" & Range("H" & Selection.Row).EntireColumn.Find(what:="p", LookIn:=xlValues, SearchDirection:=xlPrevious, lookat:=xlWhole).Row).Address & ")"
If Err <> 0 Then If Range("H" & i).Value = "p" Then Range("F" & i).Value = Application.Sum(Range("F" & i - 1, Cells(1, "F")))
On Error GoTo 0
End If
Next i
End Subaz "On Error..." tol indul, amit irtal. Azzal valami gubanc van.
Szoval azt kellene csinalnia, hogy amelyik sorban megtalalta a "w" erteket a "H" oszlopban, annak a sornak az "F" cellajaba szummazza az "F" oszlop cellainak ertekeit felfele, egeszen addig, amig "p" erteket nem talal a "H" oszlopban.
Aztan megy tovabb, megint talal egy "w" erteket, formaz, szummaz felfele....ez igy blokkonkent nagyon sokszor
Vagy valahogy mashogy kellene, hogy a "p" ertekek az I oszlopban legyenek mondjuk?
Aztan lassan befejezem, mert nem akarom teljesen kisajatitani a topicot
-
Declare
őstag
válasz
Delila_1
#31860
üzenetére
Kesz es szuper!!! (ez ilyenkor megirva mindig annyira egyszerünek es logikusnak latszik....
)Köszönöm! A következö 2 napi munkamat segitettel/segitettetek meggyorsitani es könnyebbe tenni! (meg valszeg kesöbbi hasonlo feladataimnal is ujra elökerül)
Majd esetleg meg ha erre a kodra ra tudsz nezni valamikor:
If Range("H" & Selection.Row).Value = "p" Then Range("F" & Selection.Row).Value = Application.Sum(Range("F" & Selection.Row - 1, Cells(Range("H" & Selection.Row).EntireColumn.Find(what:="p", LookIn:=xlValues, SearchDirection:=xlPrevious, lookat:=xlWhole).Row, "F")))Fferi50 segitett multkor ebben (irta le ezt nekem), szuperül müködik, csak annyi a bajom vele, hogy ez a szumma erteket kiirja a cellaknak (azaz szamkent ott az ertek amit összead). Ezt kellene ugy modositani, hogy ne szam erteket irja ki, hanem magat a szumma függvenyt.
Ez is jo most egyelöre, csak kesöbbi tovabbfejlesztgeteshez lenne szüksegem erre a modositasra.
-
Declare
őstag
válasz
Delila_1
#31857
üzenetére
Köszönöm!Viszont ez igy nekem nem igazan jo, hogy eger kattintasokra indul.
Olyat talaltam, hogy ilyen egyedi toolbarba lehet berakni egyedi gombot, ami mögött egy makro van (tehat fent ahol pl a mentes ikon van, oda egy sajat ikon). Elvileg a gomb resze mar megy, csak a makro nem.
Szoval csak a makro kellene, hogy all egy sorban valahol a kijelöles es ott lefuttatom a makrot. (amit irtam, beszur, masol, kepletet illeszt be....). Amit leirtam tegnap, az lenne egy makro, de azt picit atalkakitva több ilyen jellegü kis makrot szeretnek kesziteni.
Csak sajna ez nem megy, hogy valahol all a kijelöles, es akkor attol felfele/lefele szurjon be, a beszurt sorba ide meg oda irjon ezt meg azt
-
Declare
őstag
válasz
Declare
#31855
üzenetére
jajj, pici modositas....rosszul irtam...pont ez a bajom....
szoval amit leirtam az csak egy pelda arra, amikor mondjuk az excel 10-ik soraban all a kijelöles. Nekem ugye az kellene, hogy ez mindig müködjön es mindig az eppen aktualis sor föle szurja be az uj sort, masolja az eggyel fölötte levö sort es a keplet "
=M9*0,1is mindig az eppen aktualisan beszurt sor fölötti M cellaja szorozva 0,1 el (szoval ha epp a 120-ik sorban beszur egy uj sort a makro, akkor ennek a sornak az M cellajaba (M120)=M119*0,1kerüljön.Bocs ha kicsit hosszu, de belezsibbadtam picit ebbe
es pont ez a bajom, ez az aktualis sor dolodg -
Declare
őstag
válasz
Fferi50
#31853
üzenetére
Erre esetleg ötlet?[link] Ugy erzem, nem lehet nagyon nagy különbseg, de nem tudtam atirni, pedig probalkoztam a net segitsegevel
Meg meg egy kerdes ugy mindenkihez:
Szeretnek egy makro gombot kesziteni magamnak a következö müvelethez:
Valahol all a kijelöles egy sorban, cellaban (Pl: D10)
- Szurjon be egy teljes sort föle (ez az ujjonan beszurt sor lesz most már a 10-ik sor)
- Masolja ide a teljes 9 sort (azaz ami a beszurt sor fölött van)
- "K" cellájába (K10) be irja be, hogy "Gyár",
- M10 be irja be a következö kepletet=M9*0,1Probaltam most ezt is kisakkozni, egy egy rész össze is jön, de egy makroba nem sikerül megoldanom
A gombot mar meg tudtam csinalni, csak a makro hianyzik mögüle Esetleg erre egy megoldás?
-
-
Declare
őstag
Sziasztok!
Megint egy kis Macros kerdes
Van egy ilyen makrom:
Sub FormatText()
Dim i As Integer
For i = 1 To Range("A" & "1353").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("H" & i & ":H" & i), "w") > 0 Then
Range("A" & i & ":H" & i).Select
Selection.Font.Name = "Calibri"
Selection.Font.FontStyle = "Italic"
Selection.Font.Underline = xlUnderlineStyleSingle
Range("E" & i).Value = Range("A" & i).Value & " " & Range("D" & i).Value
Range("E" & i).HorizontalAlignment = xlRight
Range("A" & i & ":D" & i).ClearContents
End If
Next i
End SubA H oszlopban vannak megjelölt cellak (egy ha függvennyel ezt megcsinalom), amik "h" es "p" erteket tartalmaznak.
Lenyeg az, hogy a H oszlopot vizsgalja es ha annak egyik sorában "h" erteket talal, akkor elvegzi azokat a formazasokat, amiket kerek töle. Ezt kellene meg egy dologgal böviteni, hogy:- Az éppen vizsgált sorban, az F cellába összegezze az F oszlop értékeit felfele, egeszen addig amig a H oszlopban nem talal "p" erteket. (Tehat manualisan ezt ugy kell elkepzelni, hogy belekattintok a vizsgalt sor F cellajaba, nyomok egy SZUM fügvenyt es felfele kijelölessel felhuzom az összegzendö tartomanyt addig a sorig, amig a H oszlopban meg nem talalom a "p" erteket")
Aztan igy menne tovabb szepen lefele.
Remelem erthetö, mit szeretnek, nem tudom, mennyire bonyolult ez. Ha valaki segit, azt nagyon köszönnem ismet
mod: a macro alap reszeben mar segitettetek, meg tanacsoltatok is par egyszerüsitest, egyelöre direkt nem akartam egyszerüsiteni, mert igy könnyen atlatom mit csinal.....majd ahogy idöm engedi tanulgatom jobban a macrot es egyszerüsitem is
-
Declare
őstag
válasz
Declare
#31523
üzenetére
Megvan
nem er nevetni Sub copy()
Dim MyCol As String
Dim i As Integer
For i = 1 To Range("A" & "1353").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("H" & i & ":H" & i), "1") > 0 Then
Range("E13:AB14").copy Range("E" & i & ":AB" & i + 1)
End If
Next i
End Subha esetleg van egyszerübb megoldas es van valakinek ideje/kedve leirni, szivesen olvasnam el ettöl függetlenül, hogy ez most müxik
-
Declare
őstag
Sziasztok!
Segitettek mar többször, ujra lenne egy macros kerdesem
Van egy ilyen macrom, ami szepen teszi a dolgat, ahogy kell:
Sub myDeleteRows()
Dim MyCol As String
Dim i As Integer
For i = 1 To Range("A" & "1353").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("H" & i & ":H" & i), "Charge") > 0 Then
Range("A" & i).EntireRow.Delete
End If
Next i
End SubEzt szeretnem ugy atalakitani (csak nem sikerül, pedig szerintem nem lehet nehez
), hogy keresse a "Charge" ertekeket a H oszlopban es ha talal egyet az "i-edik" sorban, akkor masolja az "E13" - "AB14" tartomanyt az "E(i)" - "AB(i)" tartomany helyere Elöre is köszi
-
Declare
őstag
Sziasztok!
Egy kis macro s segitseget kernek.
Egy excel sheet -et szeretnek macroval PDF formatumba lementeni. Az lenne a cel, hogy a macrot elinditva, az excellel azonos mappába, mentse le maskent a tablazatot PDF formatumba ugy, hogy a neve az az excel fajl neve + egy szocska legyen ("_Laserteileliste")
Tehat:
"29.03.2016 XY Project.xlsm" (fajl nev) es ebböl a macro "29.03.2016 XY Project_Leserteileliste.PDF" et mentene el.
Van egy macro-m, ami majdnem ugy müködik, ahogy nekem kellene:
Sub Laserteile_PDF()
Dim FSO As Object
Dim s(1) As String
Dim sNewFilePath As String
Set FSO = CreateObject("Scripting.FileSystemObject")
s(0) = ThisWorkbook.FullName
If FSO.FileExists(s(0)) Then
'//Change Excel Extension to PDF extension in FilePath
s(1) = FSO.GetExtensionName(s(0))
If s(1) <> "" Then
s(1) = "." & s(1)
sNewFilePath = Replace(s(0), s(1), ".pdf")
'//Export to PDF with new File Path
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sNewFilePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Else
'//Error: file path not found
MsgBox "Error: this workbook may be unsaved. Please save and try again."
End If
Set FSO = Nothing
End SubEz az adott mappaba elmenteni az excel nevvel megeggyezö néven a pdf et. A baj az, hogy nem tudom, hogy lehet a plussz szócskát betenni a nevébe es ez felülirja, mindig a legutobbit.
Tudtok ebben segiteni?
Kicsit autodidacta modon tanulgatom is a macro keszitest, a netröl, ilyen alap szinten, kb ertem miröl van szo ebben a macroban, de azert sokminden nem tiszta -
Declare
őstag
Sziasztok!
Excelben hogy tudom azt megoldani, hogy bizonyos cellakban a szam formatum elvalaszto jele ne "," hanem "." legyen ?
Nem szeretnem a területi beallitasokat megvaltoztatni. Csak szövegformatumu mezövel tudtam megoldan, de szebb es elegansabb lenne, ha maradhatna szam formatum. Van erre mod szerintetek?
-
Declare
őstag
válasz
Fferi50
#27240
üzenetére
Ezt a programkod gombot soha nem hasznaltam, sorry. Sehol mashol nem irtam meg "programkodot" csak itt
legközelebb figyelek ra!Nem kicsit vagy jo, ezekböl igy összerakni latatlanba, mit büveszkedtem
es valoban ez a szitu.En mindig ugy irtam meg ezeket a függvenyeket, hogy ha "ne csinaljon semmit" akartam eredmenyül kapni, akkor szoközt raktam az idezöjelek köze (" "). Egesz egyszerüen azert, mert sok soros kepleteim vannak, amiket huzok jobbra, balra es ezekre mas kepletek hivatkoznak. Ha pl egy HA fv. eredmenye ez: " " akkor a ra hivatkozo keplet (pl egy FKERES) ennel a sornal siman csak nem csinal semmit. Ha viszont ezt: "" adna a HA fv. akkor az FKERES ezt adna eredmenyül ennel a sornal => #NV .
Innentöl viszont borulna az összes többi kepletem, szumma stb.
Jogos, hogy ez igy visszüthet ilyen esetben.
Ezek alapjan rossz ahogy csinalom es van valami banalisan egyszerü megoldas a fenti problemamra, vagy ha ilyen több egymasra hivatkozo kepletem van, akkor ez a jo megoldas, ahogy csinaltam?
-
Declare
őstag
válasz
Fferi50
#27232
üzenetére
Igen sor szamot
Sub prob()
Dim LastLine As Long
LastLine = Columns(1).Find("*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlPrevious).Row
Range("A353
" & LastLine).SelectEnd Sub
Ez nem müködik
Kijelöli ugyan ugy az egesz tablat, ameddig be van kepletezve, nem csak addig amig erteket ad a keplet.Ha van ötlet, miert, vagy valamit rosszul csinaltam, arra kivancsi vagyok, de igazabol, amit irtal elsö verzionak azzal tökeletesen megoldottam, amit szerettem volna
-
Declare
őstag
válasz
Fferi50
#27142
üzenetére
Neztem, de azt nem igazan tudom, hogy kellene müködesre birnom
ha megmutatjatok, megköszönöm es megnezem Dim LastLine As Long
LastLine = Columns(1).Find("*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlPrevious).RowA353 tol kellene FX ig kijelölni a területet. Hogy tudom ezt a fenti sorok utan megtenni?
A (#27128) Fferi50 HSZ-edben amit irtal, viszont tökeletesen müködik
annyi, hogy egy szoközt be kellett tennem a ket " köze Do While utcell.value = ""
-
Declare
őstag
Sziasztok!
Parszor segitettetek nekem mar pikk-pakk, amiert tovabbra is nagyon halas vagyok, szoval jöttem megint
Adott egy tablazat (A353:.F460). A tablazat A oszlopaban vegig keplet van (HA függveny, ami vagy erteket ad, vagy nem csinal semmit).
A tablazat hossza a munkafüzet egyeb dinamikus parameterei alapjan mindig valtozik (minidg A-F oszlopokban van, de a HA függveny van hogy erteket ad a 460as sorig, de van, hogy csak mondjuk 450 es sorig es akkor ugye a 450-460 üres es nincs ra a nyomtatasnal szükseg).A nyomtatas is makros, most igy müködik a nyomtatasi terület kivalasztasa:
Range("A353:.F353").Select
Range(Selection, Selection.End(xlDown)).SelectEzzel a baj az, hogy mindig az egesz tablat jelöli ki, ameddig a keplet van, akkor is ha az utolso par sorban eppen nincs ertek, mert a HA függveny nem ad erteket.
Kerdes:
Meg lehet ezt valahogy oldani, hogy nem a fenti kivalasztast alkalmazom, hanem a kivalasztott terület csak addig tartson, ameddig érték van a cellában, nem pedig függveny?
-
Declare
őstag
Itt van a problema Viszont megoldast most at kell gondolnom....A gond, hogy a HA függveny egy Pivot lekerdezesböl szedi az eredmenyt (101). Valamiert a Pivotbol szarmazo eredmenyt viszont " " irja a függveny szerkesztö ablakban is....ezert nem lesz szam nekem a cellaba, ahova beirja....
-
Declare
őstag
Igen en is ereztem, h kisse zavaros....jövö heten probalok egy egyszerü printscreent betenni A lenyeg, hogy van egy ertekem pl hogy 101, amit a HA függveny ir ki. Erre a 101 ertekre lenne szüksegem szamkent, hogy FKERES függvennyel tudjak mashol rakaeresni a 101 re. Ezt nem tudom megcsinalni, mert a HA függveny altal kiirt 101 azt nem erzekeli az FKERES, mert nem szam.
Makroval ha elötte egy iranyitott beillesztessel kimasolom a HA függveny ertekeit egy masik oszlopba, ugy meg lehetne csinalni, de egyszerübb lenne es biztos van ra valami megoldas, makro nelkül is.....szerintem
Ha igy sem erthetö, mondm jövö heten probalkozom egy egyszerü printscreennel
-
Declare
őstag
Hello!
Exceles kerdesem lenne:
Van kettö oszlopom, amibe HA függvennyel gyüjtöttem ki ertekeket (szamokat egymas ala). Egy következö tablazatba ezeket az etekeke szeretnem tovabb hasznalni, de nem tudom, mert nem ugy kezeli, mint egy szamot, hanem mint egy függveny erteket.
Szoval peldaul van egy HA fügvennyel kigyüjtött 101 ertekem. Ez ugye nem 101 hanem a HA függveny eredmenye. A következö tablazatba viszont szeretnem egy FKERES el a 101 szamhoz tartozo mondjuk 3. cella erteket kiiratni (egy szöveget). Ezt ugye nem tudom megtenni, mert az FKERES nem 101 et "lat" abban a cellaban, hanem a HA függveny erteket.
Remelem erthetö a problemam
Erre tud valaki megoldast? -
Declare
őstag
válasz
Delila_1
#24333
üzenetére
+ (#24334) m.zmrzlina : Amit Te irtal az viszont nagyon hasznos lesz masik makros dolgaimnal, ahol ugyan csak ugral a kepernyö
ez lett volna a következö kerdesem...amint lesz ra idöm, kiprobalom igy, ahogy irtad! Köszönöm szepen!!
Ereztem, hogy valami nagyon nagyon egyszerü dolog a megoldas
-
Declare
őstag
Sziasztok!
VB segitsegre lenne szüksegem, eleg alap kerdes szerintem, de nem talalom neten a megoldast
VB topic nem igazan pörög, azert kerdeznem itt.Olyat hogy tudok csinalni (ha jol emlekszem lehet), hogy a VB müveletek között valami ne jelenjen meg a kepernyön, de attol meg lefusson. Arra gondolok, hogy csinalok felvetellel egy egyszerü dolgot (pl egy gomb megnyomasara jelöljön ki 2 cellat es törölje ki), de azt akarom, hogy a köztes lepesek ne latszodjanak (azaz törölje ki a cellakat, de ne ugy, hogy ugrik a kepernyö a cellekra amiket kijelölök, majd törli öket).
Kisse bonyolultan irtam le de szerintem igy erthetö mi a bajom
Ezt a fenti problemat felvetellel igy tudtam megoldani
eleg tre tudom, de igy megy Sub Optionsfeld3_Klicken()
Range("C80: C91").Select
Selection.ClearContentsEnd Sub
Ha valaki tud segiteni azt nagyon köszi
köszi szepen! Müködik.
)
en is igy csinalgatok mostmar egeszen komolyan összetett macrokat, felhasznalva az itt kapott nem kis segitsegeket is az egyes reszekhez 
Új hozzászólás Aktív témák
- Eredeti Lenovo 230W töltők - 4X20Z83995
- GYÖNYÖRŰ iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3847, 96% Akkumulátor
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3618,96% Akksi
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3893, 94% Akkumulátor
- BESZÁMÍTÁS! Gigabyte Z37 i5 9600K 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA ADATA 600W
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest