Belefutottam egy hibába, ha duplikálom a sort makróval, amiben védett cellák vannak (bármit lehet, csak kijelölni nem), ott a képletet nem viszi át. Formázás átmegy tökéletesen, viszont az összes képlet hiányzik.

És persze Run-Time error '1004'
A módosítani kívánt cella vagy diagram védett lapon van. Ha módosítani szeretné ezt az elemet, oldja fel a munkalap védelmét. Lehet, hogy ehhez meg kell adnia egy jelszót.

Ez a makró, amit használnék a sor duplikáláshoz:
Sub Duplicate()
'
' Duplicate Makró
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
' Billentyűparancs: Ctrl+d
'
End Sub

Van valami egyszerű módja kiegészíteni ezt, hogy védett cella függvényt is copyzzon? Cella védelem csak amiatt van, hogy még véletlenül se tudjak rákattintani és kitörölni a képleteket, és ne kelljen minden alkalommal ellenőrizni, hogy mindegyik megvan e még.

ActiveSheet.Protect Password:="JajDeMilyenTitkosJelszó", UserInterfaceOnly:=True

Ezt a sort tedd makró elejére, mert ez engedélyezi makróból az egyébként tiltott műveletedet.

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

Helló!

Teljesen hülye vagyok a témában. Gombnyomásra kellene egy cella értéket átmásolni néhány másik cellába. (egy paraméter lista egyedileg állítható elemeket tartalmaz, de gombnyomásra szeretném, ha az összes ugyan azt az értéket venné fel).

Kiraktam a gombot, megnyitottam a hozzá tartozó kódrészletet, de hogyan tudok cellára hivatkozni, értéket adni?

Függvény kezelésbe jó vagyok, de makróval életemben nem foglalkoztam.

Építésztechnikus. Építőmérnök.

Sub Paste_Values_Examples()
'Set the cells' values equal to another to paste values

'Set a cell's value equal to another cell's value
Range("G1").Value = Range("A1").Value
Range("G5").Value = Range("A1").Value
Range("D1:D3").Value = Range("A1:A3").Value


End Sub

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

Teljesen érthető, köszi.

üdv, föccer

Építésztechnikus. Építőmérnök.

Egy másik módszer.
Ha jól értem, egy listából választod ki a paramétert, és ezt akarod másik cellákba másolni.

A B5 cellában van egy érvényesítés, amiből kiválasztod a megfelelő paramétert. A laphoz rendelt makró ezt bemásolja a Range(...) felsorolásában lévő cellákba, mikor a B5-ben változtatsz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Target.Copy
Range("D3,D5,D7,D10").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
End Sub

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

Hello!

Van olyan opció Excelben, hogy egy hálózaton lévő, megosztott fájlban az adott felhasználó csak az adott oszlopot lássa? Esetleg valami ehhez hasonló opció, hogy az oszlopot látja csak a mások által beleírt tartalmat nem!

Tx

Spóroljunk! Kerül, amibe kerül!

Szia!

Makróval elrejted a többi oszlopot, amikor a felhasználó belép.

Üdv.

de akkor a többi felhasználó sem látja, nem igaz?
Úgy kéne hogy valamelyik oszlopot mindenki látja valamelyiket csak az egyik nem stb.
És egyszerre módosítható, tehát meg lenne osztva.

Ilyen opció létezik makróval vagy bárhogyan?

köszi

Spóroljunk! Kerül, amibe kerül!

Makróval lehetne megoldani hogy a felhasználó nevéhez kapcsolódóan mutatja az adatokat/oszlopkat.
Bekéri a felhasználó nevét és úgy alakítja át a táblázatot amit láthat.

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

A lap alján van egy zip egy jó kiindulás lehet

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

sejtettem, hogy nem lesz egyszerű

köszönöm

Spóroljunk! Kerül, amibe kerül!

És nyomtatást hogyan tudok kérni makróból, egy másik munkalapra, aminek a neve "recept"?

Van egy oldal, ahol beállítom a paramétereket, és egy másik lapon állítom össze a teljes formanyomtatványt. Ezt akarnám kinyomtatni, ha lehet, a paraméterező lapról. (tudom, +2 kattintás lenne, de jelenleg többszáz oldalról lenne szó.

Köszi.

üdv, föccer

Építésztechnikus. Építőmérnök.

Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2).Value
b = b + 1
For a = 2 To b
Sheets("névsor").Select
Range(Cells(a, 2), Cells(a, 2)).Select
Selection.Copy
Sheets("Sima").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Select
Range("C3").Select
Selection.ClearContents
Range("A2").Select
End Sub

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

Törölve.
Az előző jobb megoldás.

[ Szerkesztve ]

Üdvözletem mindenkinek. Szeretnék egy kis segítséget kérni, képen látható összegek RON-ban értendők, COD -utánvét összegek. Amennyiben beírom a kerekítésnél a -1-es értéket akkor van olyan összeg amit felfele kerekít, holott lefele kerekítés lenne szükség. Tudtok ebben segíteni?

(#35369) Delila_1 - jó lesz a "0":

Köszönöm szépen a segítséget

[ Szerkesztve ]

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

Kicsit kevesebb Select utasítással

Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2) + 1
For a = 2 To b
Sheets("névsor").Cells(a, 2).Copy
Sheets("Sima").Range("C3").PasteSpecial xlValues
Application.CutCopyMode = False
Sheets("Sima").PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Range("C3").ClearContents
End Sub

Lehet, hogy több lap együttes nyomtatásáról van szó.

Sheets(Array("Munka1", "Munka2", "Munka3")).Select
SelectedSheets.PrintOut Copies:=1

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

=kerek.le(O2;0)

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

Egyetlen egy lapnak a nyomtatasarol van szo. Atallitom a parametereket, a formanyomtatvany megcsinalja a szamitasokat es nyomtathato A4 formatumban jeleniti meg a dolgokat, kvazi csak nyomtatni kell. Majd vissza korabbi lapra, parametereket allitani ellenorizni legpodulokat allitani minden biz-baz technologusi dolgot megcsinalni majd nyomtatni. Es ezt meg jo sokszor.

Kosz a valaszolat este atnezrm.

Építésztechnikus. Építőmérnök.

Sub nyomtatasMunka2()
Sheets("Munka2").PrintOut Copies:=1
End Sub

Egy másik lapról nyomtatom a Munka2 lapot. Nem kell átlépni a Munka2-re, így vissza sem. Arra a lapra tegyél ki gombot ehhez a "komoly" makróhoz, ahol a változtatásokat végrehajtod.

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

Ha nem ismerem a kulcsszavakat, akkor cseszhetem. Valamikor programoztam object pascalban, szóval megértem, csak a kódolást magát nem ismerem.

Köszi, pont ilyen egy sorosra gondoltam, hibátlan lesz.

üdv, föccer

Építésztechnikus. Építőmérnök.

Érdemes makrót rögzíteni a programozás megismeréséhez.
Utána erőteljes gyomlálás szükségelteik, mert tele rakja Select utasításokkal, meg olyanokkal, amik alapértelmezésben be vannak állítva..

Pl. rögzítsd, hogy félkövérre állítod egy cella karaktereit. Az esetleges több soros makróból elég 1 sor:

Range("D5").Font.Bold = True

[ Szerkesztve ]

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!

Adottak az alábbi cellatartalmak szöveges formában:
A1 "Budapest"
A2 "1165"
A3 "Újszász utca"

A cél hogy a B1-es cellában a következő legyen olvasható:

"1165 Budapest Újszász utca"

Ez megvalósítható valmilyen képlette?
Előre is köszönöm a segítséget

Üdv.: Laci

Ha az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ --

=A2&" "&A1&" "&A3

Vagy

=Összefűz(A2;" ";A1;" ";A3)

[ Szerkesztve ]

Építésztechnikus. Építőmérnök.

Köszönöm!

Ha az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ --

Szevasztok!

Kérnék szépen segítséget!

Van egy olyan feladat megvan benne adva az, hogy a "A személyi adatok munkalapon lévő ponthatárok alapján sorold be a munkatársakat"

A ponthatárok:

0 Gyenge munkatárs
41 Fejlesztendő munkatárs
66 Átlagos munkatárs
86 Kiemelkedő munkatárs

ezt ha függvény egybeágyazásával hogy tudom megcsinálni vagy ha ezzel nem akkor mivel, hogyan?

A szerkesztőlécen látod a C2 cella képletét.

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!

Segítséget szeretnék kérni.

Beállitottam,hogy egy bizonyos lekérdezést meghívjon az excel sql szerverről,ezzel minden oké.

Viszont szeretném,hogyha az első oszlop alapján vlookuppal mellékeresne a táblázat bizonyos kategóriákat,de ebből a táblázatból nem tud dolgozni.
Próbáltam úgy,hogy VALUE képlettel átrakom egy másik oszlopba és úgy keresem mellé a kategóriát ,ami félig meddig működött is,de vannak olyanok is ebben az oszlopban,amik 0-val kezdődnek,pl 022221, azt pedig value képlettel már 22221-re változtatja,így meg nem talál már rá természetesen.

Van olyan képlet,ami megtartja a teljes számsort úgy,hogy utána értékként is lássa?

Köszi!

A valósággal az a gáz, hogy nincsen hozzá háttérzene...

ha szöveg és szám formátumok között akarsz keresni különösebb segédoszlopok nélkül fkeressel vkeressel vagy indexholvannal, akkor én az ÉRTÉK és a FIX függvényt ajánlom.

példa: ha az oszlop amiben keresel számformátumot tartalmaz, de neked szövegként van meg az érték amit keresel, akkor =FKERES(ÉRTÉK([keresett adat]);[keresési tartomány];[oszlop];[pontos/közelítő])

ugyanez fordítva, ha a tartomány szövegként van, de neked értéked van amit meg kellene keresni, akkor =FKERES(FIX(([keresett adat];0);[keresési tartomány];[oszlop];[pontos/közelítő])

így nem kell segédoszlopozni.

nem teljesen értettem a kérdésedet, hogy mi a pontos probléma, de ezen szerintem el lehet indulni

Na FKERES-re nem is gondoltam, Köszi!

Az utolsó paraméter (1, amit el lehet hagyni a közelítő keresésnél) a lényeg.

Szívesen.

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

Köszönöm szépen, az ÉRTÉK-et betettem az FKERES mögé, ahogy írtad és most megtalálja.

Köszi!

A valósággal az a gáz, hogy nincsen hozzá háttérzene...

Sziasztok,

Lenne egy problémám amivel nem tudok megbirkózni és szeretném a segítségetek kérni.
A megoldandó feladat a következő lenne:

Adott egy Excel állomány amiben 3db munkalap (pl.: XX , YY , ZZ) található.
Az "XX" és "YY" munkalap is tart valahányadik sorig (pl.: az "XX" 10.-ig, a "YY" 3.-ig) és bővülhet.
A "ZZ" munkalap az előző két munkalapnak az összegzése lenne. Tehát először az "XX" munkalap (pl. 10db sora) majd a "YY" munkalap (pl.: 3db sora) lenne olvasható egymás alatt.
Ha az "XX" munkalap bővülne akkor is ezt követően kellene a "YY" munkalap értékeinek kerülnie.

A számomra megoldhatatlan feladat az "XX" munkalap éppen aktuális utolsó nem üres sorának megtalálása és a második "YY" munkalap beolvasásának ehhez történő igazítása.
Az már csak gondolom bonyolítja a feladatot hogy az első 3db sor a fejlécé, tehát erre nem lenne szükség.

Valakinek lenne valami ötlete vagy megoldása?

Köszönettel,
patesz20

szia,

a ZZ lap A1 cellától ezt a képletet írd be tetszőleges (sok) sorba:
=HA(SOR()<=DARAB2(XX!A:A)-3;INDIREKT("XX!A"&SOR()+3);HA(SOR()<=DARAB2(XX!A:A)+DARAB2(YY!A:A)-6;INDIREKT("YY!A"&SOR()-DARAB2(XX!A:A)+6);""))

ha a "B" oszlop is kell, akkor a B1-től lefelé ezt írd be:
=HA(SOR()<=DARAB2(XX!A:A)-3;INDIREKT("XX!B"&SOR()+3);HA(SOR()<=DARAB2(XX!A:A)+DARAB2(YY!A:A)-6;INDIREKT("YY!B"&SOR()-DARAB2(XX!A:A)+6);"NaN"))

[ Szerkesztve ]

Sziasztok egy kis segítséget kérnék még kezdő vagyok.

A problémám a következő adott az A oszlop nevekkel a D az árakkal, a legolcsobb és legdrágább nevét kéne megadni egy másik oszloban. A min és max fügvényel meg van hogy, mik azok, az áruk látszik, de sem az fkeres, sem cím, sem a lookup al nem tudom a nevet megjeleniteni, midig hibát ir ki név vagy érték stb.

Segítséget előre is köszönöm.
Üdv. Bivaly

[ Szerkesztve ]

Keress valami egyszerűt és tedd bonyolultá :)

Index, hol.van fv?

[ Szerkesztve ]

Mint emlitettem kezdő vagyok. igy nem értem a kérdésed.

de erröl lenne szó:
[link]

[ Szerkesztve ]

Keress valami egyszerűt és tedd bonyolultá :)

Du gépközelbe leszek és összedobom neked. Indirekt, sor és hol-van függvénnyel megoldható, ha jól sejtem. Ilyen keresést még nem csináltam, de szerintem megoldható vele.

Építésztechnikus. Építőmérnök.

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

Keress valami egyszerűt és tedd bonyolultá :)

A G2 és G3 cellák képlete

=INDEX(A:A;HOL.VAN(MIN(D:D);D:D;0);1)
=INDEX(A:A;HOL.VAN(MAX(D:D);D:D;0);1)

A H2 képlete látszik a szerkesztőlécen. A H3-nál csak a MIN helyett kell MAX-ot írnod.

[ Szerkesztve ]

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

Ezer köszönet és hála ha nagy leszek meghálálom

Keress valami egyszerűt és tedd bonyolultá :)

Szívesen.

Olvasd el a súgóban a függvényekről írtakat. Jobb úgy alkalmazni, ha érted is, melyik hogy működik.

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!

Már minden lehetséges netes forrást végigkutattam, de nem jövök rá, hogy miért nem működik a következő makró (bemásolom az egészet, a második nagybetűs komment sor alatti sorra dobja a hibát):

Sub EllMasol()
'
Dim ControlNeve, LapNeve, osszlap, SegLap As String
Dim fso As Object
' Dim ControlFile As Workbook
Set fso = CreateObject("Scripting.FileSystemObject")
fileExists = fso.fileExists("C:\Users\Desktop\Test\journals.xlsx")

'csak ebben a modulban:
Dim EllSor, EllOszl, JelSor, HibaOszl As Integer
Dim OszKonyvt, OszNeve As String
Dim OsszSor, OsszOszl, OsszOszlMax As Integer

' On Error GoTo Errorcatch

ControlNeve = ActiveWorkbook.Sheets(1).Range("AW1")

'EZ SEM MŰKÖDIK, DE EZT KIKERÜLTEM
' Set ControlFile = Workbooks(ControlNeve)

osszlap = Workbooks(ControlNeve).Worksheets("Összesítő").Name
SegLap = Workbooks(ControlNeve).Worksheets("Segéd").Name


If Environ("username") = azennevem Then 'Ide eredetileg az itthoni felhasználónevem,
'otthon
OszKonyvt = azenkönyvtáram 'ide meg az adott könyvtár neve van beírva...
Else
'benti
OszKonyvt = ActiveWorkbook.Sheet(1).Range("AY1")
End If

OszNeve = Workbooks(ControlNeve).Sheets(1).Range("AZ1")
EllSor = Workbooks(ControlNeve).Sheets(osszlap).Range("IJ1")
EllOszl = Workbooks(ControlNeve).Sheets(osszlap).Range("IK1")
JelSor = Workbooks(ControlNeve).Sheets(osszlap).Range("IL1")
HibaOszl = Workbooks(ControlNeve).Sheets(osszlap).Range("IM1")
fileExists = fso.fileExists(OszKonyvt & OszNeve)

Workbooks.Open (OszKonyvt & OszNeve) 'Megnyitja
Windows(OszNeve).Activate
Sheets(1).Activate
OsszSor = Range("CJ31")
OsszOszl = Range("A" & OsszSor)
OsszOszlMax = Range("A" & OsszSor + 1)

Range(Cells(OsszSor + 10, 4), Cells(OsszSor + 18, 4)).Copy 'Kimásolja

'ENNÉL A SORNÁL HIBAÜZENET: "Run-time error '1004'. Application-defined or operation-defined error." MIÉRT?
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, HibaOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range(Cells(OsszSor + 20, OsszOszl), Cells(OsszSor + 18, OsszOszlMax)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range(Cells(OsszSor, OsszOszl), Cells(OsszSor + 8, OsszOszlMax)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range(Cells(OsszSor + 10, OsszOszl), Cells(OsszSor + 19, OsszOszlMax)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(JelSor, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Exit Sub
'Errorcatch: MsgBox Err.Description
End Sub

A Debugnál szépen kiírja az összes változó nevét, (fájl, sorok-oszlopok száma), tehát nem azokkal van baja...

Köszönöm szépen előre is a segítséget!

[ Szerkesztve ]

"You may say that I'm a dreamer But I'm not the only one"

Próbáld így:

Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues

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

Mindig mondom, hogy istennő vagy! Most az első copy-t bemásolja!

A másodiknál viszont ugyanaz a hiba, ha átírom a Te formuládra, ha hagyom az enyémet akkor is!

'Az alábbi másolást-beillesztés megcsinálja
Workbooks(OszNeve).Sheets(1).Range(Cells(OsszSor + 10, 4), Cells(OsszSor + 18, 4)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Köszönöm! ♥

Workbooks(OszNeve).Sheets(1).Range(Cells(OsszSor + 20, OsszOszl), Cells(OsszSor + 18, OsszOszlMax)).Copy
'ENNÉL A SORNÁL HIBAÜZENET: "Run-time error '1004'. Application-defined or operation-defined error." MIÉRT?
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial xlPasteValues
'MEG ENNÉL IS:
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Bocs, nem leszek gépnél egy darabig, úgyhogy nem sürgős!

[ Szerkesztve ]

"You may say that I'm a dreamer But I'm not the only one"

A Range a hiba. Vedd ki, a hozzá tartozó zárójelekkel együtt.

A Range utasítás szöveges értéket vár, pl. "A1". A Cells(sor, oszlop) viszont 2 számot ad, ezt nem veszi be a Range.

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

A koordináta változóid fele variant, fele integer. Szándékos?
Van "1" nevű munkalapod?
Hol index-szel (sheet(1)), hol névvel (sheets(1)) hivatkozol rá. Szándékos?
A range-n belül a cells biztos, hogy nem 0. oszlopra hivatkozik? (Osszoszl, Osszoszlmax nem nulla?)

[ Szerkesztve ]

Köszönöm poffsoft!

Nagyon szépen köszönöm!
Ez hatalmas segítség volt!
Még valami nem teljesen jó, mert a második táblázat utolsó kitöltött során még kihagyja.
Most értelmezem hogy mit is csinál pontosan a függvény és megpróbálom módosítani.