Van egy makróm ami egy emailben html formátumban érkező adathalmazt illeszt be Excelbe vágólapról. A felhasználó a levéltörzset kopizza majd Excelben elindítja a makrót. Az Excel megcsócsálja feltételesen formázza majd a sokkal áttekinthetőbben mint az eredeti formátumban volt megjeleníti .

Van benne az elején egy ilyen sor:

AcvieSheet.PasteSpecial Format:="Szöveg", Link:=False, DisplayAsIcon:=False

Korábban minden felhasználó magyar Excelt használt de szép lassan mindenki áttér angolra. Az angolos változatnál a következő sor működik:

AcvieSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False

A kérdésem, hogy a Format argumentumot meg lehet-e adni másképpen (pl számmal) amit mindkét verzió megért.

Ne kérdezd miért ezt a megoldást használtam, régen csináltam.
"Fiatal voltam kellett a pénz"

[ Szerkesztve ]

Próbáld így: NumberFormat = "@"

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 cellák közt sok olyan van ami nem számot tartalmaz hanem szöveget.

Sőt a nagyobb része szöveg amiről egy csomó felesleges karaktert leválaszt a makró hogy a szövegből szám legyen, tizedespont-vessző csere stb...

Ez nem okoz gondot?

Megpróbáltam. Az történik ami a Text értéknél a magyar verzióban és Szöveg értéknél az angolban:képként illeszti be a vágólap tartalmát mintha egy screenshotot illesztenék be.

Szia!

Szerintem az
Application.LanguageSettings.LanguageID(msoLanguageIDUI)=msoLanguageIDHungarian
lekérdezés megadja, hogy magyar vagy sem a beállítás, ettől függően állíthatod be a form paramétert "Szöveg" vagy "Text" értékre.
pl.
paramforma=iif(Application.LanguageSettings.LanguageID(msoLanguageIDUI)=msoLanguageIDHungarian,"Szöveg",'Text")
Activesheet.Pastespecial Format:=paramforma stb.

Üdv.

[ Szerkesztve ]

Sziasztok,

Korreláció számításban szeretném kérni a segítségeteket.

Egy bizonyos dolog hasznosságát 1-5-ig értékelhették az emberek (1=egyáltalán nem hasznos, 5=nagyon hasznos). Vannak a férfiak, akik 1-es számot kaptak a táblázatban és vannak a nők, akik 0-át.

Korrelációt vontam a kitöltők neme és aközött, hogy ki hány pontra értékelte az 1-5-ös skálán a dolog hasznosságát.

Ha a korrelációra az jött ki, hogy mínusz 0,34, az mit jelent? Azt, hogy a férfiak kevésbé ítélik hasznosnak a dolgot, vagy azt, hogy a nők ítélik kevésbé hasznosnak?

Köszi ez így működik.

Illetve így nem de ez alapján megírtam az értékadást és így most mindkét verzió rendesen beilleszti az adatot.

Köszi.

Üdv.
Tud valaki olyat csinálni ha rálépek egy cellára akkor az automatikusan beírja a jelenlegi dátumot?
Hálás lennék a megoldásért.
Köszönöm.

Szerintem VBA-val megoldható.

Nem ennyire rugalmas, de statikus cellába írhatsz egy =ma() függvényt. Az mindig a mai (pontosabban azt a dátumot írná ki, amikor megnyitod a fájlt) dátumot írná ki.

Nekem nem az kell hanem hogy ne kelljen beírni a dátumot csak rákattintatni a cellára és beírja magától.

Nézz el ide!

A 2. oszlopba íráskor az A oszlopba írja be a dátumot.

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

Több ember használ egy tábláztatott és adatokat visz fel az első oszlop a dátum.
Az adatokat mindig külön sorba írják.
Azt szeretném hogy a dátum a sor elején automatikusan megjelenjen.

Akkor ez lesz jó. A laphoz rendeld, ahogy a Téma összefoglalóban olvashatod.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Cells(Target.Row, 1) = Date
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.

Nem csinálnád meg és töltenéd fel én meg letöltöm.
örök hálám

Ímé.

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

szerintem sikerült nekem is
köszönöm

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, a névvel lehetett baja.

Sziasztok.
A segítségeteket szeretném kérni.
Adott a következő diagram, annyit szeretnék módosítani rajta, hogy az y tengely értékei ne nulláról, hanem mondjuk 150-200-tól induljon. Ezzel szeretném kiemelni/szemléltetni a görbe csökkenését.
Köszönöm a segítséget előre is!

A tengely formázásánál tudod beállítani a min. és max. értékeket.

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

Szívesen.

Ha basic kulcsszót adsz meg címként, nem tudja szegény, mit szeretnél elérni.

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

Valaki esetleg el tudna igazítani a megfelelő irányba?

Sziasztok!
Segítsetek légyszi, a következőre szeretnék makrót írni.

Ráállok egy cellára, és az adott sor 4. 5. és 10. cellájában levő szöveg után "Alt+Enter"-el egy-egy új sort beszúrni.

Valahogy sehogy sem tudom megoldani, hogy a meglévő szöveg megmaradjon, és csak egy új sorral gazdagodjon a cella.

Kattints bele vagy állj rá a cellára, nyomj egy f2-t, menj a sor végére, és ott nyomj alt+entert.

Köszi, ez meg van

Viszont ez a "kézi" módszer kissé körülményes amikor mondjuk 50 sorban kell elvégezni, ezért szeretnék rá makrót írni

Ja, az kimaradt hogy makró kéne rá. Bocsi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row, 4) = Cells(Target.Row, 4) & Chr(10)
Cells(Target.Row, 5) = Cells(Target.Row, 5) & Chr(10)
Cells(Target.Row, 10) = Cells(Target.Row, 10) & Chr(10)
End Sub

Ha a "rállás" helyett bevitelre szeretnéd a sortörést a meghatározott cellákba, a címből töröld a Selection részt.

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!

ezt hogyan tudnám egy billentyűkombinációhoz rendelni?
tehát ha ráállok egy tetszőleges cellára, akkor az adott sor 4.5 és 10 cellájában gombnyomásra működjön a dolog?

Private Sortores()
Cells(Selection.Row, 4) = Cells(Selection.Row, 4) & Chr(10)
Cells(Selection.Row, 5) = Cells(Selection.Row, 5) & Chr(10)
Cells(Selection.Row, 10) = Cells(Selection.Row, 10) & Chr(10)
End Sub

Beviszed ezt egy modulba (lásd Téma összefoglaló).
A füzetben Alt+F8-ra megjelennek a makróid. Kiválasztod a Sortores nevűt, Egyebek gomb. Ott megadhatod a bill. kombináció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.

Mit rontottam el, ha Invalid outside procedure-t kapok cserébe?

Töröld ki az első makró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.

Szia!

Private SUB Sortores()

A SUB kulcsszó hiányzik a makró elejéről.

Üdv.

Az előző, eseményvezérelt makróból a sub helyett a private szót töröltem véletlenül.
A private nem is kell.

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 mindkettőtöknek, nagyon sokat segítettetek!

Bocsi az elírásért!

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!

Egy táblázatban szereplő adatokat szeretném a power querryvel lekérdezett adatokkal feltölteni.
A cellában van egy megnevezés, pl "sárga körte", a querrys táblázatban a "sárga"-hoz tartozik egy érték. Én a táblázatban a "sárga"-nál szereplő értéket szeretném képlettel beírni a táblázatomba.
Tehát a képlet a cellában keressen meg egy adott értéket, amit a másik táblázatban szereplő értkéhez tartozó számot adja eredményül, a megadott érték alapján.

Van egy tablazat egy millionyi adattal es csinaltam hozza egy nyitooldalt szuronek. 4 feltetel szerint lehet leszurni az adatokat. A kod az elso kettore vonatkozik jelen esetben. Az lenne a problemam hogy 1. szuresi teltetel nelkul nem tudok fuggetlenul szurni a 2. feltetellel. Az lenne a kerdesem hogy ezt valahogy at lehet hidalni anelkul hogy az 1-ben beallitok egy folyamatnevet es a masodik ban a hozza tartozó azonositokat dobja ki. Ha viszont nem szeretnek folyamatnevvel szurni hanem azonositoval akkor azt is csinálja meg. Elore is koszi a segitseget!

[erre, valaki?]

gölmétcsül ©

Sziasztok!

Egy jó kis kérdésem lenne, amivel pár órája szenvedek de nem tudom a megoldást.
Azt kellene csinálni a makrónak, amit írtam, hogy egy excel fájl, bizonyos munkalapján szeretném egy bizonyos területet levédeni, hogy már írni ne lehessen bele.
Próbálkoztam az alábbi programkóddal:

With Workbooks(aktwb).Sheets(aktsht).Range(Cells(i, 5), Cells(i, 15))
.Locked = True
'.Protect Password:="admin" ', UserInterfaceOnly:=True
'.Protect Password:="admin", DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True
End With
'ActiveSheet.Protect UserInterfaceOnly:=True

Bajom annyi jogy ezzel az aktív munkalapok titkosítom , és bármely más cellába szerenék írni nem engedia makró.

Egész feladatom az alábbi , amiből már a 90%éát megcsináltam. (mi más mint EB-s meccsek kiértékelése)

Adott egy táblázat, melyben minden sorban található a melyik meccs lesz az EB-n, mellette egy dátum formátum. A makróm úgy müködik hogy a minden Excel nyitáskor lefut (Workbooks.open()) a makró és megnézi hogy a meccs már volt -e, tehát lejátszották, mert ha igen, akkor aki tippelt rá, ne tudjon modosítani.

....iPhone 13 / iPad 9th Gen. Wifi 64GB...

Sziasztok,

Adott egy táblázat, oszlopok A-G-ig. A sorok száma változó, kb 2-3ezer. Egy olyan makrót szeretnék rá írni, ami a H oszlopban kiírja a az előtte lévő 4 cella (D:G) összegét, az összes sorban természetesen. Az a gondom, hogy a H oszlop még üres...
Jól gondolom, hogy meg kell keresni a nem üres cellák utolsó sorát, ezt elmenteni egy változóba, és ezt a változót felhasználni később?

Private Sub Workbook_Open()
Sheets("Munka2").Protect Password:="admin", UserInterfaceOnly:=True
Sheets("Munka2").Range("I5:I15").Locked = True
End Sub

Az első sor a makróból engedi a Munka2 lap módosítását, a 2. sor zárolttá teszi a tartomá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.

Igen, jól gondolod. a Képletet 1 lépésben megadhatod az össze sorodra.

Sub Osszegez()
Dim usor As Long

usor = Range("A" & Rows.Count).End(xlUp).Row
Range("H2:H" & usor) = "=SUM(A2:G2)"
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.

Köszi!

Szivi.

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, sajnos nem jó, mert az egész munkalapot levédemnigy és nemntudok más cellatartományba írni

....iPhone 13 / iPad 9th Gen. Wifi 64GB...

Előtte vedd le a védelmet azokról a cellákról, amikbe írni akarsz.

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!

oly kérdésem, segítségre lenne szükségem, létezik e olyan képlet miszerint:
pl:
A1 és A2 illetve B1 és B2 cella értéke megegyezik akkor a C1 és C2 cellában található értékeket összeadja?

Értem ezalatt A oszlopban megnevezések, B ben kiszerelések, C ben pedig darabszámok vannak.

Előre is hálás köszi!

markbellus.hu 

=HA(ÉS(A1=A2;B1=B2);C1+C2;"NEM EGYENLŐEK")

Mind a két feltételt megvizsgálja. és ha mind a kettő igaz, akkor összeadja a két cella értéket, egyébkébnt beírja, hogy nem egyenlőek.

üdv, föccer

[ Szerkesztve ]

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

hálás köszi gyors válaszod!

próbáltam, viszont még 1-2dolgot nem értek bocsi ha esetleg tudnál segíteni nagyon megköszönném:
mutatok egy részletet belőle úgy egyszerűbb:

tehát ha több cellában is ugyanaz az érték akkor nem adja össze megfelelően
illetve "ha nem ugyan az a két érték akkor nem egyenlőek" - ez sajna azért nem jó mert van amiből csak 1db van a táblázatban és ott saját magát ki kellene írnia.

(A oszlop cikkszám, B oszlop megnevezés, C oszlop db szám)

remélem sikerült érthetően leírnom és előre is nagyon köszönöm!

markbellus.hu 

oks, holnap kipróbálom majd.Köszönöm.

....iPhone 13 / iPad 9th Gen. Wifi 64GB...