Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz prodrakan #2900 üzenetére
Próbáld ezzel:
Sub IndexFuggveny()
Dim UresSor As Long
UresSor = Range("K1").End(xlDown).Row + 1
Do
If Cells(UresSor, "A") = "" Then UresSor = UresSor + 1
Loop Until Cells(UresSor, "A") <> "" And Cells(UresSor, "K") = ""
Range("C" & UresSor & ":C5000") = "=INDEX('\\Hubudr99102dat\mf\MF3\" _
& "FEMSZERK_TERMELES\Fémszerkezet\2015.08.01_Komponens_és_szekrény_gyártás\" _
& "Tervező\2017\[Tervező_2017.xlsm]Planner'!$I$" & UresSor & ":$I$5000;HOL.VAN(A" & UresSor & "," _
& "'\\Hubudr99102dat\mf\MF3\FEMSZERK_TERMELES\Fémszerkezet\2015.08.01_Komponens_és_szekrény_gyártás\" _
& "Tervező\2017\[Tervező_2017.xlsm]Planner'!$A$" & UresSor & ":$A$5000,0))"
End SubA Range("K1").End(xlDown).Row a K1 cellán nyomott Ctrl+le művelet VBA-s megfelelője. Ez az első, üres cella fölötti sor értékét adja meg. 1-et hozzáadva megkapjuk az első üres cella sorát a K oszlopban.
Ha ez a sor az A oszlopban üres, addig növeljük a sorszámot, míg igaz nem lesz, hogy a K üres, az A nem.
Ide, ill. innen az ötezredik sorba írjuk be (nálam a C oszlopba, te majd átírod) a hosszú képletedet, egy lépésben.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
prodrakan
csendes újonc
válasz Delila_1 #2901 üzenetére
[kép]
Szia!Köszönöm a segítséget,de szerintem nem jól írtam le valamit mert ez így nem az amit szerettem volna.
Csatoltam egy képet.
Van egy "Excel1" ami tartalmaz A-oszlopot és egy G-oszlopot és az A-oszlop adatát kell ellenőriznie egy másik "Excel2" A-oszlopába és ha megtalálta akkor a vele egy vonalba az I-oszlopba található adatot másolja át az "Excel1" A és G oszlop metszéspontjába.
A függvényt csak addig futtassa,amíg az Excel1 A-oszlopába van adat.[ Szerkesztve ]
-
prodrakan
csendes újonc
válasz Delila_1 #2903 üzenetére
Excel1 A4=adat és G4=adat akkor ugrik a következő sorba és ott
A5=adat és G5=semmi akkor keresse az
Excel2-ben az Excel1 A5-öt méghozzá Excel2 A1:A50000-ig és ha mondjuk megtalálja az
Excel2 A3500-ban akkor az Excel2 I3500-cellában található adatott másolja át a
Excel1 G5-be de,ha nem talál semmit akkor folytassa az
Excel1 A6=adat és G6=adat akkor
Excel1 A7=semmi akkor itt vége a futtatásnakAz Excel1 és Excel2 csak a könnyebb magyarázat miatt van.
Remélem,így jobban értelmezhető.[ Szerkesztve ]
-
Delila_1
veterán
válasz prodrakan #2904 üzenetére
Feltettem a 2 fájlt.
Mindkét füzet legyen nyitva, az Excel1.xlsm-be kitettem egy gombot a makró indításához.
Érdemes az alsó sorból indulni, és addig keresni felfelé a G oszlopban az üres cellákat, míg fel nem jutunk a 3-as sorban lévő címsor fölé.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
prodrakan
csendes újonc
válasz Delila_1 #2905 üzenetére
Na ez egész jónak tűnik!
Jó lenne,ha a másik Excel nem kéne külön megnyitnom,hanem a makró automatikusan a futtatás idejére megnyitná majd bezárná.
A másik kérdésem az lenne,hogy ugyanebbe a makróba macerás lenne belerakni plusz egy oszlop figyelést vagy inkább arra külön még egyszer ugyanezt csak átírom az "I" oszlop figyelést másra?
Msbox ablak felugorhatna arra az időre amíg ez lefut mondjuk egy olyan kiírással,hogy "Dolgozom" vagy "Adatokat gyűjtök"?Kíváncsi leszek,hogy több ezer sornál hogy fog lefutni,de remélem gyors lesz.
Köszönöm az eddigit is!
Üdv,
Laci -
Delila_1
veterán
válasz prodrakan #2906 üzenetére
Beírtam a makróba, hogy amíg dolgozik, a státuszsorban megjelenik a "Nyugi, dolgozom" szöveg. Kevés adatnál nem látszik, olyan gyorsan eltűnik.
Pontosítanod kellene, melyik oszlopot akarod még figyeltetni, mit figyeljen a makró, és mit tegyen.
Sub Kikeres()
Dim UresSor As Long, WSInnen As Worksheet, WSIde As Worksheet
Dim TalalSor, usor As Long, WF As WorksheetFunction
Set WSInnen = Workbooks("Excel2.xlsx").Sheets("Munka1")
Set WSIde = Workbooks("Excel1.xlsm").Sheets("Munka1")
Set WF = Application.WorksheetFunction
WSIde.Activate
Application.StatusBar = "Nyugi, dolgozom"
Application.ScreenUpdating = False
usor = Range("G" & Rows.Count).End(xlUp).Row
Do
UresSor = Range("G" & usor).End(xlUp).Row - 1
If UresSor < 3 Then
Application.StatusBar = False
Application.ScreenUpdating = True
Exit Sub
End If
If Cells(UresSor, "A") <> "" Then
On Error Resume Next
TalalSor = WF.Match(Cells(UresSor, "A"), WSInnen.Columns(1), 0)
Cells(UresSor, "G") = WSInnen.Cells(TalalSor, "I")
On Error GoTo 0
Else: usor = UresSor - 1
End If
Loop Until Cells(UresSor, "A") <> "" And Cells(UresSor, "G") = ""
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
prodrakan
csendes újonc
válasz Delila_1 #2907 üzenetére
Köszönöm!
Annyi hibát észleltem amúgy,hogyha az Excel1 "G" oszlopába a "Zöldség" megnevezésen kívül mindent kitörlök akkor valamiért nem csinálja meg és befagy.
A többi oszlopba is ezen az elven kell dolgoznia a makrónak.
AZ "A"-oszlop a fő szempont a többinél is annyi a változás,hogy az Excel1-ben ugyan ezt a feltételt futtassa le csak több oszlopot kell figyelnie azaz:
Az Excel1-ben van "A" & "G" & "J" & "K" oszlopok
Az Excel2-ben van "A" & "I" & "J" oszlopok
És van egy Excel3 amiben van "A" & "I" oszlopokAz Excel1 "A" & "G" oszlopokat összefésüli az Excel2 "A" & "I" oszlopokkal "Ez amit már megoldottál!"
Amit még kéne hogy:
Az Excel1 "A" & "J" oszlopokat fésülje össze az Excel2 "A" & "J" oszlopokkal "Az elmélet ugyan az mint az előzőnél"
Továbbá van egy Excel3!
Amit itt kéne figyelnie :
Az Excel1 "A" & "K" oszlopait kéne összefésülnie az Excel3 "A" & "I" oszlopaival "Az elmélet ugyan az mint az előzőnél"Ami jó lenne,ha nem kéne megnyitni kézzel mind a három Excel táblázatot vagyis az Excel1 táblázatba levő makró futtatásakor azaz a futtatás idejére nyissa meg magától az Excel2 & Excel3 táblázatokat majd zárja is be őket.Az esetleg az mennyire számítana,hogy a makró indításakor megnyitná az Excel2 és lefuttatná az ellenőrzést és bezárná majd megnyitná az Excel3-at és lefuttatná itt is az ellenőrzést majd bezárná vagyis lehetőleg ne egyszerre legyen nyitva 3-darab Excel mert az lehet lassítaná.
Előre is köszönöm!
[ Szerkesztve ]
-
Delila_1
veterán
válasz prodrakan #2908 üzenetére
Feltettem az újabb verzió-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.
-
prodrakan
csendes újonc
válasz Delila_1 #2909 üzenetére
Na tesztelgettem és alapvetően tök szuper viszont a befagyás ennél is megvan.
Azt vettem észre,hogy ha az utolsó vagy utolsó előtti sorból kitörlök és elindítom a makrót akkor lefagy az egész Excel.
Tehát,ha az Excel1 "G" & "J" & "K" oszlopok bármelyikéből kitörlöm az utolsó vagy utolsó előtti sort akkor lefagy.
A fentieken kívül ugyanez a helyzet az Excel1 15.-ik sorától felfele vagyis,ha a "G" & "J" & "K" oszlopok 13. vagy 14.-sorból hiányzik adat akkor szintén lefagy.
Az összes többi területen nem produkálja a hibát max.,ha a Excel1 "G" & "J" & "K" oszlopok teljes tartalmát kitörlöm. -
Delila_1
veterán
válasz prodrakan #2910 üzenetére
Feltöltöttem az Excel1-et. Mindhárom oszlopban töröltem az utolsó sorokat, azokat is kitölti a makró.
A lefagyásnak valami helyi oka lehet, nálam nem fordul elő.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
prodrakan
csendes újonc
válasz Delila_1 #2911 üzenetére
Szia!
Csatoltam egy képet amin bejelöltem hol van a gond.
Amúgy a pirossal jelölt szakaszokon kívül bárhonnan kitörlök azt tök jól betölti!
,kivétel ha a piros kereten belül bármelyik cellából hiányzik adat a G;J;K valamelyikéből.Kipróbáltam a munkahelyi és az otthoni gépen is,ugyanaz a hiba.
-
Delila_1
veterán
válasz prodrakan #2912 üzenetére
Annál a módszernél, amit írtál (első üres sortól kezdje bemásolni a másik 2 fájlból az adatokat), túl sok a hibalehetőség. Most megírtam úgy, hogy az első adattól, a 4. sortól fusson végig egy For-Next ciklussal addig a sorig, ahol az A oszlopban megtalálja az utolsó adatot.
Az útvonal értékét a makró 10. sorában kell átírni, és esetlegesen új értéket adni neki a 36. sor előtt.
[ 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.
-
prodrakan
csendes újonc
válasz Delila_1 #2913 üzenetére
Na most úgy néz ki,hogy tök szuper lett!!!!
Extraként olyat meg lehet neki adni,hogy melyik héttel kezdje az ellenőrzést?
Tehát minden maradna,ahogy most van csak felugrana egy ablak,ahol megkérdezné melyik héttel kezdjek.
Az Excel1-ben a "B"-oszlopban 1-52.-ig lennének számok és azt szeretném,ha feljönne egy kérdés ahol lenyíló füllel kiválasztható lenne tól-ig meddig futtasa végig az ellenőrzést majd a felugrott ablakon belül egy INDÍT gomb megnyomásával a makró végigfutna.Ha ez nem fér bele az sem gond,mert már így is tök szuper,de akkor lenne igazán tökéletes.
-
Delila_1
veterán
válasz prodrakan #2914 üzenetére
A makrót írd át.
Sub Parosit()
Dim usor As Long, sor As Long, utvonal As String
Dim WB1 As Workbook, WB2 As Workbook, WB3 As Workbook
Dim WF As WorksheetFunction, TalalSor As Long
Dim kezd As Long, vegez As Long
Set WB1 = Workbooks("Excel1.xlsm")
Set WF = Application.WorksheetFunction
utvonal = "F:\Eadat\Excel fórumok\PH\"
kezd = Application.InputBox("Add meg a kezdő hét sorszámát", "Kezdő hét", , , , , , 1)
vegez = Application.InputBox("Add meg a záró hét sorszámát", "Záró hét", , , , , , 1)
kezd = WF.Match(kezd, Columns(2), 0)
vegez = WF.Match(vegez, Columns(2), 1)
Application.StatusBar = "Nyugi, dolgozom"
Application.ScreenUpdating = False
usor = WB1.Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
'Excel2-ből I oszlop az Excel1 G-be
Workbooks.Open Filename:=utvonal & "Excel2.xlsx"
Set WB2 = Workbooks("Excel2.xlsx")
WB1.Activate
For sor = kezd To vegez
If Cells(sor, "G") = "" And Cells(sor, "A") <> "" Then
TalalSor = WF.Match(Cells(sor, "A"), WB2.Sheets("Munka1").Columns(1), 0)
Cells(sor, "G") = WB2.Sheets("Munka1").Cells(TalalSor, "I")
End If
If Cells(sor, "J") = "" And Cells(sor, "A") <> "" Then
TalalSor = WF.Match(Cells(sor, "A"), WB2.Sheets("Munka1").Columns(1), 0)
Cells(sor, "J") = WB2.Sheets("Munka1").Cells(TalalSor, "J")
End If
Next
WB2.Close False
'Excel3-ból I oszlop az Excel1 K-ba
Workbooks.Open Filename:=utvonal & "Excel3.xlsx"
Set WB3 = Workbooks("Excel3.xlsx")
WB1.Activate
For sor = kezd To vegez
If Cells(sor, "K") = "" And Cells(sor, "A") <> "" Then
TalalSor = WF.Match(Cells(sor, "A"), WB3.Sheets("Munka1").Columns(1), 0)
Cells(sor, "K") = WB3.Sheets("Munka1").Cells(TalalSor, "I")
End If
Next
WB3.Close False
Application.StatusBar = False
Application.ScreenUpdating = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
prodrakan
csendes újonc
válasz Delila_1 #2911 üzenetére
Elkezdtem tesztelgetni élesbe már az én Exceljeimmel.
Az egyik Excel-el jól működik azaz az Excel1 és Excel2-őt sikerült összhangba hozni,de nálam másképp van nyilván elnevezve,de valami baja van a harmadik Excel-el azaz legyen Excel3-al.
Valamiért ezzel a sorral van baja:
TalalSor = WF.Match(Cells(sor, "A"), WB3.Sheets("Planner").Columns(1), 0)Üdv,
Laci -
zakoss
tag
Sziasztok,
VB + MS SQL-el kapcsolatos kérdésem lenne.
Ezek között lévő kapcsolat, illetve kommunikáció kimenetelével. Van itt valaki kolléga aki ebben tudna privátban némileg segítséget nyújtani? (táblák, lekérdezések, rendezés, megjelenítés)
Hálás lennék érte.[ Szerkesztve ]
-
Ispy
veterán
válasz martonx #2923 üzenetére
Egy biztos: én sosem használok ilyen beépített varázslókat, mindig csak a baj van velük.
Helyett tudom ajánlani az SqlConnection classt.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
zakoss
tag
-
martonx
veterán
Szerintem ehhez nem is kell programozás, elég lenne ismerni, hogy mi mindent tud az Office pl. a Word körlevél küldő funkciója [link]
Másrészt, ha már mindenáron programozni akarsz olyan feladatot, amit amúgy Wordben pár kattintással meg lehet oldani, akkor tessék: [link][ Szerkesztve ]
Én kérek elnézést!
-
LeG3Nd
tag
Sziasztok!
Olyan problémába futottam amihez egyedül már kevés vagyok A dolgokat máshogy neveztem el nehogy a munkahelyen gondok legyenek.
Tegyük fel hogy van egy cukorgyár, ami többféle cukorkát gyárt. Mindegyikhez csak egy recept tartozik, azonban ezeken a recepteken néha módosítanak. A cukorkákat gyártó gépekhez tartozik műveleti utasítás, hogyan és mit kell beállítani hogy épp az adott fajtát tudja gyártani. Tehát egy gép több fajtát tud gyártani, igénytől függően. Nevezzük ezt szériának, tehát egy adott fajta cukorkából egy gép által gyártott darabok, a gép következő fajtára történő átállításáig. Minden géphez tartozik egy minőségbiztosítási jegyzőkönyv is.
A recept, gyártási utasítás, minőség jegyzőkönyv külön fájl, utóbiból szériánként készül egy darab, illetve a recep, műveleti utasítás is módosul néha. Ezek a fájlok egy könyvtárban vannak, ömlesztve, viszont szabályos elnevezéssel, ezért a név alapján pontosan be lehet őket azonosítani. Ez így néz ki:
AAAA_BBBB_CCCC_DDDDDD.***, ahol:
AAAA: sorszám
BBBB: gyártás helye
CCCC: dokumentum típusa
DDDDDD: dokumentum kelteEzek a könnyebb kereshetőségért egy táblázatba vannak foglalva:
A feladatom az, hogy egy olyan táblát csináljak, ami mást nem tartalmaz csak egy párbeszédpanelt, ahova az adott termék azonosítóját beírva, majd a dokumentum fajtáját és a gyártás helyét (gépet) kiválasztva a legkésőbbi dátummal rendelkezőt megkeresi, és az alsó szövegdobozba mint link elhelyezi. Recept esetén természetesen nem választható a gyártás helye.
A termékhez tartozó dokumentumok azonosítása a 4 jegyű sorszám alapján történik, azonban a párbeszédablakban az azonosító alapján kell keresni, ami nem feltétlenül csak 4 számjegy, lehet szöveges is. Ezt megoldani van egy másik munkalap, ami a 4 jegyű sorszámhoz tartozó azonosítókat tartalmazza.
Ha jól sejtem ez már csak VBA-val megvalósítható feladat, amivel MsgBox-on kívül sok dolgot nem tudok alkotni, azért kérem a segítségetek.
shorter of breath and one day closer to death
-
zakoss
tag
Sziasztok, az alábbi hibával fordulnék segítségért hozzátok:
A hibajelenség az hogy amikor a Login gombomra kattintok az alábbi hibaüzenettel elszáll a programom. Valami adatbáziskapcsolat gondja lehet, eddig működött, de valamiért nem akarja rendesen feltölteni a formon az adatpert értékét.
Az adatbázisban ezek vannak:
A login form pedig a user / password megadása után végigzongoráz a táblán és megnézi hogy a felhasználó név és jelszó páros stimmel-e.Bármilyen segítséget előre is köszönök.
[ Szerkesztve ]
-
vilag
tag
Halihó!
Régen jártam erre, egy jó ideje nem volt időm VBA-val foglalkozni.
Most azonban szakítottam rá, de viszonylag hamar bele is futottam egy triviális bár számomra jelenleg megoldhatatlan problémába.
Állandóan bajban vagyok az excel és a VBA dátumkezelésével és ez újra és újra nehézségeket okoz.Most az alábbi problémával szembesültem:
Egy cellában dátumként tárolt dátumhoz tartozó másik dátumot szeretnék eredményül kapni egy dátumokat tartalmazó tömbből vlookup függvény segítségével.Eddig jutottam:
Private Sub CommandButton5_Click() 'adott sor jogerejének kiszámolása
aktivsor = ActiveCell.Row
aktivsor = Trim(Str(aktivsor))
If Range("m" + aktivsor) = "HIV" And Range("p" + aktivsor) = "" Then
uzenet = MsgBox("Nincs átvételi esemény, nem lehet jogerősíteni", 0, "Hiba") 'ideiglenes
Exit Sub
Else
If Range("q" + aktivsor) <> "nem kereste" And Range("q" + aktivsor) <> "elköltözött" And Range("q" + aktivsor) <> "címzett ismeretlen" Then
'dátum plusz 15 nap
atvdatuma = DateValue(Range("p" + aktivsor)) + 15
'atvdatuma = Trim(Str(atvdatuma))
'y = ThisWorkbook.Sheets("Jogerő").Range("a25")
x = Application.WorksheetFunction.VLookup(atvdatuma, ThisWorkbook.Sheets("Jogerő").Range("a:c"), 3, 0)
(...)Sajnos azonban az beillesztett utolsó sornál az alábbi hibaüzenetre futok:
Run-time error '1004':
Application-definied or object-definied errorMár minden általam ismert lehetséges módon próbáltam javítani, de nem sikerül.
Van valakinek ötlete mi lehet a hiba?
Előre is köszönöm!
-
-
Delila_1
veterán
A Jogerő lap A oszlopában vannak a dátumok? Lépésenként futtatva a makrót könnyebben megtalálod a hibát.
Mire jó az
aktivsor = Trim(Str(aktivsor))
sor? Hiszen fölötte azaktivsor = ActiveCell.Row
sor egész számot ad eredményül.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
vilag
tag
válasz Delila_1 #2933 üzenetére
Igen a jogerő lap A oszlopában vannak a dátumok amik között keresnie kellene.
A Trim(Str())-re azért volt szükség mert különben Run-time error '13': Type mismatch hibára futott.
Azonban most, hogy a + jeleket lecseréltem & jelre, úgy látom már semmi szükség rá, mert így enélkül sem fut a fenti hibára.
Még mindig kíváncsi lennék, hogy mi a különbség a + jel és az & jel között.
Gyakorlatilag egy sima fkeres függvényt akarok VBA-ban megcsinálni.
A fenti képen látható dátumok is dátumként formázott cellákban vannak.
-
Delila_1
veterán
A különbség az, hogy a szintaktika szerint & jelet kell alkalmazni, a + jel értelmetlen.
Csináld a következőt: írj be egy üres cellába egy egyest. Másold Ctrl+c-vel. Jelöld ki a dátumokat tartalmazó cellákat, majd Irányított beillesztés, értéket, a művelet pedig szorzás. Mindegyik dátumos tartományodra végezd el, akkor biztosan egyforma típusúak lesznek az adatok.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
vilag
tag
válasz Delila_1 #2935 üzenetére
Megcsináltam, végigléptettem, de ugyan az az eredmény mint korábban
Az utolsó sorban hibára fut.
Nem lehet, hogy az a baj, hogy amikor az atvdatuma változó felveszi az értéket az így néz ki:
atvdatuma = 2017.12.04.
Azaz idézőjelek nélkül és a nap után ponttal, a dátumos cellákban meg ugye idézőjelekkel és a nap után pont nélkül szerepelnek a dátumok.
Nem lehet, hogy ez okozza a problémát?
-
vilag
tag
válasz Delila_1 #2937 üzenetére
=FKERES(P7241;Jogerő!A:C;3;0)
#HIÁNYZIK hibára fut.
=FKERES(ÉRTÉK(P7241);Jogerő!A:C;3;0)
Így viszont eredményes.
Viszont ha a kódot kiegészítem ezzel:
atvdatuma = Val(atvdatuma)
akkor a atvdatuma = 2017,11 lesz, nem pedig dátumérték
Ebbe az irányba már próbáltam korábban elmenni, de ugyan ide lyukadtam ki.
Pedig szinte biztos vagyok benne, hogy ez lenne a megoldás kulcsa.[ Szerkesztve ]
-
-
vilag
tag
válasz Delila_1 #2939 üzenetére
x = Application.WorksheetFunction.VLookup(atvdatuma * 1, ThisWorkbook.Sheets("Jogerő").Range("a:c"), 3, 0)
Így működik
Utálom az excel dátumkezelését, és továbbra sem értem, hogy miért működik ha 1-el megszorzom.... de működik és most csak ez számít, remélem így már be tudom fejezni a kódot.
-
Delila_1
veterán
Mégis szövegként volt tárolva a keresendő érték. A dátum egy szám. Ha a szövegként tárolt, de számjegyeket tartalmazó cella értékét felszorzod 1-gyel (vagy hozzáadsz nullát), akkor számmá alakítod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
vilag
tag
válasz Delila_1 #2941 üzenetére
Pedig ha megnyitom a cellaformázás menüt akkor az van a "Szám" fülön, hogy "Dátum", típus: "*2001.03.14"
Ezért utálom én az excel dátumkezelését, mert gyakran még maga sem tudja, hogy mi micsoda.
Most pedig megpróbálom befejezni a kódot.
Még egyszer nagyon köszönöm!
Ma ismét tanultam valamit. -
Delila_1
veterán
Üzletpolitika, és nagyon bejött. Nem véletlen, hogy minden felhasználó ország saját nyelvére lefordíttatta a Microsoft a függvényeket, és persze a menüt, meg a többit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
vilag
tag
-
Lokids
addikt
Sziasztok!
Miért lehet az, hogy 2 látszólag egymástól független range változó Subscript out of range hibát okoz?
Set s_PrjRng = Workbooks(Main_WB_Name).Worksheets(KAT_WB_Projects_Sheet).Range(NotNeeded_Prj_Name)
For actRow = 2 To 95 'InputTRows
s_PrjName = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(actRow, ColumnLetterToNumber(Data_KAT_Projname))
For Each s_prng In s_PrjRng 'Workbooks(Main_WB_Name).Worksheets(KAT_WB_Projects_Sheet).Range(NotNeeded_Prj_Name)
If s_PrjName = s_prng.value Then
i = i + 1
End If
Next s_prng
s_Status = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(actRow, ColumnLetterToNumber(Data_KAT_Stat))
If (s_Status <> "5 - Lezárt") And (s_Status <> "4 - Zárás") And (i = 1) Then
If actRow = 2 Then
Workbooks(OutputKAT_F_Name).Worksheets(1).Name = Left(s_wsName, 31) '2017.09.26
Write_Header5 OutputKAT_F_Name, s_wsName
End If
CopyRow OutputKAT_F_Name, s_wsName, s_OutRow, actRow
s_OutRow = s_OutRow + 1
End If
i = 1
Next actRowEz meghívja a CopyRow-ot, amin belül pedig van egy ilyen rész:
Set s_RowRange = Workbooks(p_WB).Worksheets(p_WS).Range(HeaderKAT_Frst_Col & p_Row & ":" & HeaderKAT_Last_Col & p_Row)
For Each s_Cell In s_RowRange
s_CNum = Workbooks(Main_WB_Name).Worksheets(KAT_WB_Head_Sheet).Cells(4, s_Cell.Column)Ez utóbbi jól működött egészen addig, amíg a fenti Range bele nem került. Most a Set s_RowRange sornál hibát dob.
És nem értem miért.
If you chase two rabbits you will lose them both.
-
Delila_1
veterán
Akkor van bibi, ha a
HeaderKAT_Frst_Col
változó értéke szám.Szám esetén
Set változó=range(cells(sor1, oszlop1), cells(sor2, oszlop2) ) formában adhatsz értéket.
[ 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.
-
Delila_1
veterán
Valahol elvész a változó értéke. Lépésenként futtatva megtalálod az eltűnés helyét. Valószínűleg nem publikusként deklaráltad a változó(ka)t, vagy a 2. makró meghívásánál elmulasztottad a változó(k) átadását.
Ha "Konkrétan az mindig "A" lesz.", akkor miért teszed változóba, mikor fixen is megadhatnád, és nem foglalnád vele a memóriában a helyet?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.