*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Textbox  (gelezen 179038 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Textbox
« Gepost op: 15 augustus 2025, 10:25:34 »
Hoi,

het werkt allemaal goed maar ik had een klein vraagje
ik gebruik dit in een textbox
Code: [Selecteer]
.foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")als er text in de textbox komt gaat hij de text jpg zoeken in d:\covers en geef die weer in foto.Picture
de text begint altijd met CUSA ( bijvoorbeeld ) CUSA00512 of CUSA00062 enz, enz, zo zoek hij de benaming in d:\covers en laad dan CUSA00062.jpg en geeft dit weer
is het mogelijk als er andere text in staat die ook altijd begint met PPSA ( bijvoorbeeld ) PPSA01337 of PPSA01546
deze zoekt in D:\covers1

alvast weer super bedankt





Gelogd
Excel 365 NL

Offline Roodborstje

  • Volledig lid
  • **
  • Berichten: 103
  • Geslacht: Man
  • Office 365 - Windows 11
Re: Textbox
« Reactie #1 Gepost op: 15 augustus 2025, 11:00:46 »
Iets in die richting waarschijnlijk, maar zonder voorbeeld??
Code: [Selecteer]
Private Sub CommandButton1_Click()
If Left(t_range(1).Text, 1) = "P" Then
.foto.Picture = LoadPicture("D:\Covers1\" & t_range(1) & ".jpg")
Else
If Left(t_range(1).Text, 1) = "C" Then
.foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")
End If
End If
End Sub
Gelogd
Twijfelt u wel eens? Nou.. Soms, hoewel… Tja daar vraag je wat…

Groet, Roodborstje.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #2 Gepost op: 15 augustus 2025, 11:25:20 »
@Roodborstje

ga dit vanavond even proberen

en ja sorry de excel lijst is een beetje te groot om te rippen
is van een bejaardenhuis met beetje veel informatie in
Gelogd
Excel 365 NL

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #3 Gepost op: 15 augustus 2025, 11:31:04 »
@Roodborstje

volgens mijn wordt het hier opgeroepen

Code: [Selecteer]
Private Sub ListBox_Results_Click()
'Go to selection on sheet when result is clicked
Dim strAddress As String
Dim strSheet As String
Dim strCell As String
Dim l As Long

    For l = 0 To ListBox_Results.ListCount
        If ListBox_Results.Selected(l) = True Then
            strAddress = ListBox_Results.List(l, 1)
            strSheet = Replace(Mid(strAddress, 1, InStr(1, strAddress, "!") - 1), "'", "")
            Worksheets(strSheet).Select
            Worksheets(strSheet).Range(strAddress).Select
            rij = Val(Split(strAddress, "$")(2))
            t_range = Application.Transpose(Application.Transpose(Range("A" & rij & ":AB" & rij)))
            With f_FindAll
                .TextBox1.Value = t_range(1)
                .TextBox_Results1.Value = t_range(2)
                .TextBox_Results2.Value = t_range(3)
                .TextBox2.Value = t_range(4)
                .TextBox3.Value = t_range(5)
                .TextBox4.Value = t_range(6)
                .TextBox5.Value = t_range(7)
                .TextBox6.Value = t_range(8)
                .TextBox7.Value = t_range(9)
                .TextBox8.Value = t_range(10)
                .TextBox11.Value = t_range(13)
                .TextBox10.Value = t_range(14)
                .TextBox12.Value = t_range(15)
                .TextBox13.Value = t_range(12)
                .TextBox14.Value = t_range(16)
                .TextBox15.Value = t_range(17)
                .TextBox16.Value = t_range(18)
                .TextBox17.Value = t_range(19)
                .TextBox18.Value = t_range(25)
                .TextBox19.Value = t_range(26)
                .TextBox20.Value = t_range(27)
                .TextBox10.text = Format(CDate(TextBox10.text), "dd/mm/yyyy")
                'jpg
                .foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")
                'jpg
                .Image2.Picture = LoadPicture("D:\Covers\" & t_range(18) & ".jpg")
                'jpg
                .Image3.Picture = LoadPicture("D:\Covers\" & t_range(20) & ".jpg")
                .Image4.Picture = LoadPicture("D:\Covers\" & t_range(28) & ".jpg")
                'hyperlink
                .hyperlink.text = t_range(11)
                .Hyperlink1.text = t_range(21)
                .Hyperlink2.text = t_range(22)
                 End With
            Exit Sub
        End If
    Next l
End Sub


en hier staan dan de CUSA en PPSA

.foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")
Gelogd
Excel 365 NL

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #4 Gepost op: 15 augustus 2025, 11:57:05 »
Hierbij toch maar een voorbeeld
de tekst komt in Kolom A
Gelogd
Excel 365 NL

Offline Roodborstje

  • Volledig lid
  • **
  • Berichten: 103
  • Geslacht: Man
  • Office 365 - Windows 11
Re: Textbox
« Reactie #5 Gepost op: 15 augustus 2025, 11:57:51 »
Natte vingerwerk, waarschijnlijk zo:

Code: [Selecteer]
If Left(t_range(1).Text, 1) = "C" Then .foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")
If Left(t_range(18).Text, 1) = "C" Then .Image2.Picture = LoadPicture("D:\Covers\" & t_range(18) & ".jpg")
If Left(t_range(20).Text, 1) = "C" Then .Image3.Picture = LoadPicture("D:\Covers\" & t_range(20) & ".jpg")
If Left(t_range(28).Text, 1) = "C" Then .Image4.Picture = LoadPicture("D:\Covers\" & t_range(28) & ".jpg")

If Left(t_range(1).Text, 1) = "P" Then .foto.Picture = LoadPicture("D:\Covers1\" & t_range(1) & ".jpg")
If Left(t_range(18).Text, 1) = "P" Then .Image2.Picture = LoadPicture("D:\Covers1\" & t_range(18) & ".jpg")
If Left(t_range(20).Text, 1) = "P" Then .Image3.Picture = LoadPicture("D:\Covers1\" & t_range(20) & ".jpg")
If Left(t_range(28).Text, 1) = "P" Then .Image4.Picture = LoadPicture("D:\Covers1\" & t_range(28) & ".jpg")
Gelogd
Twijfelt u wel eens? Nou.. Soms, hoewel… Tja daar vraag je wat…

Groet, Roodborstje.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #6 Gepost op: 15 augustus 2025, 13:15:10 »
@Roodborstje

Thnx, ga het vanavond proberen :thumbsup:
Gelogd
Excel 365 NL

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #7 Gepost op: 15 augustus 2025, 18:58:00 »
@@Roodborstje

Helaas werkt niet

toch super bedankt
Gelogd
Excel 365 NL

Offline Roodborstje

  • Volledig lid
  • **
  • Berichten: 103
  • Geslacht: Man
  • Office 365 - Windows 11
Re: Textbox
« Reactie #8 Gepost op: 15 augustus 2025, 20:29:40 »
Post eens je voorbeeldbestandje met een 10 tal ingevulde regels. (dummy gegevens maar gelijkend als de echte)
Gelogd
Twijfelt u wel eens? Nou.. Soms, hoewel… Tja daar vraag je wat…

Groet, Roodborstje.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #9 Gepost op: 16 augustus 2025, 09:52:15 »
Hierbij een voorbeeld
Gelogd
Excel 365 NL

Offline Roodborstje

  • Volledig lid
  • **
  • Berichten: 103
  • Geslacht: Man
  • Office 365 - Windows 11
Re: Textbox
« Reactie #10 Gepost op: 16 augustus 2025, 10:23:00 »
Dit werkt:
Code: [Selecteer]
If Left(TextBox1.Text, 1) = "C" Then .foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")
         If Left(TextBox1.Text, 1) = "P" Then .foto.Picture = LoadPicture("D:\Covers1\" & t_range(1) & ".jpg")
               
Gelogd
Twijfelt u wel eens? Nou.. Soms, hoewel… Tja daar vraag je wat…

Groet, Roodborstje.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #11 Gepost op: 16 augustus 2025, 12:19:36 »
@Roodborstje

dat zou top zijn,

maar een beetje brutaal en niet wetende waar zou ik deze neer moeten zetten?
Gelogd
Excel 365 NL

Offline Roodborstje

  • Volledig lid
  • **
  • Berichten: 103
  • Geslacht: Man
  • Office 365 - Windows 11
Re: Textbox
« Reactie #12 Gepost op: 16 augustus 2025, 12:24:51 »
Code: [Selecteer]
Private Sub ListBox_Results_Click()
'Go to selection on sheet when result is clicked
Dim strAddress As String
Dim strSheet As String
Dim strCell As String
Dim l As Long

    For l = 0 To ListBox_Results.ListCount
        If ListBox_Results.Selected(l) = True Then
            strAddress = ListBox_Results.List(l, 1)
            strSheet = Replace(Mid(strAddress, 1, InStr(1, strAddress, "!") - 1), "'", "")
            Worksheets(strSheet).Select
            Worksheets(strSheet).Range(strAddress).Select
            rij = Val(Split(strAddress, "$")(2))
            t_range = Application.Transpose(Application.Transpose(Range("A" & rij & ":AB" & rij)))
            With f_FindAll
                .TextBox1.Value = t_range(1)
                .TextBox_Results1.Value = t_range(2)
                .TextBox_Results2.Value = t_range(3)
                .TextBox2.Value = t_range(4)
                .TextBox3.Value = t_range(5)
                .TextBox4.Value = t_range(6)
                .TextBox5.Value = t_range(7)
                .TextBox6.Value = t_range(8)
                .TextBox7.Value = t_range(9)
                .TextBox8.Value = t_range(10)
                .TextBox11.Value = t_range(13)
                .TextBox10.Value = t_range(14)
                .TextBox12.Value = t_range(15)
                .TextBox13.Value = t_range(12)
                .TextBox14.Value = t_range(16)
                .TextBox15.Value = t_range(17)
                .TextBox16.Value = t_range(18)
                .TextBox17.Value = t_range(19)
                .TextBox18.Value = t_range(25)
                .TextBox19.Value = t_range(26)
                .TextBox20.Value = t_range(27)
                .TextBox10.Text = Format(CDate(TextBox10.Text), "dd/mm/yyyy")
           
   ' HIER HIER HIER
      If Left(TextBox1.Text, 1) = "C" Then .foto.Picture = LoadPicture("D:\Covers\" & t_range(1) & ".jpg")
      If Left(TextBox1.Text, 1) = "P" Then .foto.Picture = LoadPicture("D:\Covers1\" & t_range(1) & ".jpg")
             
               '  .Image3.Picture = LoadPicture("D:\Covers\" & t_range(20) & ".jpg")
              '  .Image4.Picture = LoadPicture("D:\Covers\" & t_range(28) & ".jpg")
                'hyperlink
                .hyperlink.Text = t_range(11)
                .Hyperlink1.Text = t_range(21)
                .Hyperlink2.Text = t_range(22)
                 End With
            Exit Sub
        End If
    Next l
End Sub
Gelogd
Twijfelt u wel eens? Nou.. Soms, hoewel… Tja daar vraag je wat…

Groet, Roodborstje.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 339
  • Geslacht: Man
  • Oplossing.be
Re: Textbox
« Reactie #13 Gepost op: 16 augustus 2025, 12:41:54 »
@Roodborstje
 _/-\o_ _/-\o_ _/-\o_ _/-\o_
Werkt PERFECT

super bedankt, ze zullen maandag op de bejaarden soos super blij zijn
Gelogd
Excel 365 NL

Offline Roodborstje

  • Volledig lid
  • **
  • Berichten: 103
  • Geslacht: Man
  • Office 365 - Windows 11
Re: Textbox
« Reactie #14 Gepost op: 16 augustus 2025, 12:49:26 »
Mooi zo. :) en dank voor het seintje. :thumbsup: :thumbsup:
Gelogd
Twijfelt u wel eens? Nou.. Soms, hoewel… Tja daar vraag je wat…

Groet, Roodborstje.
Pagina's: [1]   Omhoog
 


www.combell.com