Új hozzászólás Aktív témák

• #27426 m.zmrzlina senior tag Delila_1 #27424

  Új Válasz 2015-06-18 16:36:57 #27426

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #27425 m.zmrzlina senior tag Delila_1 #27424

  Új Válasz 2015-06-18 16:29:51 #27425

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

Új hozzászólás Aktív témák