-
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
-
tomi_x
tag
Sziasztok !
Egy kis segítséget szeretnék kérni. Hogy fel tudjam tenni a kérdést, leegyszerűsítettem a feladatot.
Adott a mellékelt kép szerinti táblázat. A D oszlopba akkor kellene az értékeket átírni ha a B oszlop értéke Kp felvétel vagy Kp bevétel.
Ezzel próbáltam : =SZUMHATÖBB(C2;B2;"Kp felvétel";B2;"Kp bevétel")
De nem akart működni.
Mit rontottam el ? Vagy másik függvényt kellene használnom ?Előre is köszi a segítséget.
[ Szerkesztve ]
-
tomi_x
tag
Sziasztok !
Megint lenne kérdésem.
Adott egy táblázat, amelyet többen használunk. Szeretném a kitöltött cellákat zárolni, hogy csak jelszóval lehessen törölni vagy modosítani.
Csak makróval lehetséges ?Előre is köszi
-
tomi_x
tag
válasz Véreshurka #44089 üzenetére
Így megy nekem is.
De úgy kellene megoldanom, hogy amint egy cellába valaki beír adatot az zárolt legyen, vagy esetleg egy vezérlő gombbal megoldani, hogy "adatbevitel lezárása". -
tomi_x
tag
Sziasztok!
Adott egy táblázat, amelyben egyes cellák adatait egy másik file-bol importálja.
A táblázatot viszont szeretné olyan valaki is megnézni akinek nincs meg a másik file.
Be lehet valahol állítani, hogy ne frissítsen és az adatokat lássa, ne a képletet ? -
tomi_x
tag
Sziasztok !
Tudnátok segíteni abban hogy az alábbi programsorra miért kapot azt a hiba üzenetet hogy "Syntax error" ?
Sheets("Összesítés").Range("M2").Formula = "=KÖZÉP(CELLA("filenév";$A$1);1;(SZÖVEG.TALÁL("[";CELLA("filenév";$A$1)))-1)"
Előre is köszi
-
tomi_x
tag
válasz Fire/SOUL/CD #44391 üzenetére
-
tomi_x
tag
Köszönöm mindenkinek a segítséget, ez gyorsan ment.
Végülis Delila megoldása volt a legegyszerűbb.
-
tomi_x
tag
Sziasztok !
Segítséget szeretnék kérni.
Adott egy táblázat adatokkal(név, cím és stb.). Egy word dokumentumot kellene létrehoznom, ahol a kiválasztott személy adatait a megfelelő helyre importálja az excel táblázatból. Lehet ezt valahogy automatizálni, vagy marad a kézi gépeléses megoldás.
Excelben meg tudom oldani, csak ott a dokumentum formátuma nem elfogadható.
Előre is köszi
tomi -
tomi_x
tag
Sziasztok !
Írtam egy makrót, amelynek a következő a feladata:
Elsőként nyit egy új munkafüzetet, majd menti is. Ezután az eredeti munkafüzet adatait soronként vizsgálja. Ha az adott sor "A" oszlop értéke megfelel a feltételnek, akkor átmásolja az újonnan nyitott munkafüzetbe.
Tökéletesen müködik is, viszont nagyon zavar ahogy ugrál a munkafüzetek között.
Le lehet ezt valahogyan tiltani ?
Pl csak fusson le, de a munkafüzetek közti ugrálást ne jelenítse meg ?
Előre is köszi.
tomi -
tomi_x
tag
válasz Fferi50 #46134 üzenetére
Köszi, tökéletesen működik.
Viszont most a formázásnál akadtam meg.
A feladat az lenne, hogy ha a sorszám megegyezik a következővel akkor bizonyos cellák tartalma ne látszódjon, ha nem egyezik meg akkor pedig kap egy alsó szegélyt a sor.
Az alábbi kóddal próbálkoztam:For i = 2 To utolso_sor_formazas
kovetkezo_sor = i + 1
elozo_sor = i - 1
If Worksheets(1).Cells(i, 1).Value = Worksheets(1).Cells(kovetkezo_sor, 1) Then
Worksheets(1).Range("I" & i & ":O" & i).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Else
Worksheets(1).Range("a" & i & ":O" & i).Select
MsgBox "várj" 'jó tartomány van-e kijelölve
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
Next
Ennek sajna ilyen az eredménye:
Ötlet hogy 4. , 5. sornál miért nem hajtja végre a szegélyezést ?
-
tomi_x
tag
Sziasztok !
Egy olyan kérdésem lenne , hogy lehet e cellákat zárolni képlettel, vagy feltételes formázással ?
Előre is köszi
tomi -
tomi_x
tag
Sziasztok !
Az alábbi kódom van, ami nem akar működni:
Dim a As Range
For i = 6 To 60
With Worksheets("Adatok").Range("a1:a100”)
Set a = .Find(What:=Worksheets("Számla lista").Cells(i, 3).Value, LookIn:=xlValues)
If a = Worksheets("Számla lista").Cells(i, 3) Then
MsgBox "van "
Else
MsgBox "nincs "
End If
End With
Next
Ha az If feltétel igaz akkor jó, de ha hamis akkor az alábbi hibát kapom:
vba runtime error 91 object variable or with block variable not set
Mit rontottam el ?
Előre is köszi a segítséget.[ Szerkesztve ]
-
tomi_x
tag
Sziasztok !
Egy kis segítséget szeretnék kérni.
Adott egy táblázat:
B oszlopban nevek
C oszlopban dátumok
D oszlopban szöveges leírás
Egy napon, egy névhez előfordulhat több leírás is.Ebből kellene létrehoznom egy olyan táblázatot, ami az alábbiakat tartalmazza:
F oszlop dátum
G oszlop név
H oszlop leírás, leírás.....Ebben kérném segítségeteket, hogy milyen függvényekkel tudom megoldani.
Előre is köszi. -
tomi_x
tag
Sziasztok !
Egy excel sablont szeretnék használni, amiben 2 cellához van magyarázó jegyzet.
Ezeket ki lehet törölni valahogyan ?köszi
tomi -
tomi_x
tag
Sziasztok !
Egy kis segítséget szeretnék kérni.
Office365-t használunk és vannak táblázatok amiket online is szeretnénk megnézni.
Előfordulhat az hogy az asztali alkalmazásban használt CELLA függvényt az online változat nem ismeri ?Köszi
tomi -
tomi_x
tag
Sziasztok !
Segítséget szeretnék kérni.
Egy nyilvántartás B oszlopa tartalmazza a neveket. Ezek a nevek nem térhetnek el a már használt nevektől, melyeket egy másik táblázat tartalmaz. Ezt meg tudom oldani egy adatérvényesítéssel. De hogyan lehetne úgy megoldani, hogy az első pár karakter begépelése után feldobjon egy találati listát ?
ActiveX Beviteli lista vezérlővel próbálkoztam, ami működik is.
Csak abban a táblázatban amiben használnom kell, ott is 1000 fölötti sor lesz, így akkor ennyi vezérlőelemet kell létrehoznom ?Előre is köszönöm a segítséget.
tomi
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs