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

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