Gegevens uit een rij in userform weergeven na dubbelklikken op willekeurige cell

Status
Niet open voor verdere reacties.
S

Stephan27

Gebruiker
Lid geworden
31 dec 2015
Berichten
8
Goedenmiddag,

Ik ben al tijdje aan prutsen met bestandje.

Ik wou graag dat als k op een willekeurige cell in mijn tabel kreeg dat hij de gegevens uit die hele rij liet zien in een userform, waar ik die eventueel kan aanpassen!
Is hier een code voor?

Gr Stephan
 

Bijlagen

  • Onderdelen goed.xlsb
    1,5 MB · Weergaven: 52
Bedankt voor de reactie alleen ik krijg het niet werkend voor mijn probleem!
 
Om je op weg te helpen.

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Range("E8:E200")) Is Nothing Then UserForm_voorraad.show
[COLOR=#0000ff]   cancel = true[/COLOR]
End Sub


In de initialize()

Code: 
TextBox_Merk = Range("B" & ActiveCell.Row).Value
 
Laatst bewerkt:
Ik heb et nou redelijk werkend. Zit alleen met het punt dat als ik mijn records aan wil passen dat hij de huidige rij niet overschrijft. Dus het opslaan van het aanpassen zeg maar.
Verder wou ik graag bij elk onderdeel foto plaatsen. Dit wou ik doen door in dit userform een knop te maken met "open foto" en dat ie dan foto uit een bestandsmap haalt.
Heb het artikelnummer gebruikt als naam voor elke foto... hoe krijg k het voor elkaar om die desbetreffende foto te openen. en als er geen foto van is een msgbox met "geen foto beschikbaar" zoiets:p

Heb et bestand erbij gezet
 

Bijlagen

  • Onderdelen goed hoor.xlsb
    1,5 MB · Weergaven: 37
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Range("E8:E200")) Is Nothing Then UserForm_voorraad.show
[COLOR=#0000ff]   cancel = true[/COLOR]
End Sub

Code: 
  Sheets("Onderdelen").Cells(ActiveCell.Row[COLOR=#0000ff], 2).resize(, 10)[/COLOR] = ar
  Unload Me
End Sub


Je foto als opmerking in kolom E.
Zoals je kunt zien in de code moet de foto een ".jpg" extensie zijn.
Code: 
Private Sub CommandButton_Afbeelding_Click()
Dim foto As String
With Cells(ActiveCell.Row, 5)
foto = "C:\Users\Johan\Google Drive\SMX Service - Onderdelen inventaris\Onderdelen Foto's\" & .Value & ".jpg"
   If Not Dir(foto, vbDirectory) = vbNullString Then
     .ClearComments
         With .AddComment.Shape
            .Height = .Height * 2
            .Width = .Width * 2
            .Fill.UserPicture foto
         End With
      MsgBox "Foto staat in de cel als opmerking"
    Else
       MsgBox "geen foto beschikbaar"
    End If
 End With
End Sub
 
Laatst bewerkt:
Wauw helemaal top werkt goed!

Kan ik de foto ook gewoon even in beeld laten verschijnen en dan met een Kruisje boven in de hoek weer verwijderen?
 
Ik heb je formulier aangepast.

Niet meer in de comment, maar in het formulier zelf.
Het drukken op de knop "Afbeelding" gebeurt dmv een togglebutton waar je meerdere malen op kan drukken.

Geen foto beschikbaar, komt Image1 niet te voorschijn.
Dus, eerste keer drukken en foto beschikbaar, foto komt tevoorschijn.
Tweede keer drukken op dezelfde knop, foto verdwijnt.

Bekijk het maar eens.
 

Bijlagen

  • Onderdelen1.xlsb
    1,5 MB · Weergaven: 81
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan