-
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
-
zsotesz81
senior tag
Hali
Olyan kérdésem lenne, hogy azt szeretném ha az A1 értékem a következő lenne:
A1= "& Cells(4, 8).Value &" - tehát az lenne a lényeg, hogy ki szeretném íratni az idézőjeleket is
jelenleg a lenti képlettel ezt kapom:
A1= & Cells(4, 8).Value & de ezt szeretném: A1= "& Cells(4, 8).Value &"A makróban így néz ki a kód jelenleg:
Range("A1") = (" & Cells(" & i & ", 8).Value & ") - ez egy for ciklusban van, az i a változónk -
#11894
zsotesz81
senior tag
m.zmrzlina
#11888
zsotesz81
senior tag
válasz
m.zmrzlina
#11888
üzenetére
ok, köszi
-
zsotesz81
senior tag
Sziasztok
Hogy lehet makróval meghatározni azt, hogy a kijelölt cella melyik sorban van?
Tehát ha pl. a C9-es cellám van kijelölve, akkor ebből a sorszámot kapjam meg, hogy el tudjam tenni egy változóba.
ezeket próbáltam:
sor=activecell.rows.count
sor=selection.rows.count
ezeknél mindig egyet kaptam, pedig valójában nem ott volt a kijelölés -
zsotesz81
senior tag
Sziasztok
Egy kis segítség kéne. Van egy táblám aminek a G és H oszlopában az alábbi értékek lehetnek: low, medium, high. Azt már megcsináltam, hogy értéktől függően adjon a cellának háttérszínt. A gondom az, ha bármely más cellába beírok valamit (ami nem a G vagy H oszlopban van) akkor annak a hátterét visszaállítja fehérre. Ez azért gond mert a táblázatom alapszíne szürke. Tehát azt szeretném valahogy megoldani, hogyha valamelyik cellába beírok valamit akkor maradjon meg a szürke háttér. Ha töröltem egy cella tartalmát akkor is visszaváltott fehérre, de ezt még sikerült orvosolni.
Ezt írtam eddig:Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Target = "low" Then icolor = 35
If Target = "medium" Then icolor = 36
If Target = "high" Then icolor = 40
If Target = "" Then icolor = 15
Target.Interior.ColorIndex = icolor
End Sub
A 15 volna a szürke color indexe. -
zsotesz81
senior tag
Közben felvetődött még bennem egy bonus kérdés
Szóval vannak ezek a notes-os címek:
pl.
Lubos Adamka/Slovakia/IBM
Maria Adamusova/Slovakia/IBM
Daniel Adam/Slovakia/IBM
Simona Andacka/Slovakia/Contr/IBM
Tomas Andelek/Slovakia/IBM
Aleksandra Andric/Slovakia/Contr/IBM
Peter Antalik/Slovakia/Contr/IBMEzekből hogy lehetne egy külön cellába kiszedni csak a nevet?
Addig eljutottam, hogy /Slovakia/IBM esetén: =LEFT(E2;LEN(E2)-LEN(RIGHT(E2;13)))
/Slovakia/Contr/IBM esetén: =LEFT(E2;LEN(E2)-LEN(RIGHT(E2;19)))viszont hogy adom meg az excelnek, hogy mikor melyiket használja?
Gondolom "if"-fel valahogy, csak nem tudom hogy adjam meg a feltételt. -
zsotesz81
senior tag
válasz
Delila_1
#10059
üzenetére
Na, csak sikerült megcsinálni, viszont jól megszivattam magam/magunkat. A sheet2-n lévő adatok txt-ből lettek beimportálva. A txt-ben lévő adat pedig egy TSM serverről való sql lekérdezésből lettek. A gond az volt hogy a nevek után volt még egy csomó szóköz
.
Kimetsz függvénnyel kizúztam a szóközöket, ezzel az utolsó képlettel amit írtál mostmár jó.szerk.
nagyon frappánsan megoldottam egyébként a notes-os mail címekből a nevek kivágását.
Bemásoltam az egész oszlopot notepad-ba, elmentettem txt-ként, majd beimportáltam, elválasztó karakternek "/" jel, aztán már meg is lettek a nevek, a nem kívánatos oszlopokat meg töröltem
-
zsotesz81
senior tag
válasz
Delila_1
#10053
üzenetére
"Tényleg prérifarkas vagy, az első kérdésedben más volt az elrendezés" - tudom, azt hittem, hogy van rá valami egyszerű megoldás csak én nem tudom, ezért írtam csak egy példát.
A makró amit írtál lefut, csak mindenhova "nincs"-et ír.
Azon gondolkoztam, nem volna-e egyszerűbb az emailes cellákból kiszedni csak a nevet, és azt bemásolni a mellette lévő oszlopba, és utána már csak hasonlítgatni kéne a neveket. -
zsotesz81
senior tag
válasz
Delila_1
#10050
üzenetére
#name-et írt ki, de lehet én rontottam el valamit, inkább leírom még gyorsan hogy pontosan melyik cellába vannak az adatok, tehát:
Sheet1:
A,B,C,D oszlop foglalt, E oszlopban vannak a notes-os nevek, F oszlopba mehet az "X". Az előbb azt még elfelejtettem írni, hogy két féle van, /Slovakia/Contr/IBM és /Slovakia/IBM
Sheet2-ben
B oszlopban vannak a nevek. Ezeket kéne egyesével végig csekkolni, hogy a sheet1-en szerepelnek-e.És közben el is repült a műszakom, irány haza
, majd otthon még én is filózok a megoldáson, elméletben megvan, csak nem tudom kivitelezni -
#10045
zsotesz81
senior tag
Fire/SOUL/CD
#10044
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#10044
üzenetére
Hát ez így valszeg azért nem lesz jó mert sheet2-n van 792 név, sheet1-en meg 528. A sheet2-n lévő összes nevet le kéne ellenőrizni, hogy melyik szerepel sheet1-ben.
-
#10042
zsotesz81
senior tag
Fire/SOUL/CD
#10041
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#10041
üzenetére
E-mail cím az csak lotus notes-os, meg belső ibm-es, ha azt notes-be bemásolom akkor megy a levél címzettnek. Ez ilyen trükkös
-
#10040
zsotesz81
senior tag
Fire/SOUL/CD
#10039
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#10039
üzenetére
nem hivatkozás, síma szöveg, mindenképp makróval kellene mert majdnem 800 nevet kellene lecsekkolni
2. igen a név az megegyezik az email címben lévő névvel
-
zsotesz81
senior tag
Hali!
Van egy cellám aminek a tartalma egy e-mail cím pl.:sheet2-n: E4=GEZA/Slovakia/IBM. Van egy másik táblám (sheet1) amiben csak a nevek vannak felsorolva pl.:a7=GEZA. Azt szeretném megcsinálni ha az A7-ben lévő név egyezik az E4-ben lévő névvel akkor mondjuk a D5 értéke legyen X.
Eddig így néz ki a kódom:
Public Sub Keres()
Dim i As IntegerSheets("Sheet2").Select
i = 1
For i = 1 To 792
nev = Cells(i, 2)
kereses nev
i = i + 1
Next i
End Sub
Public Sub kereses(nev)
Sheets("sheet1").Select
sor = 1
Do
sor = sor + 1
If Cells(sor, 5) = nev & "/Slovakia/IBM" Then Cells(sor, 6) = "X"
If Cells(sor, 5) = nev & "/Slovakia/Contr/IBM" Then Cells(sor, 6) = "X"
Loop Until sor = 528
End Sub -
#8876
zsotesz81
senior tag
Fire/SOUL/CD
#8875
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8875
üzenetére
melóban csak excel 2003 van, egyébként a tulajdonságok listában nem találtam színezést, ezért kérdeztem, hogy elsetleg valahogy az alap szürke színt le lehet-e cserélni, mindegy annyira nem fontos, azért köszi, hogy próbáltál segíteni
-
#8874
zsotesz81
senior tag
Fire/SOUL/CD
#8873
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8873
üzenetére
microsoft progressbar control 6.0 (SP4)
-
zsotesz81
senior tag
Hali!
Van egy érdekes problémám ami nem tudom miért van.
Szóval van egy cellám amiben az alábbi képlet van:
AD2320=IF(((($W2320<>"")*OR($W2320<>0))*AND(LEFT(B2320;5)=LEFT(B2382;5))*AND(F2320=F2382));(X2320-Y2320-Y2382)/W2320;"")
Ha ezt lemásolom egy sorral lejjebb akkor ez lesz belőle:
AD2321=IF(((($W2321<>"")*OR($W2321<>0))*AND(LEFT(B2321;5)=LEFT(B2384;5))*AND(F2321=F2384));(X2321-Y2321-Y2384)/W2321;"")
Amit nem értek, hogy a 2382-ből egy sorral lentebb miért 2384 lesz?
Ami még érdekesebb ha még egyszer lemásolom a képletet akkor meg jó lesz.
Valami ötlet? -
#8469
zsotesz81
senior tag
Fire/SOUL/CD
#8457
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8457
üzenetére
oks, köszi majd próbálkozok
-
zsotesz81
senior tag
Hali!
Újabb kérdés: van egy könyvtáram amiben van 19 db txt. Ezeket be szeretném úgy importálni, hogy a txt fileok tartalma külön munkalapra kerüljön, és a munkalap neve a txt file neve legyen. Tehát pl. az 1.txt file tartalma kerüljön az "1" nevű munkalapra, a 2.txt file tartalma a "2" nevű munkalapra stb.
Úgy meg tudnám oldani, hogy makrórögzítéssel felveszem a kódot aztán ez copy-paste 18-szor, de nem akarok km hosszú kódot. Meg lehet ezt valahogy odani rövidebben? -
#8104
zsotesz81
senior tag
Fire/SOUL/CD
#8102
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8102
üzenetére
köszi, elrakom egy txt-be, hátha egyszer még jól jön
-
zsotesz81
senior tag
válasz
Delila_1
#8101
üzenetére
köszi, műxik.
A többi feltétel azért van mert valamiért az üres cellánál is belement a feltételbe, a másik meg ezeket a számokat országonként kellene szétmásolni, csak azt nem tudom, hogy ezt még hogy oldjam meg (még csak amolyan próbálkozás). Tehát Austriához (C1) tartozik a B6-ban és B12-ben lévő szám, utána
Arabemirates-hez(C17) a B22-ben és a B28-ban lévő számok, és így tovább. Az a gond, hogy van olyan ország ahol nem csak két számot kell másolni hanem többet. -
zsotesz81
senior tag
Hali!
Újabb gond, az előbbi példában lévő számokat egy másik munkalapra szeretném másolni, úgy hogy az adott sor első üres cellájától kezdve egymás mellé.
Ezzel próbálkoztam:
For b = 1 To 33
If Cells(b, 2) <> "" And (IsNumeric(Cells(b, 2)) = True And Cells(b, 2) <> "Resolved") Then
Worksheets("result").Select
Range("A1").End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = Sheets("data").Cells(b, 2)Tehát a result munkalap első sorába gyűjteném őket egymás mellé. Viszont a fenti kóddal Application defined or object defined error-t ad. Viszont ha kiveszem a Worksheets("result").Select sort, vagyis nem váltok munkalapot, akkor lefut, viszont akkor a számokat arra a munkalapra másolja amelyiken ömlesztve vannak az adatok, ami nem jó.
Van valami megoldás erre? -
#8099
zsotesz81
senior tag
Fire/SOUL/CD
#8098
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8098
üzenetére
Köszi, kipróbálom.
-
#8097
zsotesz81
senior tag
Fire/SOUL/CD
#8093
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8093
üzenetére
Képen a probléma
http://www.kephost.com/images3/hrz58dob1ujygj52st9h.jpg
A B oszlopból kellenének a számok (B6, B12 stb.). Viszont mindenképp makróval szeretném megoldani -
#8054
zsotesz81
senior tag
Fire/SOUL/CD
#8050
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8050
üzenetére
Hi!
Úgy tűnik sikerült megoldanom a visszaolvasást listbox-ba. Igaz nem egyedül jöttem rá, túrtam a netet rendesen.
Private Sub UserForm_Initialize()
Dim cells As Range
Dim Rng As Range
With ThisWorkbook.Sheets("listbox1")
Set Rng = .Range("a1", .Range("a1").End(xlDown))
End With
For Each cell In Rng.cells
Me.ListBox1.AddItem cell.Value
Next cell
End Sub -
#8051
zsotesz81
senior tag
Fire/SOUL/CD
#8050
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8050
üzenetére
oks, köszi, majd hétvégén kicsit töröm rajta a fejem.
-
#8049
zsotesz81
senior tag
Fire/SOUL/CD
#8048
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8048
üzenetére
így már jó, thx
-
#8047
zsotesz81
senior tag
Fire/SOUL/CD
#8046
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8046
üzenetére
Legyen a munkalapos. Meg van még egy kérdésem, azt szeretném hogy amikor beírom a nevet a szövegdobozba akkor azt az enter leütésével elfogadja, tehát ne kelljen külön az ok gombra kattintani. Ezt be is állítottam (Private Sub cmdok_Enter()), viszont amikor leütöm az entert akkor kijelöli a cancel gombot, majd ha innen rámegyek a bal kurzor gombbal az ok-ra akkor fogadja el. Ez vajon miért van? Ilyet pedig már csináltam korábban és akkor működött.
-
#8045
zsotesz81
senior tag
Fire/SOUL/CD
#8044
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8044
üzenetére
Csak azokat vegye figyelembe amiket textboxból hozzáadok.
-
#8042
zsotesz81
senior tag
Fire/SOUL/CD
#8041
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#8041
üzenetére
zsír, köszönöm
-
zsotesz81
senior tag
Hali!
Egy kis help kellene, hogy kell azt megcsinálni, hogy az alábbi makrót ismételje addig amíg a "nem" lesz a válasz?
k = MsgBox("Van másik győztese a körnek?", vbYesNo)
If k <> 7 ThenWith frmallinvictory
.Label1.Caption = Range("A5")
.Label2.Caption = Range("A6")
.Label3.Caption = Range("A7")
.Label4.Caption = Range("A8")
.Label5.Caption = Range("A9")
.Label6.Caption = Range("A10")
.Label7.Caption = Range("A11")
.Label8.Caption = Range("A12")
.Label9.Caption = Range("A13")
.Label10.Caption = Range("A14")
End Withfrmallinvictory.Show vbModal
A do-loop-pal próbáltam, de nem sikerült összehozni.
-
zsotesz81
senior tag
válasz
Delila_1
#6943
üzenetére
2007-es verzióban sajna ezt nem találtam meg, megoldanám akkor úgy, hogy a 3 munkalapból kettőt elrejtek, az elsőre meg teszek parancsgombot. Az a baj, hogy valamiért nem vált rá az elrejtett munkalapra (ha nincs elrejtve a munkalap akkor működik).
Ezt írtam:
Private Sub Cmdsúgó_Click()Sheets("Súgó").Activate
End Sub
Próbáltam select-tel is de arra hibaüzenetet kaptam (Worksheet osztály select metódusa hibás).
-
zsotesz81
senior tag
Hali!
Két kérdésem volna:
1. Azt szeretném megcsinálni, hogy alul az összes munkalap rejtve legyen köztük pedig parancsgombbal lehessen váltani. Valami ilyesmire gondolok :
2. Azt meg lehet-e csinálni, hogy ha pl. beírok A1-be 200-at, majd utána átírom ezt mondjuk 500-ra, akkor adódjon hozzá az előző összeg tehát a cellába 700 legyen (ezt már egyébként form hívással megoldottam, csak kíváncsi lennék van-e más megoldás).
-
zsotesz81
senior tag
válasz
zsotesz81
#6830
üzenetére
Kipróbáltam, úgy hogy soronként másoljon:
Range("N5").Copy
Range("C5").PasteSpecial Paste:=xlPasteValues
Range("M6").Copy
Range("C6").PasteSpecial Paste:=xlPasteValues
.
.
.
Range("M14").Copy
Range("C14").PasteSpecial Paste:=xlPasteValuesÍgy megcsinálta, legalábbis a számolást, viszont most a tétek törlésénél bukik meg,
ahol szintén nagyobb tartomány (D5:D14) van egyben megadva. Lehet, hogy ezekkel nem tud mit kezdeni? -
#6825
zsotesz81
senior tag
WildBoarTeam
#6820
zsotesz81
senior tag
válasz
WildBoarTeam
#6820
üzenetére
Kipróbáltam, azt még mindig nem tudom, hogy ott miért fut bele. Ez a kód:
Range("N5").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6:M14").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6:_C14").Select - aláhúzás nincs benne csak a smile elkerülése miatt raktam bele
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C15").SelectAmikor elér a Range("M6:M14")-hez, akkor ugrik az érvényesítőhöz, majd utána hiba, de miért megy oda? Akkor a Range ("C5")-nél miért megy tovább?
-
zsotesz81
senior tag
Hali!
Visszatérnék kicsit a #6768-as hsz-re. Szóval a kód amit Delila írt végülis jól működik, viszont amikor az a makró fut ami kiszámolja a nyereményeket akkor megáll Run Time error '13', Type mismatch hibával. Erről a kódról van szó:
If Target.Address = "$D$5" And Target.Value > Cells(5, 3) Then
MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
Cells(5, 4).Select
End If
If Target.Address = "$D$6" And Target.Value > Cells(6, 3) Then
MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
Cells(6, 4).Select
End If
és így tovább egészen 14-ig.A makró azt csinálná, hogy az C5-be másolja a N5 tartalmát, a C6
14-be pedig az M6:M14 tartalmát. A C5-N5 másolást megcsinálja, viszont a többit nem, itt akad meg.
Gőzöm nincs mi akasztja meg, ha rányomok a debugra akkor az if-es sort jelöli ki.
Valami ötlet? -
#6812
zsotesz81
senior tag
Fire/SOUL/CD
#6811
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6811
üzenetére
köszönöm, közben rájöttem, hogy ezt makrórögzítéssel is meg tudom nézni.
-
#6806
zsotesz81
senior tag
Fire/SOUL/CD
#6805
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6805
üzenetére
köszönöm mindkettőtöknek
-
#6803
zsotesz81
senior tag
Fire/SOUL/CD
#6802
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6802
üzenetére
Közben megcsináltam, még egy kérdés. Hogy lehet mindenképp új sorba kényszeríteni egy szövegrészt? Pl. Ez van kiírva, hogy "A játékot xy nyerte, gratulálunk!" A gratulálunk szót kellene új sorba rakni.
-
#6801
zsotesz81
senior tag
Fire/SOUL/CD
#6800
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6800
üzenetére
Erre én is gondoltam, csak kíváncsi voltam meg lehet-e oldani másképp.
-
#6799
zsotesz81
senior tag
Fire/SOUL/CD
#6798
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6798
üzenetére
Clipart képet hogy lehet formba beszúrni? Az image vezérlővel próbáltam de az nem tudja a png-t kezelni.
-
zsotesz81
senior tag
Két kérdésem lenne:
1.: excel függvényekre hogy lehet hivatkozni makróval?
Pl. ezt hogy lehet leírni: A2-es cella legyen egyenlő MAX(D$5$14).
2. cellákra lehet valami érvényességi szabályt adni? Pl. beírok a cellába egy értéket és ha az nagyobb mint egy másik cellában lévő érték akkor mondjuk adjon egy hibaüzenetet -
#6753
zsotesz81
senior tag
Fire/SOUL/CD
#6752
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6752
üzenetére
ÁÁÁÁ saját magam szivattam. Nem kell az else ág, az a rész külön kell a next után
-
zsotesz81
senior tag
válasz
Delila_1
#6746
üzenetére
Szia!
Ez sajna csak részben működik úgy ahogy szeretném. Azt vettem észre, hogy akkor fut le jól a kód ha rögtön az első játékosnál szerepel az all in. Ha mondjuk a 2. és 3. játékos között van döntetlen (all in mellett) akkor olyan mintha símán kihagyná a for ciklust és számolna úgy ahogy egyébként akkor kell ha nincs all in. Így néz ki a kód:
For i = 5 To 14
If Cells(i, 16) = "All In" Then
Call döntetlenallin
Unload Me
Exit Sub
Else
Cells(1, 9) = Cells(1, 8) / pipaszam
Call döntetlenszamolasEnd If
NextValami 5let?
-
#6730
zsotesz81
senior tag
Fire/SOUL/CD
#6728
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6728
üzenetére
köszöntem
-
zsotesz81
senior tag
Még egy kérdés, a formomon a label-ek feliratánál hogy tudom azt megcsinálni, hogy mindig pl. az A1 cella értéke legyen. Addig eljutottam, hogy Label1.Caption és gondolom ez után kellene a cella. De egyenlőségjellel nem ment, ha simán utánaírtam úgy sem volt jó.
UI.: Nálam működik a helyesírás ellenőrzés
-
#6710
zsotesz81
senior tag
Fire/SOUL/CD
#6708
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6708
üzenetére
Köszönöm a segítségeket, egyébként True értékkel tényleg hibát ad.
-
zsotesz81
senior tag
válasz
Delila_1
#6705
üzenetére
Csak az a bajom, hogy már ezt nem tudom hova rakni, ennek nem akarok külön munkalapot sem. Egyébként ez arra kéne, hogy pókerben döntetlennél a kasszát azonos arányban ossza szét a döntetlent elérők között. Ez mondjuk elég ritka, ezért akarom úgy megcsinálni, hogy gombnyomásra feljöjjön egy form, ott bepipálni azokat a játékosokat akiknél döntetlen van, majd a formon megnyomni egy gombot és a lóvé eloszlik. A formot már megcsináltam csak nem tudom hogy kell meghívni. Az előbb próbáltam egy active x parancsgombbal, alapból be volt írva a kódba, hogy load userform1 (nem változtattam meg a form nevét), de nem történik semmi.
-
#6702
zsotesz81
senior tag
Fire/SOUL/CD
#6698
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6698
üzenetére
Igen, egy ilyen formot kellene valahogy meghívni, a nevek és jelölőnégyzetek száma lehet állandó (a max az úgyis 10). Pontosabban a nevek attól függnek hogy az adott cellában milyen név van (A5-A14-ig vannak a nevek).
-
zsotesz81
senior tag
Azt meg lehet valahogy csinálni, hogy egy gombnyomásra bejöjjön egy olyan ablak amin van 10 név egymás alatt és mindegyik név mellett van egy jelölőnégyzet. Majd pl. a nevek alatt van egy újabb gomb, amit ha megnyomok akkor egy bizonyos összeget annyi felé oszt ahány jelölőnégyzet be van jelölve, és azoknak osztja akik nevénél be van jelölve?
-
#6692
zsotesz81
senior tag
Fire/SOUL/CD
#6691
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6691
üzenetére
így már jó, köszi. Pedig úgy emlékszem egyszer ma már kipróbáltam a rows-al
-
zsotesz81
senior tag
Azt szeretném megcsinálni, ha egy cella tartalma (pl. A14) üres akkor az egész sort rejtse el.
Írtam rá makrót:
If Cells(14, 1) = "" Then
Row("14:14").Select
Selection.EntireRow.Hidden = True
End If
Viszont futáskor azt mondja, hogy sub or function not defined. Mi a gondja? -
zsotesz81
senior tag
válasz
Delila_1
#6674
üzenetére
Hát ez nekem nem jött be, azt írta, hogy körkörös hivatkozás. Mondjuk lehet én csesztem el valamit. Úgy van a táblázatom, hogy A oszlopban nevek, C oszlopban a pénzük, és egy külön táblában szeretném sorba rendezni őket pénz szerint. A pénzt sorba rakom a nagy függvénnyel és melléjük keresném ki a neveket.
-
zsotesz81
senior tag
Egy régebbi problémámra keresnék megoldást. Munkatársammal csináltunk egy olyan táblázatot amiben a Forma1-es pilóták eredményeit lehet rögzíteni. A táblázat alá pedig csináltunk egy összesítést, amiben lehet követni a vb állását. Ezt akkor úgy csináltuk, hogy a nagy függvénnyel kigyűjtöttük egymás alá az összpontszámokat, majd fkeres-sel mellé írattuk a neveket. Ez így működött is, egy probléma volt ezzel, hogyha két vagy több egyforma pontszámú pilóta volt, akkor az összesítő táblázatba csak az először megtalált pilótát írta be, de azt annyiszor ahány pilóta épp adott azonos pontszámmal állt. Azt már tudom, hogy makróval könnyedén meg lehetne csinálni, de vajon valamilyen függvénnyel meg lehet valahogy oldani?
-
zsotesz81
senior tag
válasz
zsotesz81
#6640
üzenetére
Közben kicsit visszaolvastam, látom van itt minden.
Az volna a kérdésem, hogy VB-ben hogy kell hivatkozni excel cellára. Tehát azt hogy kell megírni, hogy HA L5<L6 akkor "esemény" egyébként "esemény".
Ill. hogy lehet írni olyan msgbox-ot aminek mondjuk van egy igen és egy nem gombja, nem-re történik semmi, igen-re pedig valamilyen esemény végrehajtódik.
.
, majd otthon még én is filózok a megoldáson, elméletben megvan, csak nem tudom kivitelezni 
14-be pedig az M6:M14 tartalmát. A C5-N5 másolást megcsinálja, viszont a többit nem, itt akad meg.
Új hozzászólás Aktív témák
Fferi50- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Tablet felvásárlás! Samsung Galaxy Tab S10+, Samsung Galaxy Tab S10 Ultra, Samsung Galaxy Tab S10 FE
- REFURBISHED - DELL Thunderbolt Dock WD19TBS (210-AZBV)
- GYÖNYÖRŰ iPhone 11 Pro 256GB Midnight Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3370,94% Akkumulátor
- Gamer PC-Számítógép! Csere-Beszámítás! I7 6700 / Rog RX580 8GB / 32GB DDR4 / 500GB SSD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest