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

Waarde wegschrijven naar bepaalde kolom

Status
Niet open voor verdere reacties.
E

eddydordt

Gebruiker
Lid geworden
4 aug 2011
Berichten
26
Hallo

Ik wil in excel een invoerveld maken, waar ik telkens een code kan invoeren, die ik dan wil laten wegschrijven op het 2e blad in een bepaalde kolom.
Welke kolom dit moet zijn is afhankelijk van de letter in de code, bijv. 12K21 moet dan in de kolom K op blad 2 gezet worden, is dit mogelijk?

Mvg Eduard
 
Kan je dit even in een voorbeeldje duidelijk maken? Wat moet er bv gebeuren als de volgende invoer 13K21 is?
 
Dat deze ook naar de kolom K wordt weggeschreven. Maar als ik bijvoorbeeld 12N34 dat deze dus naar N gaat. Welke letter er in de code zit naar die kolom moet het.
 
Je kan deze macro eens testen:
Code: 
Sub cobbe()
On Error Resume Next
With Sheets("Blad1")
 For Each cl In .Range("C3:C" & .Range("C" & .Rows.Count).End(xlUp).Row)
    For i = 1 To Len(cl)
      If Not IsNumeric(Mid(cl, i, 1)) Then
         Kolom = Kolom & Mid(cl, i, 1)
      End If
    Next
    With Sheets("Blad2")
     Rij = .Range(Kolom & .Rows.Count).End(xlUp).Row + 1
      cl.Copy .Cells(Rij, Kolom)
    End With
   Kolom = ""
 Next
End With
End Sub
 
Er gebeurt helemaal niks, ook niet als ik hem achter een knop plaats. Moet ik mijn codes in een bepaalde cel of veld plaatsen?
 
Laatst bewerkt:
De codes worden gecheckt als ze in kolom C staan vanaf C3 en verder naar beneden,
de tabs heten 'Blad1' en 'Blad2'.
Als dat niet het geval is bij u dien je dit aan te passen.
 
eddydordt,

De code van "cobbe" werkt perfect, zie bestandje
 

Bijlagen

  • Gegevens Wegschrijven.xlsm
    21,4 KB · Weergaven: 49
Ik merk alleen dat er geen andere leestekens in kunnen staan, klopt dit?
 
Dat klopt.
Als het ook de bedoeling is om andere leestekens te gebruiken waarom vraag je dat dan niet gelijk?
Het is frustrerend om telkens alles weer te moeten aanpassen voor de helpers, vind ik.
 
Nu met uitsluiting van de andere tekens:
Code: 
Sub cobbe()
On Error Resume Next
With Sheets("Blad1")
 For Each cl In .Range("C3:C" & .Range("C" & .Rows.Count).End(xlUp).Row)
    For i = 1 To Len(cl)
      If Not IsNumeric(Mid(cl, i, 1)) Then
       If Asc(UCase(Mid(cl, i, 1))) > 64 And Asc(UCase(Mid(cl, i, 1))) < 91 Then
         Kolom = Kolom & Mid(cl, i, 1)
       End If
      End If
    Next
    With Sheets("Blad2")
     Rij = .Range(Kolom & .Rows.Count).End(xlUp).Row + 1
      cl.Copy .Cells(Rij, Kolom)
    End With
   Kolom = ""
 Next
End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan