Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

bakerman

Lid
  • Aantal items

    158
  • Registratiedatum

  • Laatst bezocht

Over bakerman

  • Titel
    Nieuweling

Profiel Informatie

  • Geslacht
    Man
  • Land
    België

Recente bezoekers van dit profiel

905 profielweergaven
  1. Denk dat je met deze wel verder kan. VBANoob1.xlsm
  2. Deze werkt perfect voor mij. PS: Code staat nu in een Standaard module ipv in ThisWorkbook. test vgl foto's ba.xlsm
  3. Het stadium van de Alternatieve tekst zijn we al voorbij Emiel, dit was al een antwoord op de volgende bovenstaande vraag.
  4. Sub Bakerman() With ActiveSheet For Each oShape In .Shapes If (oShape.TopLeftCell.Address = "$A$1") * (oShape.Name = "Afbeelding 18") Then .Range("B1") = 1 End If Next oShape End With End Sub Nu komt er een 1 in B1 als aan de voorwaarden die jij gesteld hebt voldaan wordt. Als dit niet is wat je bedoelt dan begrijp ik je vraag helaas niet.
  5. Zonder afwijking. Private Sub Cmd_00_Click() PI = 4 * Atn(1) T_03 = PI / 40 * (CDbl(T_00) ^ 2 - CDbl(T_01) ^ 2) / CDbl(T_02) End Sub
  6. Een 6-tal maanden geleden is er in een ander forum een gelijkaardige vraag gepasserd en daarvoor had ik toen onderstaand bestand gemaakt. In de cellen I3 en J3 vul je de binnendiameter (in cm) end de materiaaldikte (in mm) in en dan ga je in kolom B op zoek naar de overeenkomende buitendiameter. Kolom D geeft je dan het aantal meter op de rol. @ dotchiejack Waarom eerst de waarden naar het werkblad schrijven en de uitkomst terug inlezen in de Textbox als de berekening in de code zelf kan gebeuren. antisliprol_ba.xlsx Rollengte(fancy)_ba.xlsm
  7. With ActiveSheet For Each oShape In .Shapes If (oShape.TopLeftCell.Address = "$A$1") * (oShape.Name = "Afbeelding 18") Then MsgBox "Succes" End If Next oShape End With
  8. Sub TestShapes2() Dim oShape As Shape, img1 As String, img2 As String With ActiveSheet For Each oShape In .Shapes If oShape.TopLeftCell.Address = "$A$1" Then img1 = oShape.AlternativeText ElseIf oShape.TopLeftCell.Address = "$C$1" Then img2 = oShape.AlternativeText End If Next oShape End With If (img1 <> vbNullString) * (img2 <> vbNullString) Then MsgBox IIf(img1 = img2, "Gelijke", "Ongelijke") & " afbeeldingen" End If End Sub Speel hier maar eens mee. Test de code in het voorbeeldbestand, sleep daarna de afbeeldingen naar andere posities, wijzig de adressen in de code en draai de code opnieuw. test vgl foto's.xlsm
  9. Graag gedaan en bedankt voor de feedback.
  10. Wat je kan doen is de Alternatieve tekst van beide foto's vergelijken (op voorwaarde dat deze voor elke afbeelding is ingevuld) Sub TestShapes() Dim oShape As Shape With ActiveSheet For Each oShape In .Shapes oShape.TopLeftCell.Value = oShape.AlternativeText Next oShape End With End Sub De code zet deze tekst in de linksbovencel (A1 en B1 in dit geval). Op deze manier werkt je formule wel. Voor andere oplossingen zou je toegang moeten hebben tot de metadata van de afbeelding op harde schijf.
  11. bakerman

    logbestand

    Graag gedaan en bedankt voor de feedback.
  12. bakerman

    logbestand

    Probeer deze dan eens. ddr_ver2.xls
  13. bakerman

    logbestand

    Ga maar eens aan de slag met deze. ddr.xls
  14. bakerman

    factuur maken

    In het naamvak van de klantnaam zet je een validatielijst met alle klantnamen. Je zal merken dat van zodra je begint te typen de lijst automatisch naar beneden scrollt naargelang de letters die je typt. In de andere cellen zet je een Vert.Zoeken formule om de overige gegevens weer te geven. De code die je in Thisworkbook hebt staan kan je gebruiken om je factuurnummers te genereren. Dim x, cl x = -1 cl = Dir("D:\John\*") Do Until cl = "" x = x + 1 cl = Dir Loop With Blad1.Range("D25") .Value = Year(Date) & "/" & Format(IIf(x > 0, x + 1, 1), "000") End With
  15. bakerman

    factuur maken

    Je zal al zeker een extra tabblad moeten aanmaken met alle klantgegevens zodat je een klantnaam kan opzoeken en de overige gegevens kan plaatsen. Om op je tweede vraag te antwoorden, ja je moet de factuur eerst opslaan als pdf-bestand om ze vervolgens als bijlage te mailen.
Logo

OVER ONS

PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.