Nagyon-nagyon szépen köszönöm!

Máskor is kérhetek Tőled segítséget, ha elakadok?

A női mell a bizonyíték arra, hogy a férfiak igenis tudnak egyszerre két dologra koncentrálni.

Szívesen.
Természetesen, azért van ez a fórum. Aki éppen itt van, válaszol.

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

Úgy látszik, én érek rá legjobban.

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

Másik printerhez más beállítások lehetnek szükségesek (pl. a fej nem egyforma mértékben tud oldalra mozdulni).

A szaggatott vonalakat akkor is megkapod, ha a Nézet menüben az Oldaltörés megtekintését választod, nem kell előbb a Nyomtatási kép menübe sétálnod. Ebben a nézetben még feltűnőbbek is az oldal határok, vastag kék szaggatott vonallal vannak jelölve. Ezeket az egérrel áthúzhatod máshova, akkor folyamatosak lesznek, jelölve, hogy kézzel beállított törésvonalak. A Beszúrás/Oldaltörés menüponttal is tudsz új törésvonalat bevinni.

A kézi törést úgy tudod megszüntetni, hogy alá (vagy függőlegesnél mögé) állsz, és a Beszúrás menüből az Oldaltörés eltávolítását választod.

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

Először is köszönöm a válaszod!

Próbálkoztam az oldaltöréssel is, de ha ott manuálisan elhúzom a szaggatott vonalat, az excel az oldal 100%al játszik, hogy ráférjen..., így van hogy más méretű, ha viszont itt is sorokat szúrok/tölrlök, más gépen szintén elcsúszik
Most úgy állok, hogy mindig összetördelem, pdf be nyomtatom, de ez nem végleges megoldás, mert van mikor excelben kell küldenem, én nem feltétlen olyan személynek, akinek ha azt mondom, hogy nézze át és esetleg tördelje újra, fogja tudni mit jelent, hanem csak a nyomtatásra kattint és szid hogy sz@rt küldtem...

Szia!

Beállíthatod a nyomtatási képnél, a Beállítások Oldal fülén, hogy x oldal széles, és y oldal magas legyen, azt valószínűleg a másik printer is respektálja.

Szintén a nyomtatási képnél bekapcsolhatod a margókat, ahol az egyes oszlopok szélességén is könnyen állíthatsz.

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

Eszembe jutott egy egyszerű megoldás. Telepítsd fel azt a printert, amelyik arra a gépre van téve, ahova átadod a fájlt. Ezzel beállíthatod a töréseket.
Míg meg nem szokod, hogy váltani kell a nyomtatók között, biztosan lesz néhány bosszús perced.

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 $-os adatoknál egy üres oszlopba beviszed a lenti képletet, és lemásolod az adataid mellé:
=ÉRTÉK(JOBB(A1;HOSSZ(A1)-1))
Ezt már tudod összegezni, és irányítottan, értékként rá is illesztheted az eredeti, $ jeleket tartalmazó oszlopodra.

Az 1,804.00 típusú adatokat 3 lépésben, cserékkel állíthatod magyar formátumúra.
1. Mit cserélhez pont, mire cserélihez pl. &
2. Mit cserélhez vessző, a mire cseréli rubrikát üresen hagyod.
3. Mit cserélhez &, mire cserélihez vessző

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

És hogyan tudom megszámoltatni egy másik cellába, hogy ugyanazon értékből hány darab van?

Sziasztok!

Két oszlopot szeretnék összehasonlítani úgy, hogy a 3. oszlopba írja ki, mutassa meg, hogy miben tér el az elsőtől a második. Ha semmiben, akkor írja ki, hogy nincs eltérés!

Köszi!

Freedom, Nature, Love & Music

Még a szűrés előtt a taretományod alá beírod

=részösszeg(2;tartomány)

A 2 egy függvényszám, ami azt mondja meg a függvénynek, hogy a kijelölt tartomány darabszámát kéred. Ez azután mindig a szűrésnek megfelelő tartomány darabszámát adja.
Nézd meg a súgóban a részösszeg leírását, más függvényszámokkal más adatokat ad meg a ugyanarról a tartományról.

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

Az, hogy miben tér el a két oszlop, a tartalmuktól függ. A Ha függvénnyel kérheted az egyenlőség, ill. a NEM egyenlőség megmutatását.

=HA(A1=B1;"Azonosak";"Eltérnek")

Ha összegek vannak a két oszlopban, akkor

=Ha(A1>B1;"'A' nagyobb";ha(B1>A1;"'B' nagyobb";"Egyenlőek"))

Ez tulajdonképpen szövegek összehasonlítására is jó, ott a "nagyobb" azt jelenti, hogy az ABC rendben később szerepel.

[ 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.

Köszi, de én inkább olyan megoldásra gondoltam, hogy mondjuk:

A B
12345678 123456789xx

és itt láthatóan a B oszlop a 9xx-ben tér el. Ez most csak egy példa. Mondjuk arra gondoltam, hogy valahogy "kivonnám" B oszlopból A oszlopot és a maradék a különbség.
Ez megoldható?

Köszi!

Freedom, Nature, Love & Music

Ez pedig adódik a HA függvényből.
=ha(A1=B1;"egyforma";B1-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.

Kiválóan írsz, de nem olvasol

Erről már sokszor volt szó itt a fórumon. Kijelölöd a tartományt, másolod (Ctrl+c), átlépsz oda, ahova az értékek kellenek, Szerkesztés/Irányított beillesztés/Értéket.

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

Húú, köszi, köszi, köszi!!!

Freedom, Nature, Love & Music

Hali!

Tudom, hogy régen volt, de volt egy érdekes kérdésed a "villogó cella" témakörben.

Munkafüzet1 - Munka1 (Code)

Public Most_villog As Boolean

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A1") = "ok" And Most_villog = False Then
Call Szincsere
Most_villog = True
ElseIf Range("A1") <> "ok" And Most_villog = True Then
Call Villogas_ki
Most_villog = False
End If

End Sub

Munkafüzet1 - Module1 (Code)

Public Idozites As Double

Sub Villogas_ki()
Range("A1").Interior.ColorIndex = xlAutomatic
Range("A1").Font.Color = RGB(0, 0, 0)
Application.OnTime Idozites, "Szincsere", , False
End Sub

Sub Szincsere()
If Range("A1").Interior.Color = RGB(255, 0, 0) Then
Range("A1").Interior.Color = RGB(0, 255, 0)
Range("A1").Font.Color = RGB(255, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 0, 0)
Range("A1").Font.Color = RGB(0, 255, 0)
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End Sub

Ha az A1 cellába beírod hogy "ok" akkor villog a cella háttere, meg a betűszín, egyéb esetben meg nem. Bár a VB nem az erősségem, de ez olyan jó feladat volt, hogy nem bírtam ellenállni, hogy egy kis kitérőt tegyek
Nyílván ha szép elhalványodó, színátmenetes villogást szeretnél, akkor azért ennél több kell. Azonban egyetértek Delila_1-el, miszerint felesleges, jobb a hagyományos módszer.(ne villogjon, csak legyen más színe).

Fire.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Klassz!

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

Megihletett a makród, írtam egy egyszerű színátmenetet. Persze semmi értelme, mert lefogja a memóriát. A Szincsere makrón változtattam egy keveset.

Sub Szincsere()
If Range("A1") = "ok" Then
For a = 235 To 50 Step -1
Range("A1").Interior.Color = RGB(a, 0, 0)
Range("A1").Font.Color = RGB(a + 20, a + 20, a + 20)
Next
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
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.

Hali!

Tudtam, hogy nem tudod megállni, hogy meg ne írd a színátmenetet.
Természetesen kifogástalanul működik, csak hát ugye valóban semmi értelme.
(Mármint a villogosdinak). Ez olyan mint a 12 kőmíves meg a Déva vára, végül is megoldották ott is a feladatot, csak azért nem kellene embereket a malterba keverni.

Annyi értelme azonban van a makrónak , hogy így megoldható ha ütemezett feladatokat kell elvégezni, azaz pl óránként el kell menteni a táblát, átszámolni, összetetteb esetben (pl a tábla egy adatbázishoz van kapcsolva) akkor óránként beolvasni stb.

Fire.

UI: Visszaolvasva látom, hogy többnyire Te segítesz a legtöbbet az érdeklődőknek, értehtően, tisztán, és türelmesen magyarázod el a dolgokat.
Megkérdezhetném, hogy honnan van ez a hozzáértés?(suli, magadtól, szülők révén, stb)

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Hali!

Microsoft Date annd Time Picker segítségével adok meg dátumot bizonyos cellákba.
Viszont sok cella révén, minden cellához létre kell hoznom egy vezérlőt!
Nem lehetne egy vezérlőt hasznlni, ami az aktuális cellához csatlakozna?

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Hali!

Remélem jól értelmezem a kérdésed, ha igen akkor pl így

Munkafüzet1 - Munka1 (Code)

Private Sub DTPicker1_Change()
Range("C10:C20").Value = DTPicker1.Value
Selection = DTPicker1.Value
End Sub

DTPicker1 - MS Date and Time objektum
DTPicker1_Change() - akkor hajtódik végre amikor kiválasztasz egy dátumot
Range("C10":"C20").Value = DTPicker1.Value - egy tartományt tölt fel a kiválasztott dátummal(azért tettem idézőjelek közé a kettőspontot, mert különben egy tapsikoló smiley lenne ott)
Selection = DTPicker1.Value - az épp kiválasztott a cellát vagy cellákat tölti fel a kiválasztott dátummal

Remélem erre gondoltál

Fire.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Van egy kódom pl.: 12345-789-00 egy A1 cellában. Ebből egy B1 cellába szeretném ezt kapni: 12345-00.

Hogyan kellene?

Köszi!

Freedom, Nature, Love & Music

=bal(A1;6)&jobb(A1;2)

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

Nekem Calendar vezérlőm van, annál elég a

Private Sub Calendar1_Click()
Selection = Calendar1.Value
End Sub

Ez az aktív cellába, és a kijelölt területre egyaránt beviszi a kiválaszott dátumot.

Az előző kérdésedre: magam tanulgatok, és egy ideje különböző fórumokon járva ismerkedem az Excel rejtelmeivel.
Jó, hogy most megjelentél, mert a régebbi "válaszadók" valahogy eltűntek. Pedig nem árt a kontroll, pl. hiányolom Lúzert, aki az én bonyolult válaszaimat sokkal egyszerűbbre konvertálta.

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!

És egy listából kiszűrni a duplikátumokat (van, ami többször megvan és csak egyszer legyen meg), azt hogyan kell?

Köszi!!!

Freedom, Nature, Love & Music

Legegyszerűbben úgy, hogy egy oszlopba beírod (a példában az A oszlopban vannak az adatok):

=darabteli(A:A;A1)

Ezt lemásolod minden sorodba, utána ezt az oszlopot az autoszűrővel megszűröd a nullánál nagyobb értékekre.

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

Megint csak nagyon-nagyon köszönöm!!!!

Freedom, Nature, Love & Music

Nincs mit.

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öszi!
Ez megoldódot!

A képes kérdésemre nem tudtok semmi ötletet?

[link]

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Beszúrás/Hiperhivatkozás.

A "Hivatkozott cím"-nél a "Létező fájl vagy weblap" legyen érvényes. A Fájl... gomb segítségével kikeresed a képedet - figyeld a kiterjesztést -, aminek az elérési útja és a neve bekerül a "Megjelenő szöveg"- és az "Írja be a fájl vagy weblap nevét:" rovatba.
Az előbbiben átírhatod egy rövidebb, jellemző névre.

Formázhatod is a szöveget, de nem úgy, hogy a cellára kattintasz, mert akkor behívja a képet (ez volt a cél), hanem a kurzor billentyűkkel lépsz oda.

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

Hali!

Nos, a kért megoldáson kívűl még egy más módszert is beleraktam, érdekességként. A képet azért mellékeltem, nehogy más objektumot használj, hanem sima Image-t.

Munkafüzet1 - Munka1(Code)

Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
If (Target.Cells.Count = 1) And Target <> "" Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End Sub

Fire.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Gomb nélkül is meglehet ezt csinálni?

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Hali!

Persze, de bent is van a kódban. Ha rálépsz az adott cellára, amiben a kép elérése van akkor egyből betölti(már ha valóban létező képről van szó). Próbáld ki. A gombos megoldást csak érdekességnek szántam. Ha nem kell akkor töröld ki a makróból a commandbutton1_Click() metódust, meg persze töröld a gombot is.
Pár módosítást eszközöltem, mert a korábbi verzió mindig megpróbál betölteni egy képet, ha az adott cella nem üres. Ez zavaró lehet hiszen ha egy cellában szám vagy szöveg van és az nem egy kép elérési útvonala, akkor hibát dob. Ez a javított kód.

Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Target)
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Target.Cells.Count = 1) And (Pos > 0) Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End Sub

Fire.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Lassan csak kiismerem...
Na most az a gond, hogy a makró adja meg az elérési útvonalat a B2 celllának.
Én ezt fordítva szeretném!

Ha megadok egy elérési útvonalat a B2-be, akkor jelenjen meg az a kép.
Ha módosítom a B2 tartalmát, akkor módosuljon automatikusan a kép is.

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Hali!

Oks, akkor leírom. Szóval, ha megsasolod a képet, akkor látnod kell, hogy B20-B23 tartományban beírtam képek elérését(de bárhova írhattam volna). Ha ezekre a cellákra kattintasz vagy rámész a kurzormozgatókkal, akkor egyből betölti a képet. a B2 cella csak kiírja, hogy épp melyik képet látod.

Fire.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Oks!

Akkor én is leírom még1x.
Nem az a célom, hogy az aktuális cellában szereplő elérési útvonal alapján betöltsön egy képet, hanem a dokumentum egy bizonyos pontján megadott (pl a B2) cellában szereplő (és ami fontos, hogy VÁLTOZÓ) elérési útvonal alapján betöltse a képet.

Pl: A B2-ben van egy fkeres, ami az A2 alapján ad egy elérési útvonalat, ami mutat egy képre. Ez a kép jelenjen meg a vezérlőn. Ha változik A2, akkor a kép is frissüljön!

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Hali!

Na így már tiszta, mit is szerettél volna elérni.

Munkafüzet1 - Munka1 (Code)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Range("B2"))
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Pos > 0) Then
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(xstr)
End If
Exit Sub

errorhandling: MsgBox ("FileOpen ERROR!")

End Sub

Na, asszem ez lesz az
Ha nem a B2-ben lesz az adat akkor egyszerűen módosítsd a makróban, egy helyen kell.

Fire.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Ez őrület! Nem találok szavakat! Eszméletlen! Köszi!!!

Freedom, Nature, Love & Music

Hali!

Szivesen, de próbáld ki Delila_1 továbbfejlesztett változatát is: [link]

Fire.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Sziasztok!

Segitseget szeretnek kerni: Van egy tobb ezer soros listam, amit egy konyvelo prg. adott ki. A benne szereplo szamokat mar at tudtam alakitan a "bal" es az "ertek" fuggvenyek hasznalataval szam formatumma. Viszont minden oldal tetejere be van szurva egy kb. 10 soros azonosito resz /cegnev, oszlop megnevezes stb/, ami abbol adodhat, hogy .txt fajbol konvartalta at a prg. a kert excel listat.
Ezeket az ismetlodo sorokat hogy tudnam kiszurni, hogy egyben legyen a listam /szuresre, stb/. A "gyalog" torolgetes kicsit maceras lenne egy 16000 soros tablazatban...
Koszi!

Tegyél be egy autoszűrőt a címsorba (Adatok/Szűrő/Autoszűrő), és ott atokat szűrd ki az Egyéni kategóriában, amik nagyobbak vagy egyenlőek A-val. Ezeket aztán egyszerre törölheted.
Azért gondolom, hogy így ki tudod választani a törlésre szánt sorokat, mert a többi adatodat már számmá alakítottad, és ezek a sorok valószínűleg nem számok.

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

Koszi! Az autoszuro csak a kovetkezo "ures " reszig figyeli az adatokat (magyarul csak oldalankenr tudok szurni, mert a cimsorokkal sok ures cella is hozzaadodik oldalankent.....)

Az alábbi kis makró megoldja a feladatot.

Sub törlés()
For sor = Range("A65536").End(xlUp) To 2 Step -1
Cells(sor, 1).Select
If Selection.Value = "" Or Selection.Value > "A" Then _
Selection.EntireRow.Delete
Next
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.

Koszi! Meg fogom probalni /melohelyen/, csak kernek egy pici hasznalati utmutatot, mert meg nem hasznaltam makrot.Hogy kell beallitani, h. mondjuk a 1-9-ig; 41-49-ig; 81-89-ig...Stb. sorokat szedje ki a 16000-bol?

A kérdésre:

Sub torl()
Rows("41:49").Select
Selection.EntireRow.Delete
End Sub

A makró, amit írtam, végigmegy a sorokon. Amelyik sor A oszlopában betűt talál, vagy üres stringet, azt a sort kitörli. Vagyis nem kell végignézned, hogy a 41:49, 81:89 sorok üresek-e. Ha már megnézed, egyből ki is törölhetnéd. Ezt a gyalogos módszert küszöböli ki a makró.

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