• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

textbox

Status
Niet open voor verdere reacties.
K

kibus

Gebruiker
Lid geworden
17 nov 2006
Berichten
271
Beste kenners,

heb dankzij dit forum een leuke code gekregen

HTML: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim r As Range
    If Target.Cells.Count = 1 Then
     
     If Target.Row >= 3 Then

           ' textbox verloop inkoopprijs
            With ActiveSheet.TextBox1
                
                Set r = Sheets("ink_hist").Columns(1).Find(what:=Range("A" & Target.Row).Value, _
                            LookIn:=xlValues, _
                            lookat:=xlWhole)
                            
        If Not r Is Nothing Then
        
          .Text = "wk_52:  " & r.Offset(, 1).Value & "   wk_51:  " & r.Offset(, 2).Value & "   wk_50:  " & r.Offset(, 3).Value & "   wk_49:  " & r.Offset(, 4).Value & "   wk_48:  " & r.Offset(, 5).Value & "   wk_47:  " & r.Offset(, 6).Value & "   wk_46:  " & r.Offset(, 7).Value & "   wk_45:  " & r.Offset(, 8).Value & "   wk_44:  " & r.Offset(, 9).Value & "   wk_43:  " & r.Offset(, 10).Value
           '   .Text = "wk_42:  " & r.Offset(, 11).Value & "   wk_41:  " & r.Offset(, 12).Value & "   wk_40:  " & r.Offset(, 13).Value & "   wk_39:  " & r.Offset(, 14).Value & "   wk_38:  " & r.Offset(, 15).Value & "   wk_37:  " & r.Offset(, 16).Value & "   wk_36:  " & r.Offset(, 17).Value & "   wk_35:  " & r.Offset(, 18).Value & "   wk_34:  " & r.Offset(, 19).Value & "   wk_33:  " & r.Offset(, 20).Value
              ' .Text = "wk_32:  " & r.Offset(, 21).Value & "   wk_31:  " & r.Offset(, 22).Value & "   wk_30:  " & r.Offset(, 23).Value & "   wk_29:  " & r.Offset(, 24).Value & "   wk_28:  " & r.Offset(, 25).Value & "   wk_27:  " & r.Offset(, 26).Value & "   wk_26:  " & r.Offset(, 27).Value & "   wk_25:  " & r.Offset(, 28).Value & "   wk_24:  " & r.Offset(, 29).Value & "   wk_23:  " & r.Offset(, 30).Value
             ' .Text = "wk_22:  " & r.Offset(, 31).Value & "   wk_21:  " & r.Offset(, 32).Value & "   wk_20:  " & r.Offset(, 33).Value & "   wk_19:  " & r.Offset(, 34).Value & "   wk_18:  " & r.Offset(, 35).Value & "   wk_17:  " & r.Offset(, 36).Value & "   wk_16:  " & r.Offset(, 37).Value & "   wk_15:  " & r.Offset(, 38).Value & "   wk_14:  " & r.Offset(, 39).Value & "   wk_13:  " & r.Offset(, 40).Value
              
              '.Text = "wk_52:  " & r.Offset(, 1).Value & "   wk_51:  " & r.Offset(, 2).Value & "   wk_50:  " & r.Offset(, 3).Value & "   wk_49:  " & r.Offset(, 4).Value & "   wk_48:  " & r.Offset(, 5).Value & "   wk_47:  " & r.Offset(, 6).Value & "   wk_46:  " & r.Offset(, 7).Value & "   wk_45:  " & r.Offset(, 8).Value & "   wk_44:  " & r.Offset(, 9).Value & "   wk_43:  " & r.Offset(, 10).Value
              '.Text = "wk_52:  " & r.Offset(, 1).Value & "   wk_51:  " & r.Offset(, 2).Value & "   wk_50:  " & r.Offset(, 3).Value & "   wk_49:  " & r.Offset(, 4).Value & "   wk_48:  " & r.Offset(, 5).Value & "   wk_47:  " & r.Offset(, 6).Value & "   wk_46:  " & r.Offset(, 7).Value & "   wk_45:  " & r.Offset(, 8).Value & "   wk_44:  " & r.Offset(, 9).Value & "   wk_43:  " & r.Offset(, 10).Value
        
        End If
      
      End With
      
      ' textbox verloop verkoopprijs
        With ActiveSheet.TextBox2
        
        Set r = Sheets("ink_hist").Columns(1).Find(what:=Range("A" & Target.Row).Value, _
                            LookIn:=xlValues, _
                            lookat:=xlWhole)
                            
        If Not r Is Nothing Then
        
          ' .Text = "wk_52:  " & r.Offset(, 1).Value & "   wk_51:  " & r.Offset(, 2).Value & "   wk_50:  " & r.Offset(, 3).Value & "   wk_49:  " & r.Offset(, 4).Value & "   wk_48:  " & r.Offset(, 5).Value & "   wk_47:  " & r.Offset(, 6).Value & "   wk_46:  " & r.Offset(, 7).Value & "   wk_45:  " & r.Offset(, 8).Value & "   wk_44:  " & r.Offset(, 9).Value & "   wk_43:  " & r.Offset(, 10).Value
             .Text = "wk_42:  " & r.Offset(, 11).Value & "   wk_41:  " & r.Offset(, 12).Value & "   wk_40:  " & r.Offset(, 13).Value & "   wk_39:  " & r.Offset(, 14).Value & "   wk_38:  " & r.Offset(, 15).Value & "   wk_37:  " & r.Offset(, 16).Value & "   wk_36:  " & r.Offset(, 17).Value & "   wk_35:  " & r.Offset(, 18).Value & "   wk_34:  " & r.Offset(, 19).Value & "   wk_33:  " & r.Offset(, 20).Value
             '  .Text = "wk_32:  " & r.Offset(, 21).Value & "   wk_31:  " & r.Offset(, 22).Value & "   wk_30:  " & r.Offset(, 23).Value & "   wk_29:  " & r.Offset(, 24).Value & "   wk_28:  " & r.Offset(, 25).Value & "   wk_27:  " & r.Offset(, 26).Value & "   wk_26:  " & r.Offset(, 27).Value & "   wk_25:  " & r.Offset(, 28).Value & "   wk_24:  " & r.Offset(, 29).Value & "   wk_23:  " & r.Offset(, 30).Value
              ' .Text = "wk_22:  " & r.Offset(, 31).Value & "   wk_21:  " & r.Offset(, 32).Value & "   wk_20:  " & r.Offset(, 33).Value & "   wk_19:  " & r.Offset(, 34).Value & "   wk_18:  " & r.Offset(, 35).Value & "   wk_17:  " & r.Offset(, 36).Value & "   wk_16:  " & r.Offset(, 37).Value & "   wk_15:  " & r.Offset(, 38).Value & "   wk_14:  " & r.Offset(, 39).Value & "   wk_13:  " & r.Offset(, 40).Value
              
              '.Text = "wk_52:  " & r.Offset(, 1).Value & "   wk_51:  " & r.Offset(, 2).Value & "   wk_50:  " & r.Offset(, 3).Value & "   wk_49:  " & r.Offset(, 4).Value & "   wk_48:  " & r.Offset(, 5).Value & "   wk_47:  " & r.Offset(, 6).Value & "   wk_46:  " & r.Offset(, 7).Value & "   wk_45:  " & r.Offset(, 8).Value & "   wk_44:  " & r.Offset(, 9).Value & "   wk_43:  " & r.Offset(, 10).Value
              '.Text = "wk_52:  " & r.Offset(, 1).Value & "   wk_51:  " & r.Offset(, 2).Value & "   wk_50:  " & r.Offset(, 3).Value & "   wk_49:  " & r.Offset(, 4).Value & "   wk_48:  " & r.Offset(, 5).Value & "   wk_47:  " & r.Offset(, 6).Value & "   wk_46:  " & r.Offset(, 7).Value & "   wk_45:  " & r.Offset(, 8).Value & "   wk_44:  " & r.Offset(, 9).Value & "   wk_43:  " & r.Offset(, 10).Value
        
                End If
            
            End With
            ' textbox verloop marge
               With ActiveSheet.TextBox3
                
               Set r = Sheets("ink_hist").Columns(1).Find(what:=Range("A" & Target.Row).Value, _
                                                        LookIn:=xlValues, _
                                                        lookat:=xlWhole)
                                                        
                If Not r Is Nothing Then
                
                  ' .Text = "wk_52:   " & r.Offset(, 1).Value & "     wk_51:    " & r.Offset(, 2).Value & "     wk_50:    " & r.Offset(, 3).Value & "     wk_49:    " & r.Offset(, 4).Value & "     wk_48:    " & r.Offset(, 5).Value & "     wk_47:    " & r.Offset(, 6).Value & "     wk_46:    " & r.Offset(, 7).Value & "     wk_45:    " & r.Offset(, 8).Value & "     wk_44:    " & r.Offset(, 9).Value & "     wk_43:    " & r.Offset(, 10).Value
                          .Text = "wk_42:   " & r.Offset(, 11).Value & "     wk_41:    " & r.Offset(, 12).Value & "     wk_40:    " & r.Offset(, 13).Value & "     wk_39:    " & r.Offset(, 14).Value & "     wk_38:    " & r.Offset(, 15).Value & "     wk_37:    " & r.Offset(, 16).Value & "     wk_36:    " & r.Offset(, 17).Value & "     wk_35:    " & r.Offset(, 18).Value & "     wk_34:    " & r.Offset(, 19).Value & "     wk_33:    " & r.Offset(, 20).Value
                         '   .Text = "wk_32:   " & r.Offset(, 21).Value & "     wk_31:    " & r.Offset(, 22).Value & "     wk_30:    " & r.Offset(, 23).Value & "     wk_29:    " & r.Offset(, 24).Value & "     wk_28:    " & r.Offset(, 25).Value & "     wk_27:    " & r.Offset(, 26).Value & "     wk_26:    " & r.Offset(, 27).Value & "     wk_25:    " & r.Offset(, 28).Value & "     wk_24:    " & r.Offset(, 29).Value & "     wk_23:    " & r.Offset(, 30).Value
                           '  .Text = "wk_22:   " & r.Offset(, 31).Value & "     wk_21:    " & r.Offset(, 32).Value & "     wk_20:    " & r.Offset(, 33).Value & "     wk_19:    " & r.Offset(, 34).Value & "     wk_18:    " & r.Offset(, 35).Value & "     wk_17:    " & r.Offset(, 36).Value & "     wk_16:    " & r.Offset(, 37).Value & "     wk_15:    " & r.Offset(, 38).Value & "     wk_14:    " & r.Offset(, 39).Value & "     wk_13:    " & r.Offset(, 40).Value
                            
                            '.Text = "wk_52:   " & r.Offset(, 1).Value & "     wk_51:    " & r.Offset(, 2).Value & "     wk_50:    " & r.Offset(, 3).Value & "     wk_49:    " & r.Offset(, 4).Value & "     wk_48:    " & r.Offset(, 5).Value & "     wk_47:    " & r.Offset(, 6).Value & "     wk_46:    " & r.Offset(, 7).Value & "     wk_45:    " & r.Offset(, 8).Value & "     wk_44:    " & r.Offset(, 9).Value & "     wk_43:    " & r.Offset(, 10).Value
                            '.Text = "wk_52:   " & r.Offset(, 1).Value & "     wk_51:    " & r.Offset(, 2).Value & "     wk_50:    " & r.Offset(, 3).Value & "     wk_49:    " & r.Offset(, 4).Value & "     wk_48:    " & r.Offset(, 5).Value & "     wk_47:    " & r.Offset(, 6).Value & "     wk_46:    " & r.Offset(, 7).Value & "     wk_45:    " & r.Offset(, 8).Value & "     wk_44:    " & r.Offset(, 9).Value & "     wk_43:    " & r.Offset(, 10).Value
                
                End If
            
            End With
            
                   With ActiveSheet.TextBox4
                
               Set r = Sheets("waarde").Columns(1).Find(what:=Range("A" & Target.Row).Value, _
                                                        LookIn:=xlValues, _
                                                        lookat:=xlWhole)
                                                        
                If Not r Is Nothing Then
                
                    .Text = r.Offset(, 4).Value & " " & r.Offset(, 5).Value & " ink: " & r.Offset(, 6).Value & " deel 1: " & r.Offset(, 7).Value & " deel 2: " & r.Offset(, 8).Value & " verk: " & r.Offset(, 10).Value
                End If
            
            End With
            
            
            
            
            
            
      
      Else
      TextBox1 = ""
       TextBox2 = ""
       TextBox3 = ""
      TextBox4 = ""
      End If
      
    End If
    Exit Sub



End Sub
\

is het nu ook mogelijk om de waarde die worden weergeven in de textboxen de letters i of v of m in rood weer te geven?

alvast bedankt
edwin
 
Laatst bewerkt:
is het nu ook mogelijk om de waarde die worden weergeven in de textboxen de letters i of v of m in rood weer te geven?

alvast bedankt
edwin[/QUOTE]

Ja dat is mogelijk. als er tenminste nog iemand is die bergrijpt wanneer en hoe je dat wilt.

Wim
 
Die code trekt nog nergens naar (of op).
Fatsoeneer die eerst maar eens.
Dit kan met maximaal 4 regels code.
 
Goedenavond,

Text = "wk_52: " & r.Offset(, 1).Value

Stel het resultaat zou zijn: wk_52: V 5,20
nu vroeg ik me af of het mogelijk was de letter V rood op te laten kleuren in de textbox,



Edwin
 
kibus zei:
Goedenavond,

Text = "wk_52: " & r.Offset(, 1).Value

Stel het resultaat zou zijn: wk_52: V 5,20
nu vroeg ik me af of het mogelijk was de letter V rood op te laten kleuren in de textbox,



Edwin
Klik om te vergroten...

Volgens mij kan het zo niet zoals je het voor ogen heeft.
Waarom maak je geen gebruik van een listbox waarin je 3 kolommen zet.
Dat is veel overzichtelijker.

Kolom 1
- week_1
- week_2
etc

Kolom 2
- V
- M
etc

Kolom 3
- waardes.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan