Ga naar inhoud

Cor-Assa

Lid
  • Items

    396
  • Registratiedatum

  • Laatst bezocht

Alles dat geplaatst werd door Cor-Assa

  1. Oke, naar mijn idee had het 14 moeten zijn maar er wordt dus pas geteld vanaf de eerste regel van de selectie en niet de echte regel 1. Klinkt eigenlijk wel logisch. Nu de rest nog.😊
  2. Beste mensen, Ik probeer een oplossing te vinden met de opties Vert.zoeken en Vergelijken maar kom er niet uit. Ik heb een bestand bijgevoegd en er de nodige uitleg en vragen op vermeld. Hoop dat iemand mijn probleem op weet te lossen, met eventueel wat uitleg. B.v.d. Cor Assa Zoeken en kopieeren.xlsx
  3. Beste emielDS, Bedankt dit is de oplossing die ik zocht. en hoopte dat die bestond. Mijn bestand is op zich niet zo groot maar groeit in de loop van het jaar tot +/- 1000kb. Er staat wel de nodige VBA code in. Nu moet ik deze sorteer methode nog uitbreiden van cel A5 t/m EZ440. Hierin moet C5 t/m C440 de leidende sortering zijn, hier staan de barcodes in. Allen bedankt voor het mee denken/zoeken.
  4. Sorry emielDS en Calvus, beide zijn niet zoals ik het bedoel. Het resultaat klopt wel maar ik wil het zonder er een extra kolom aan toe te voegen! Ik denk dat ik wat onduidelijk ben geweest in mijn bedoelingen.😊 Zoals in mijn voorbeeld gaat het alleen om de gegevens in kolom A en die moeten (in kolom A) gesorteerd worden. De andere 2 kolommen B en C heb ik erbij gedaan om het sorteer effect te laten zien wat er normaal als resultaat uit komt als je op waarden sorteert (B) en in C hoe het resultaat (in A) eigenlijk zou moeten zijn. In mijn 2e reactie heb ik aangegeven hoe ik het nu opgelost heb, maar dat is helaas toch met een extra hulp kolom wat ik eigenlijk wilde voorkomen.
  5. Ik heb het nu volgens deze methode gedaan; https://nl.extendoffice.com/documents/excel/3484-excel-sort-numbers-by-first-digit.html Maar dat is met een hulp kolom, mogelijk dat het anders en directer kan?
  6. Beste mensen, ik zoek een sorteer functie om getallen van verschillende lengtes op cijfers te sorteren. Zie onderstaande afbeelding. In kolom A staan de gegevens die ik wil sorteren. Met de normale sorteer functie wordt gesorteerd zoals in kolom B, die is in mijn situatie niet goed. Het gewenste resultaat staat in kolom C. Het betreft in dit barcodes, dus zonder waarden achter de komma. Wie weet er een oplossing, bij voorkeur zonder een extra kolom aan te moeten maken voor omzetten. B.v.d. Cor Assa
  7. Beste mensen, Ik wil met een stukje VBA controleren of een actieve cel aan een bepaalde regelwaarde voldoet. Ik weet dat het d.m.v. een lus/loop moet maar kom er niet uit. De active kolom is niet van belang, het gaat puur om de regel. De controle begint of de regelwaarde voldoet aan "regel 4". Als dit niet het geval is moeten er 5 bij opgeteld worden, dus "regel 9". Dit tot en met regelwaarde "74". Wordt hieraan voldaan heb ik n MsgBox met een "Oke" test. Wordt hier niet aan voldaan dan heb ik n MsgBox "Niet oke". Die MsgBoxen is geen probleem maar die controle lus/loop Alvast bedankt, Cor Assa
  8. Opgelost, bedankt JeanPaul28. Mag gesloten worden.
  9. Probleem is al opgelost, heb ze gewoon 1 voor 1 op nul gezet. Topic mag gesloten worden.
  10. Beste mensen, Ik heb een bestand met meerdere tabbladen. Vanuit een aantal tabbladen schakel in naar 1 bepaald tabblad om gegevens te verwerken dit is "Brief 1". Dim Deelnemerslijst As String Sub Test() Deelnemerslijst = ActiveSheet.Name Sheets("Brief 1").Select Deelnemerslijst.Select 'Deze opdracht werkt niet! Hoe kan ik naar een variabele werkblad naam verplaatsen End Sub Afhankelijk van waar ik vandaan kwam (welk tabblad) moet ik na de verwerking weer terug naar het vorige tabblad. De variabele hierin is 'Deelnemerslijst', hoe kom ik hiernaar terug? Zoals gezegd is dit afhankelijk van welk tabblad ik vandaan kom. B.v.d. Cor Assa
  11. Is voor vandaag even genoeg geweest. Ga het morgen wel helemaal leeg halen en het bestandje uploaden. Nog n fijne avond dotchiejack. 😉
  12. Sorry, nu begrijp ik je niet? Ik heb die variabelen (tijdelijk) nodig om te kopieren naar een ander tabblad dat ik daarna als PDF opsla. Als ik dan met de volgende personen beging en het is er maar 1 dus geen 2 dan blijven de gegevens van de vorige 2e persoon als variabele gehandhaafd en die moeten dus juist leeg.
  13. Sorry, verwachte al zo'n reactie. 😉 Maar helaas zit ik weer in een bestaand bestand te knutselen vol met privacy gevoelige data. Toch verwachte ik dat het duidelijk was? Dim Naam1 As String Dim Naam2 As String Dim Naam2Check As Integer Dim Naam1en2 As String Dim Adres1 As String Dim Adres2 As String Als ik nu zo'n rijtje gegevens heb gebruikt zitten daar waarden aan gekoppeld. Als ik het nu voor een volgende gebruik en persoon 2 is er niet blijven de oude gegevens bewaard. Hoe maak ik dat leeg?
  14. Weet iemand een snelle manier om in 1 keer alle integer en string variabele leeg te maken? Met googlen kan ik niets vinden en op dit fora helaas ook niet. Ik heb een variabelen gemaakt maar na gebruik moeten sommigen weer gevuld worden en anderen leeg blijven. Het wisseld welke gevuld moeten worden, vandaar mijn vraag. Alvast bedankt, Cor Assa
  15. Bedank, ga ik morgen uitproberen.😉
  16. Tot zover werkt het. Maar ik neem aan dat de 2e If regel dan zo moet zijn; If Cmb_00.Caption <> "" Then Dan kom ik bij de volgende stap de filters voor het overzichts veld "Storings overzicht RWS". Dat filter werkt niet meer omdat naar de tekst "In storing" gezocht wordt en daar staan nu verschillende data en tijden in? Weet je daar ook een oplossing voor dotchiejack? Jij vast wel. 😊
  17. Klopt dotchiejack. Ik heb van de collega's het verzoek gekregen om de datum en tijd van in storing melding te vermelden. de makkelijkste oplossing lijkt mij om de melding "In storing" daarvoor te wijzigen. Daarom wil ik op ieder formulier in cel A1 die vrij is de datum vermelden. Maar omdat de tijd niet automatisch mee loopt bij activering een update. Hoop dat het je zo duidelijk genoeg is? Alvast bedankt, Cor
  18. Private Sub Cmb_00_Click() If Cmb_00.Caption = "" Then ActiveCell.Interior.Color = RGB(255, 0, 0) ActiveCell.Value = "In Storing" End If If Cmb_00.Caption = "In Storing" Then ActiveCell.Interior.Color = RGB(164, 208, 80) ActiveCell.Value = "" End If Unload Me End Sub Beste mensen, ik wil een aanpassing in de programmering hierboven die voor mij gemaakt is. Het gaat om het volgende; In cel A1 op hetzelfde werkblad staat een datum en tijd die bij activering van deze Sub geupdate moet worden naar de actuele tijd. De celwaarde is '=NU()'. Daarna moet deze datum en tijd in de plaats komen van "In Storing" die in de 4e regel staat. De datum moet wel in 'Arial Narrow - 8' zijn. Ik heb al meerdere pogingen gedaan maar krijg het niet voor elkaar.
  19. Beste mensen, wederom voor kenners waarschijnlijk een makkelijke oplossing maar ik kan het helaas niet vinden. Naar zoeken vert., en horz., maar niet waar ik iets aan heb. Zie mijn bijlage: Ik wil in cel C3 de waarde hebben die correspondeert met de laatst ingevulde blauwe cel. In dit geval is de laatste gevulde blauwe cel N3, dus de gezochte waarde moet zijn €2,45. Alvast bedankt, Cor Assa Laatst ingevulde cel zoeken.xlsx
  20. Kleine update, was de subdirectory vergeten, Sub PDF_maken() Dim Bestandsnaam As String Dim LijstDate As String Dim SaveLocatie As String Dim Bestand As String LijstDate = ActiveSheet.Range("P4").Value Bestandsnaam = "Storingslijst" & " " & LijstDate SaveLocatie = ActiveWorkbook.Path & "\Lijsten" & "\ " Bestand = SaveLocatie & Bestandsnaam ActiveSheet.ExportAsFixedFormat xlTypePDF, Bestand & ".pdf" 'ActiveSheet.ExportAsFixedFormat xlTypePDF, SaveLocatie & "Storingslijst" & ".pdf", , , , , , True End Sub
  21. Ik ben nu zover gekomen, Sub PDF_maken() Dim Bestandsnaam As String Dim LijstDate As String Dim SaveLocatie As String LijstDate = ActiveSheet.Range("P4").Value Bestandsnaam = "Storingslijst" & " " & LijstDate SaveLocatie = ActiveWorkbook.Path ActiveSheet.ExportAsFixedFormat xlTypePDF, SaveLocatie & "Storingslijst " & ".pdf", , , , , , True End Sub Sub PDF_maken() Dim Bestandsnaam As String Dim LijstDate As String Dim SaveLocatie As String LijstDate = ActiveSheet.Range("P4").Value Bestandsnaam = "Storingslijst" & " " & LijstDate SaveLocatie = ActiveWorkbook.Path ActiveSheet.ExportAsFixedFormat xlTypePDF, SaveLocatie & "Storingslijst " & ".pdf", , , , , , True End Sub Alleen lukt het me niet om de String variabele Bestandsnaam in te voeren in plaats van de naam "Storingslijst", dan loopt het namelijk vast.
  22. Beste dotchiejack en bakerman, Helaas werken beide oplossingen niet. Ik kan het bestand wel uploaden maar dit staat vol met zakelijke gegevens aangezien het al in gebruik is. Meer dan 500 objecten.
  23. Sub PDF_maken_2() ' Dim Bestandsnaam As String Dim LijstDate As String Dim SaveLocatie As String LijstDate = ActiveSheet.Range("P4").Value Bestandsnaam = "Storingslijst" & " " & LijstDate SaveLocatie = ActiveWorkbook.Path ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ SaveLocatie & Bestandsnaam & ".PDF" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=True, OpenAfterPublish:=True End Sub
  24. Helaas sommige opdrachten die ik zelden of eenmalig gebruik onthou ik niet, sorry. Heb het nu wel gevonden, heb m als variabele gemaakt en dan krijg ik m wel. De bedoeling is dat ik van een sheet een pdf opsla in een onderliggen sub genaamd "Lijsten". Nu nog de variabele "Locatie" met variabele "Naam" koppelen om op te slaan. Dim Bestandsnaam As String Dim LijstDate As String Dim SaveLocatie As String LijstDate = ActiveSheet.Range("P4").Value Bestandsnaam = "Storingslijst" & " " & LijstDate SaveLocatie = ActiveWorkbook.Path
×
×
  • 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.