Cor-Assa

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.😊

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

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.

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.

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?

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

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

Opgelost, bedankt JeanPaul28.

Mag gesloten worden.

Bedankt bakerman, ga ik uitproberen.😉

Probleem is al opgelost, heb ze gewoon 1 voor 1 op nul gezet.

Topic mag gesloten worden.

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

34 minuten geleden, dotchiejack zei:

Je hebt je code van de Dims doorgegeven, dat is declareren van je variablelen, niet meer of minder en doet in de meeste gevallen niets ter zake.

Post dan op zijn minst je volledige code of anders maak een voorbeeldbestandje zonder privacy gegevens.

 

Is voor vandaag even genoeg geweest.

Ga het morgen wel helemaal leeg halen en het bestandje uploaden.

Nog n fijne avond dotchiejack. 😉

6 minuten geleden, dotchiejack zei:

Als je Option Explicit gebruikt verwijderen en je variabelen niet declareren. brengt dit zoden aan de dijk?

En voor diegenen die over de voors en na's van Option Explicit willen bakkelijen,ik ga er niet op in.

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.

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?

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

Bedank, ga ik morgen uitproberen.😉

38 minuten geleden, dotchiejack zei:

Probeer het eens zo.

Zeker niet nodig om overal NU onder A1 te gaan plakken in al je bladen.

Gewoon uit de cel .R4 halen van je werkblad Storings overzicht RWS

 

Private Sub Cmb_00_Click()
With ActiveCell.Font
.Name = "Arialnarow"
.Size = 8
End With
If Cmb_00.Caption = "" Then
    ActiveCell.Interior.Color = RGB(255, 0, 0)
    ActiveCell.NumberFormat = "m/d/yyyy h:mm"
    Calculate
    ActiveCell.Value = Sheets("Storings overzicht RWS").Range("R4")
End If
If Cmb_00.Caption = "In Storing" Then
    ActiveCell.Interior.Color = RGB(164, 208, 80)
    ActiveCell.Value = ""
End If
Unload Me
End Sub

 

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. 😊

2 minuten geleden, dotchiejack zei:

Cor wat meer duidelijkheid.

Deze code staat in de userform die je gebruikt op verschillende bladen om elementen in en uit storing te zetten.

De enigste =NU() is te vinden op je werkblad Storings overzicht RWS in cel R4

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

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.

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

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

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.

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.

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

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