Opgelost Currentregion lukt niet

[Doohan]

Beste Helper,

Ik probeer d.m.v. currentregion waarden uit een tabel te genereren maar het lukt niet helemaal. Misschien begin ik verkeerd.
2 comboboxen 1 met de te kiezen vloeistof en de andere de temperatuur. Hieruit zou ik de waarden uit de sheet koelwaterdata willen krijgen.
kan iemand mij op weg helpen. Zie bijlage

Alvast vriendelijk dank

 

[snb]

Zo wel:

Private Sub Worksheet_Activate()
     sn = Blad4.Cells(1).CurrentRegion.Columns(1).SpecialCells(2)

     For j = 1 To UBound(sn)
         If InStr(c00 & "_", "_" & sn(j, 1) & "_") = 0 Then c00 = c00 & "_" & sn(j, 1)
     Next
    
     cboMedium.List = Split(Mid(c00, 2), "_")
End Sub

Private Sub cboMedium_Change()
    sn = Blad4.Cells(1).CurrentRegion
    
    For j = 1 To UBound(sn)
      If sn(j, 1) = cboMedium Then c00 = c00 & "_" & sn(j, 2)
    Next
    
    cboTemp.List = Split(Mid(c00, 2), "_")
End Sub

 

[Doohan]

@snb Dank je voor de werkende code.
Nu heb ik nog geprobeerd om bv op blad1.range("H12") de waarde te krijgen die bijbehorende viscositeit in de tabel aan de hand van de combobox selectie.

 For j = 1 To UBound(sn)
      If sn(j, 1) = cboMedium Then C00 = C00 & "_" & sn(j, 2)
        Blad1.Range("H12").Value = sn(j, 1)

    Next

als ik dit ook aan het werk heb dank zij jullie ben ik weer een stukje VBA wijzer.
Alvast vriendelijk dank

 

[snb]

Private Sub cboTemp_Change()
    If cboTemp.ListIndex > -1 Then
      sn = Blad4.Cells(1).CurrentRegion.Columns(1).SpecialCells(2)
      
      For j = 1 To UBound(sn)
         If sn(j, 1) & sn(j, 2) = cboMedium & cboTemp Then Exit For
      Next
      
      If j < UBound(sn) + 1 Then Cells(12, 8).Resize(, 3) = Array(sn(j, 4), sn(j, 5), sn(j, 6))
    Next
End Sub

 

[Doohan]

Beste SNB,

Ik krijg de melding dat er een NEXT zonder FOR in staat aangezien dit voor mij een leer moment is maar wel een heel klein beetje VBA kan lukt het mij toch niet om de code werkend te krijgen.

 

[snb]

Zoek de verschillen, maar geef vooral niet te snel op.

Private Sub cboTemp_Change()
    If cboTemp.ListIndex > -1 Then
      sn = Blad4.Cells(1).CurrentRegion.Columns(1).SpecialCells(2)
     
      For j = 1 To UBound(sn)
         If sn(j, 1) & sn(j, 2) = cboMedium & cboTemp Then Exit For
      Next
     
      If j < UBound(sn) + 1 Then Cells(12, 8).Resize(, 3) = Array(sn(j, 4), sn(j, 5), sn(j, 6))
    end if
End Sub

 

[Doohan]

Beste SNB,

Ik probeer me echt wel in current region vast te bijten maar ik vind het toch niet zo makkelijk als men doet blijken.
Ik had deze ook al geprobeerd dacht ik dus maar voor de zekerheid toch ff copy paste gedaan echter helaas .fout 9 zie bijlage

 

[snb]

Gebruik in de VBEditor knop F8 om stap voor stap door de code te lopen en te ondekken waar het euvel zit.

Private Sub cboTemp_Change()
    If cboTemp.ListIndex > -1 Then
      sn = Blad4.Cells(1).CurrentRegion
      
      For j = 1 To UBound(sn)
         If sn(j, 1) & sn(j, 2) = cboMedium & cboTemp Then Exit For
      Next
      
      If j < UBound(sn) + 1 Then Cells(12, 8).Resize(, 3) = Array(sn(j, 4), sn(j, 5), sn(j, 6))
    End If
End Sub

 

[Doohan]

Dank SNB,

De code is werkend. Ik ga hiermee verder

 

[snb]

Met een draaitabel was alles veel eenvoudiger gerealiseerd:

 

[Doohan]

Ik weet zeker dat je gelijk heb maar ik wil me vastbijten in current region mijn motto is ken je gereedschap(excel is niet mijn hoofdgereedschap) dus ik heb al heel veel gehad aan https://www.snb-vba.eu/ , draaitabellen komt later, mijn doel is bereikt.