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

8ste cijfer letter veranderen in X

Status
Niet open voor verdere reacties.

Dokman

Gebruiker
Lid geworden
5 jun 2023
Berichten
156
Hallo,

Ik knip data uit 1 Excel-bestand en plak deze in een andere.
In kolom E zetten altijd getallen met 8 in een rij. 12345678 of 1234567A nu wil ik graag
dat die laatste vervangen wordt door en x.

Want in een andere kolom gaat hij en vergelijking maken met die getallen. Maar omdat de laatste en revisie nummer
is. is deze voor ons niet van belang daarom graag en x

ik gebruik de volgende regel:
=ALS.FOUT(INDEX('FMS630'!C:C; VERGELIJKEN(E2;'FMS630'!A:A; 0));"")

Of kan ik in deze regel iets veranderen zodat die de laatste waarde negeert.
 
Ik knip data uit 1 Excel-bestand en plak deze in een andere.
In kolom E zetten altijd getallen met 8 in een rij. 12345678 of 1234567A nu wil ik graag
dat die laatste vervangen wordt door en x.
Kan allemaal d.m.v. Power query.
 
Zo vervang je het achtste karakter door een X:
Code:
=LINKS(A1;7)&"X"
 
Dank je @AHulpje daar ga ik mee aan het werk.
Ik wil graag ook rijen laten verdwijnen als er worden in een cel zitten.
Zit er en wordt Pedal in kolom F dan moet hij die hele cel verwijderen.

ik heb daar iets voor mijn krijg het niet werkend. Kan iemand hier even nakijken.


Code:
Sub ClearContentsIfContains()

Columns(6).Replace "LIFTFR*", ""
Columns(6).Replace "PEDAL*", ""

  Columns(6).SpecialCells(4).EntireRow.Delete

  Set UsedRng = ActiveSheet.UsedRange
  LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
  Application.ScreenUpdating = False

  For RowIndex = LastRowIndex To 1 Step -1
    If Application.CountA(Rows(RowIndex)) = 0 Then
      Rows(RowIndex).Delete
    End If
    Next RowIndex

  Application.ScreenUpdating = True

    Dim lastRow As Long

End Sub

Dank jullie wel voor jullie hulp
 
Een Dim opdracht net voor een End Sub is totaal overbodig.
 
Mijn duit in het zakje:
Code:
=VERVANGEN(A1;8;1;"x")
 
heb en bestand gemaakt

Kolom B,D,E,G en H gaan op verbergen. deze moeten blijven staan.

De code van AHulpje werkt maar dan gaat hij door tot einde excel, en toen was het bestand te groot om te plaatsen.

Hoop dat jullie het en beetje snappen.
 

Bijlagen

@emields
Daar had je 114 toetsaanslagen voor nodig, het woordje Pedal vergt vijf toetsaanslagen.

@Dokman
Dus als het woord Pedal voorkomt in kolom F moet de hele regel verwijderd worden?
Dat kan zo, ik heb daarbij zoveel mogelijk jouw code gebruikt:
Code:
Sub ClearContentsIfContains()
    Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    Application.ScreenUpdating = False
    
    For RowIndex = LastRowIndex To 1 Step -1
        If Cells(RowIndex, 6) = "Pedal" Then Rows(RowIndex).Delete
    Next RowIndex
    
    Application.ScreenUpdating = True
End Sub
 
Dankje.

Snap maar de rij zal langer worden. het is nu PEDAL maar straks zet ik er nog tussen
LIFT, ARM, LEVEL en nog meer.

Kan ik na Pedal ook en * zetten. Want er staat nog meer informatie achter pedal
 
Zo is het naar wens uitbreidbaar:
Code:
Sub ClearContentsIfContains()
    Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    Application.ScreenUpdating = False
  
    For RowIndex = LastRowIndex To 1 Step -1
        Select Case LCase(Cells(RowIndex, 6))
            Case "pedal", _
                 "lift", _
                 "arm", _
                 "level"
                 Rows(RowIndex).Delete
        End Select
    Next RowIndex
  
    Application.ScreenUpdating = True
End Sub
 
Laatst bewerkt:
@Dokman
Waar staan je basis gegevens (welk tabblad) in je voorbeeld?
 
@AHulpje dat bedoel ik. Dankje daar ga ik verder mee.

@peter59 A:I kolom haal ik uit en ander bestand. J:L kolom haal ik uit tabblad FMS630

Denk dat ik hier en heel eind mee ga komen.
 
toch nog en vraagje. Als ik tijden bij elkaar optel. Krijg ik niet de uitkomst die ik had verwacht.

Als ik getallen bij elkaar optel en dat komt over de 24 uur heen dan krijg ik dat niet te zien.
Hoe kan ik zorgen dat ik deze wel te zien krijg. ik heb al geprobeerd om en aangepast tijd te maken.
[h]:mm Maar dan krijg ik en foutmelding in Excel.

ik wil graag dat alle tijden in Kolom K worden op geteld en dan en 24 uurs tijd ergens neerzet.
 
@AHulpje
Daar had je 114 toetsaanslagen voor nodig, het woordje Pedal vergt vijf toetsaanslagen.
De opmerking is méér dan terecht maar heb je die dan ook werkelijk geteld. LOL

Voor de uren optellen custom format [uu]:mm
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan