-
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
-
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.