- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Netflix
- Aliexpress tapasztalatok
- GVH: a Vodafone felvásárlása erősítheti a versenyt
- Sweet.tv - internetes TV
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Amazon
- Linux - haladóknak
- Elon Musk: az xAI szuperszámítógépet akar az AI-alapú chatbotjához
- Microsoft Excel topic
-
IT café
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
-
-
Delila_1
Topikgazda
válasz Delila_1 #27368 üzenetére
scott_free
Ha kellenek a 0 értékek 1-es bevitele esetén is az F és G oszlopba, akkor a
.Range("B" & sor & ":G" & sor) = 0
sort tedd a Select Case fölé, a Case 0-t pedig hagyd ki.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
scott_free
senior tag
válasz Delila_1 #27368 üzenetére
huh, nem fogalmaztam akkor érthetően:
a táblázatban a "Sorszám" alapján a neveket be tudom íratni makró nélkül is a cellákba (FKERES-sel), a makrónak az lenne a feladata, hogy az adott cella értéke alapján hozzárendeljen egy pontértéket a mellette lévő cellához egy másik lapról.
--> pl. ha a B2 cella értéke "AA", akkor C2 legyen "2" (amit a piros táblázatból szed be - ez a "Nevek" lapon, a "NevekPontok" táblázatban van)
-
scott_free
senior tag
válasz Delila_1 #27378 üzenetére
hát hogy ha az eredeti érték megváltozik (nő a pontszám), akkor felülírja automatikusan, nem?
HA függvénynél nem tudok megadni olyat, hogy ha IGAZ, akkor ne tegyen semmit. (ne írja felül a cellában lévő értéket) - vagyis csak iterációval.
pl. C2-be ezt: HA(C2=0;J2;C2)esetleg még időbélyegzőt tudnék hozzárendelni a pontok változásához, de akkor meg nagyon bonyolult lenne a választó-hivatkozás
[ Szerkesztve ]
-
scott_free
senior tag
válasz Delila_1 #27380 üzenetére
hát, valahol elvesztettem a beszélgetés fonalát :/
cserébe egy újabb kérdés:
azt hogyan lehet megoldani, hogy ha újraszámolódik egy cella tartalma, az indítson el egy makrót az adott soron?
tudom, hogy van a Worksheet_Calculate() , de ott hogyan kell megadni, hogy mely cellákat figyelje?[ Szerkesztve ]
-
sedyke
tag
válasz Delila_1 #27392 üzenetére
Eleg nagy munkafuzet, 17MB, 33 munkalappal.
Eddig az osszesitom a masodik volt, de atraktam az elso helyre. A ket munkalap, amit ki szeretnek hagyni a keresesbol, a 29. es 33. (leszamoltam 3x).A leirasod alapjan igy egeszitettem ki. Fut a makro, a problema annyi, hogy megis minden egyes sorba beirja, hogy az adott termek hasznalatban van, pedig ha kihagyna a ket szoban forgo lapot, akkor nem lenne.
Sub Van_e()
Dim talal, sor As Long, usor As Long, nev, lap As Integer
Dim WS As WorksheetSet WS = Sheets(1)
usor = WS.Range("A" & Rows.Count).End(xlUp).Row
For sor = 4 To usor
nev = WS.Cells(sor, "A")For lap = 1 To Sheets.Count
If lap = 29 Or lap = 33 Then Exit For
Sheets(lap).Select
Set talal = Cells.Find(nev, LookIn:=xlValues, lookat:=xlWhole)
If talal Is Nothing Then
GoTo Tovabb
Else
WS.Cells(sor, "W") = "in use"
Exit For
End If
Tovabb:
Next
Next
End Sub -
-
m.zmrzlina
senior tag
válasz Delila_1 #27424 üzenetére
Ez igaz csak többféle listáról van szó és az összehasonlítani kívánt tartományok hossza változhat illetve a második oszlop mindig máshol van.
Ezért van változóban a tartományok határainak egy része. Ráadásul a munkalapokon (sok-sok)minden mást makró csinál ezért gondolkozom makróban. Valamint az ellenőrzést a makró többi részétől függetlenül is le kell tudni futtatni és nem akarok minden munkaapot felképletezni (nincs is rá lehetőség illetve nem egyszerű.
Ez most makrós feladat.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Delila_1 #27424 üzenetére
Érdekes mert egy korábbi verziójában a makrónak ez az értékadés csont nélkül lefut:
Dim arrAnalist() As Variant
Dim arrDigilist() As Variant
Dim intHibakszama As Integer
Dim strHibahely As String
Dim intI As Integer
Set wbSpss_kod = ThisWorkbook
Set wsSyntax = wbSpss_kod.Worksheets("SPSS_syntax")
Set wsKabelo = wbSpss_kod.Worksheets("kabelo")
intDigitlista_oszlop = wsSyntax.Range("AB3").Value
intListahossz = wsSyntax.Range("AC3").Value
arrAnalist() = wsKabelo.Range("A2:A" & intListahossz)
arrDigilist() = wsKabelo.Range(wsKabelo.Cells(2, intDigitlista_oszlop), wsKabelo.Cells(intListahossz, intDigitlista_oszlop))Próbáltam igy is átírni az újat de az sem működik.
-
zodo
nagyúr
válasz Delila_1 #27453 üzenetére
Köszönöm!
Időközben kb 3 óra alatt sikerült kreálnom egy elfogadható táblázatot.
Nagyon keveset de már találkoztam táblázatkezelővel és azért volt némi fogalmam csak nem tudtam mit hol és milyen néven keressek ill. adjam meg a paramétereket.
Igaz nem MS hanem OpenOffice de talán elfér itt ez a kép róla.Napi 3 bejegyzés lehetőség / fő és ezek D oszlopban, napi szinten összeadva.
F és G oszlop kettőnk havi kiadásának összege.
H oszlop előzőek különbözeti értéke, rám vetítve.
Feltételes formázással plusz esetén zöld háttér vagy negatív értéknél piros színű cella háttérszínnel.
I oszlop a lakással kapcsolatos kiadások értéke (csekkek, közös költség, biztosítás) (ezeket a párom fizeti)
J oszlop, szintén rám vetítve (=H2-I2) adja meg a havi különbözet értékét. -
scott_free
senior tag
válasz Delila_1 #27498 üzenetére
köszi, most így van megadva:
Private Sub UserForm_Initialize()
Dim lista1 As Range
Set lista1 = Worksheets("Munka1").Range("A1:A10")az egyik választógombnál meg így:
Private Sub OptionButton1_Click()
Set lista1 = Worksheets("Munka1").Range("A1:A10")akkor ehelyett elég lenne az elsőnél Public-ként megadni?
-
scott_free
senior tag
-
RedHarlow
aktív tag
válasz Delila_1 #27626 üzenetére
Nem ügyintéző szerint, hanem az egyetem 7 "karja" szerint kell szétválogatni. Tehát lesz 7 fül.
A 6. oszlopban vannak az ügyintézők nevei:
X1, X2, X3, X4 = A karon ügyintéző
X5, X6 = B karon ügyintéző
X7 = C karon ügyintézőEz az első fontos szűrés. De mivel vannak olyan sorok ahol nincs megadva ügyintéző, így a képzéskódok szerint kell ezeket tovább szűrni.
Az 5. oszlopban pedig a képzéskódok.
Y1, Y2, Y3 = A kar képzése
Y4, Y5, Y6 = B kar képzése -
RedHarlow
aktív tag
válasz Delila_1 #27629 üzenetére
Ha a 6. oszlopban az ügyintéző X1 vagy X2 akkor másolja át a sort az első fülre.
Ha a 6. oszlopban az ügyintéző X3 vagy X4 akkor másolja át a sort a második fülre.Ha a 6 oszlop üres, de az 5. sorban a képzés Y1, vagy Y2, vagy Y3 akkor másolja át az első fülre.
Ha a 6 oszlop üres, de az 5. sorban a képzés Y4 vagy Y5 vagy Y6 akkor másolja át a második fülre.A lényeg tehát hogy a fő táblázatban minden kar adata ott van és nekem szét kell válogatnom karonként, úgy hogy nekem az ügyintéző nevei vannak megadva egy listában (karonként 2-5) de sajnos vannak olyan sorok ahol nincs megadva ügyintéző.
8 ilyen táblázatot kell 7 felé vállogatni.
-
Polllen
nagyúr
válasz Delila_1 #27631 üzenetére
Sziasztok!
Nekem kellene egy hasonló megoldás, csak kicsit bonyolítva.
4 oszlopban vannak adatok, az első a szállítólevélszám.
Minden szállítólevélhez kell egy worksheet a szállítólevélszámmal és oda kellene másolni a hozzátartozó sorokat fejléccel.
Természetesen a szállítólevelek darabszáma változó.
"Odamentem egy párhoz...négyen voltak!"
-
poffsoft
addikt
válasz Delila_1 #27710 üzenetére
pontosabban:
a selection áll az "A1"-ből, és az "A2"-ből : ez 2 single cell, és nem jó.
a selection áll "B1:B3"-ból, ez egy összevont cellákból álló range, de 1 db összevonás, ez jó.
a selection áll a "B1:B3" és "C1:C3" külön-külön összevont range-kből, ez nem jó.[ Szerkesztve ]
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Vírusirtó, Antivirus VPN kulcsok
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Promenade Publishing House Kft.
Város: Budapest