Functie met een bepaalde range

Status
Niet open voor verdere reacties.

Woffels

Gebruiker
Lid geworden
8 jan 2006
Berichten
251
Goede avond,
Ik heb een Excel projectje waarin ik het mezelf een beetje makkelijk wil maken dmv een functie.
Ik wil een aantal cellen die binnen een range liggen naar een andere range kopiëren, afhankelijk van de keuze die er in de combobox gemaakt wordt.

Ik doe dit nu zo:

Private Sub R_ComboBox1_Scale_click()

If Range("R_Scale1") = "HRA" Then

Range("R_Scale1").Value = Range("R_HRA_Scale").Value
Range("R_Select1").Value = Range("R_HRA_Scale").Value
Range("R_Scale1").Value = Range("R_HRA_Scale").Value
Range("R_ASTM1").Value = Range("R_HRA_ASTM").Value
Range("R_ISO1").Value = Range("R_HRA_ISO").Value

End If
End Sub

Nu heb ik 10 comboboxen met in elke combobox 30 keuzes. Ik wil dit nu met een functie doen, maar na veel proberen loop ik toch vast. Bij het aanroepen van de functie moeten er twee variabelen mee naar de functie. In bovenstaand voorbeeld zijn dat "1" en "HRA".
Hoe roep ik nu nu de functie aan met de twee variabelen en hoe ontvang ik deze in de functie.

Groeten Erwin.
 
Laatst bewerkt:
Misschien is een voorbeeld van jouw bestand met het formulier een goede optie om het hier te plaatsen. Dat code beter tussen Codetags geplaatst kunnen worden mag je ook niet geheel onbekend zijn. Wat het verschil is tussen regel 1 en 3 onder het IF gedeelte mag je ook wel even uitleggen.

Code:
If Range("R_Scale1") = "HRA" Then t = "HRA"
Range("R_Scale1").Value = Range("R_"& t & "_Scale").Value

Zal mogelijk iets goeds doen.
 
Het ging me eigenlijk om hoe je de variabelen kunt inpassen in een range.

Daarbij bedoel ik
van:
Range("R_Scale1").Value = Range("R_HRA_Scale").Value

naar:
Range("R_Scale1").Value = Range("R_"& t & "_Scale").Value

Misschien een standaard actie in excel, alleen kende ik hem niet.

Bedankt voor de oplossing.

Erwin
 
Gebruik svp code tags !! (10-jarig forum gebruiker)
Het is wel zo aardig/attent/fatsoenlijk om een reaktie van een helper/vrijwilliger niet te negeren.

Code:
Private sub Combobox1_change()
   M_kopie 1,combobox1.value   '  ("HRA")
End sub

Sub M_kopie(y,c00)
  Range("R_Scale" & y) = Range("R_" & c00 & "_Scale").Value
End Sub
 
Dat gaat steeds beter. Nu heb ik een functie gemaakt waarbij twee variabelen meekomen nl: AA en BB

Nu wil ik dat de R in de naam van de combobox vervangen wordt door de variabele AA die meekomt naar de functie, hoe noteer ik dat in die functie?

Code:
Sheets(BB).[B]R[/B]_ComboBox_ProductName.ListIndex = -1

Dit is de volledige functie:

Code:
Function Button_ProductName(AA, BB) ''AA = Keuze R,V of B  BB = Naam sheet

Range(AA & "_Product_Type").Value = ""
Sheets(BB).R_ComboBox_ProductName.ListIndex = -1
If Sheets(BB).R_ComboBox_ProductName.Visible = True Then
''If Sheets(BB).R_ComboBox_ProductName.Visible = True Then
    Sheets(BB).R_ComboBox_ProductName.Visible = False
    Else: Sheets(BB).R_ComboBox_ProductName.Visible = True
End If
End Function
 
Zeer waarschijnlijk heb je de tweede zin uit #4 en de eerste uit #2 gemist.

Plaats even het documentje met de code.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan