Hirdetés
- Fűzzük össze a szavakat :)
- Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- eBay-es kütyük kis pénzért
- Asszociációs játék. :)
- Nagy "hülyétkapokazapróktól" topik
- Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Milyen mosógépet vegyek?
- Android másképp: Lineage OS és társai
- JBL Xtreme 4 vélemény (vs. BOSE)
- Szólánc.
-
LOGOUT.hu
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 ]
-
#44091
tomi_x
tag
Véreshurka
#44089
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
válasz
Fire/SOUL/CD
#44391
üzenetére
Így lenne
Sheets("Összesítés").Range("M2").Formula = "=MID(CELL("filename";$A$1);1;(SEARCH("[";CELL("filename";$A$1)))-1)"De erre meg ezt dobja ki:
-
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_formazaskovetkezo_sor = i + 1elozo_sor = i - 1If Worksheets(1).Cells(i, 1).Value = Worksheets(1).Cells(kovetkezo_sor, 1) ThenWorksheets(1).Range("I" & i & ":O" & i).SelectWith Selection.Font.ThemeColor = xlThemeColorDark1.TintAndShade = 0End WithElseWorksheets(1).Range("a" & i & ":O" & i).SelectMsgBox "várj" 'jó tartomány van-e kijelölveSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneSelection.Borders(xlEdgeLeft).LineStyle = xlNoneSelection.Borders(xlEdgeTop).LineStyle = xlNoneWith Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlMediumEnd WithSelection.Borders(xlEdgeRight).LineStyle = xlNoneSelection.Borders(xlInsideVertical).LineStyle = xlNoneSelection.Borders(xlInsideHorizontal).LineStyle = xlNoneEnd IfNext
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 !
Az alábbi kódom van, ami nem akar működni:
Dim a As RangeFor i = 6 To 60With 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) ThenMsgBox "van "ElseMsgBox "nincs "End IfEnd WithNextHa 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 !
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 -
tomi_x
tag
Sziasztok !
Sharepointon szeretnék mappát létrehozni, ha nem létezik a mappa. A mappa nevét a táblázat egy cellája tartalmazza.
De sajna a "Path not found" hibára futok.
Mit rontottam el ?
A kód:Private Sub CommandButton1_Click()
Dim mappanev As String
Dim fso As Scripting.FileSystemObject
Dim WSNET As Object
'mappa név a fejléc adatokból
mappanev =
\\tomi.sharepoint.com\Shared%20Documents\teszt%20mappa\" & Cells(10, 11).Value
MsgBox mappanev
'létező mappa vizsgálata, ha nem létezik akkor létrehozás
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSNET = CreateObject("WScript.Network")
If fso.FolderExists(mappanev) = True Then
MsgBox "A könyvtár létezik az adott könyvtárba"
Else
fso.CreateFolder mappanev
MsgBox "A könyvtár nem létezett, ezért létrehoztam"
End If
End SubElőre is köszi a segítséget.
-
tomi_x
tag
válasz
Fire/SOUL/CD
#53272
üzenetére
Köszi a segítséget, megoldódott.
De újfent elakadtam, az alábbi sorra dob fel "Subscript out of range" hibaüzenetet.Workbooks(bekernev).Sheets(2).Cells(6, 3).Value = keszito
Ahol a változók String tipusúak:
bekernev = c:\Users\tomi\OneDrive - valami\valami SharePoint mappa\Árajánlatok\teszt projekt\Árajánlat\teszt táblázat.xlsm
keszeto = az én nevemElőre is kösz a segítséget
tomi -
tomi_x
tag
válasz
Fferi50
#53286
üzenetére
Ez volna az:
Private Sub CommandButton1_Click()
Dim mappanev As String
Dim fso As Scripting.FileSystemObject
Dim WSNET As Object
Dim mappanev2 As String
Dim mappanev3 As String
Dim arajanlatnev As String
Dim fajl As Variant
Dim bekernev As String
Dim sablonnev As String
Dim keszito As String
Dim megrendelo As String
Dim kapcsolat As String
Dim ugyfel As String
Dim bekernev2 As String
mappanev = Cells(11, 11).Value & Cells(10, 11).Value
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSNET = CreateObject("WScript.Network")
mappanev2 = mappanev & "\Árajánlat"
mappanev3 = mappanev & "\Kapott anyag"
arajanlatnev = mappanev2 & "\" & Cells(9, 12).Value & ".xlsm"
bekernev = mappanev2 & "\" & Cells(13, 12).Value & ".xlsm"
Cells(9, 13).Value = arajanlatnev
Cells(13, 13).Value = bekernev
sablonnev = Cells(14, 11).Value
If Cells(9, 14).Value < 253 Then
If fso.FolderExists(mappanev) = True Then
MsgBox "A könyvtár létezik az adott könyvtárba" & vbNewLine & "Nyisd meg a meglévő árajánlatot !"
Else
fso.CreateFolder mappanev
fso.CreateFolder mappanev2
fso.CreateFolder mappanev3
'MsgBox "Mappák létrehozva." & vbNewLine & mappanev & vbNewLine & mappanev2 & vbNewLine & mappanev3
'árajánlat mentése másként
ActiveWorkbook.SaveCopyAs Filename:=arajanlatnev
Workbooks.Open Filename:=arajanlatnev
keszito = Cells(4, 3).Value
megrendelo = Cells(3, 8).Value
kapcsolat = Cells(4, 8).Value
ugyfel = Cells(8, 8).Value
MsgBox "Az Ok gomb megnyomása után tallózd ki az önköltségi sablon táblázatot !"
fajl = Application.GetOpenFilename _
(FileFilter:="Excel makróbarát fájlok, *.xlsm")
If fajl = False Then
'Cancel gombot nyomták meg
Exit Sub
End If
Workbooks.Open Filename:=fajl
ActiveWorkbook.SaveCopyAs Filename:=bekernev
ActiveWorkbook.Close
Workbooks.Open Filename:=bekernev
Sheets(2).Activate
bekernev2 = Cells(13, 16) '"'" & mappanev2 & "\" & Cells(13, 12).Value & ".xlsm" & "'"
'Workbooks(bekernev).Activate
ActiveWorkbook.Cells(13, 3).Value = megrendelo
End If
Else
MsgBox "Túl hosszú file név !" & vbNewLine & "A Projekt megnevezése mezőt tudod módosítani !"
End If
End SubSharepointon lévő mappákból, mappákba dolgozna a makró.
A mappákat, a file-ok másolatait rendben megcsinálja.
Akkor akad el amikor adatot szeretnék az egyik új file cellájába (ActiveWorkbook.Cells(13, 3).Value = megrendelo).[ Szerkesztve ]
-
tomi_x
tag
válasz
Fire/SOUL/CD
#53288
üzenetére
Ezzel sem működik.
Ezt a hibát kapom:
-
tomi_x
tag
válasz
Fire/SOUL/CD
#53290
üzenetére
Köszi a segítséget !
Ezzel a sorral tökéletesen működik:Worksheets("Kezdőlap").Cells(13, 3).Value = megrendelo
Új hozzászólás Aktív témák
Hirdetés
- Kerékpárosok, bringások ide!
- Politika
- SONY LCD és LED TV-k
- Nothing Phone 2a - semmi nem drága
- Pixelkeresés a hardverrengetegben
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- Premier előzetesen a LEGO Horizon Adventures
- SSD kibeszélő
- Calibre, az elektronikus könyvtár
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Game Pass Ultimate előfizetések 1 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, kedvező ár!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest