• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verticaal zoeken alleen waarde

Status
Niet open voor verdere reacties.
HWV

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.183
Beste,

Ik gebruik verticaalzoeken in VBA.
Enkel hij neem de formule`s en d eopmaak over niet de vaste waarde.

Code: 
Sub LeverdatumPlaatsen()
Sheets("Database").Select

On Error Resume Next
    For j = 3 To Sheets("Database").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("Inkooporder").Columns(1).Find(Sheets("Database").Cells(j, 1).Value)
      .Offset(, 9).Copy Sheets("Database").Cells(j, 28)
    End With
  Next
End Sub

Hoe kan ik er voor zorgen dat ik alleen de waarde van de datum goed neerzet in de sheet database en ook zonder de opmaak maar wel een datum format

Op de inkooporder is het zoekgebied eigenlijk niet groter dan A15 t/m A27 misschien is daar ook iets anders voor

Bekijk bijlage Helpmij.xlsm

Alvast dank voor de hulp.

HWV
 
Laatst bewerkt:
Met deze regel
Code: 
.Offset(, 9).Copy Sheets("Database").Cells(j, 28)

kopieer je inderdaad alleen maar de inhoud (de formule) naar het tabblad Database. Je moet iig Plakken Speciaal -> Waarden doen. Ik krijg dat helaas in jouw formule niet voor elkaar.
 
Probeer deze eens:
Code: 
Sub LeverdatumPlaatsen()
    On Error Resume Next
    With Sheets("Database")
        For j = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
            .Cells(j, 28) = Sheets("Inkooporder").Columns(1).Find(.Cells(j, 1).Value)
        Next
    End With
End Sub
 
Laatst bewerkt:
Of, als de opmaak mee moet gaan:
Code: 
.Offset(, 9).Copy
Sheets("Database").Cells(j, 28).PasteSpecial xlPasteValuesAndNumberFormats
 
geen datum

Beste,

Hij plakt idd nu de value maar geef een verkeerde datum.

Code: 
Sub LeverdatumPlaatsen()
    On Error Resume Next
    With Sheets("Database")
        For j = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
            .Cells(j, 28) = Sheets("Inkooporder").Columns(1).Find(.Cells(j, 1).Value)
        Next
    End With
End Sub

Hoe kan ik er voor zorgen dat er een datum opmaak meegegeven wordt..
HWV
 
Ik heb niks aan de regel- en kolomnummers veranderd. Dat kan je uiteraard eenvoudig zelf nagaan.
Wat de opmaak betreft, zie #4.
 
zie bijlage

Ik heb het in de bijlage gedaan, en zie de Bekijk bijlage Helpmij.xlsm uitkomst dat ik geen datum format ziet.
Ik snap nu even niet wat ik nu verkeerd doet hierin


HWV
 
Geen idee wat je bedoelt.
De code vult verschillende regels in kolom AB op het blad Database en daar zie ik alleen maar datums.
 
Mijn datum format is 6-5-2179
en zou moeten zijn de datum van vandaag

Groet HWV
 
6-5-2179 is gewoon een datum, dus datum format.
Dat is de datum behorende bij het gevonden getal 102030.
Vandaag, 17-7-2018 is 43298

Als je daar de datum van vandaag wilt hebben hoef je helemaal niets te kopiëren en te plakken.
Code: 
Sub LeverdatumPlaatsen()
    With Sheets("Database")
        For j = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
            Set rw = Sheets("Inkooporder").Columns(1).Find(.Cells(j, 1).Value)
            If Not rw Is Nothing Then .Cells(j, 28) = Date
        Next
    End With
End Sub
 
Geweldig

Top Edmoor,

Ik heb mijn doel hiermee bereikt.

Groet HWV
 
Een database hoort een gestructureerde tabel te zijn met kolomkoppen. Anders heeft het niets met een database te maken. De code is dan veel sneller en efficiënter te maken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan