Lege cellen niet opslaan

[Judithdoek]

Hallo mensen,

Onderstaand een code waarin ik ook mijn probleem heb omschreven.

Sub gegevens_opslaan()
    Range("B4:F4").Copy
    Sheets ("Overzicht afspraken test2")
    Range ("A13")
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range ("B13")
    Application.CutCopyMode = False
    .Delete Shift:=xlToLeft[COLOR="#FF0000"] 'Ik wil hier graag de commando geven dat de cel alleen verwijdert mag worden wanneer deze leeg is.[/COLOR]
    Range ("C13")
    .Delete Shift:=xlToLeft [COLOR="#FF0000"]'Hetzelfde geldt voor hier.[/COLOR]
End Sub

Heeft iemand een code voor mij? Als er een voorbeeldbestand nodig is roept u maar. (In dit geval denk ik dat het overzichtelijker is zonder)

 

[jkpieterse]

Er zitten wat foutjes in jouw code. Bedoel je dit:

Sub gegevens_opslaan()
    Range("B4:F4").Copy
    Sheets("Overzicht afspraken test2").Range("A13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    If Range("B13").Value = "" Then
        Range("B13").Delete Shift:=xlToLeft  'Ik wil hier graag de commando geven dat de cel alleen verwijdert mag worden wanneer deze leeg is.
    End If
    If Range("C13").Value = "" Then
        Range("C13").Delete Shift:=xlToLeft  'Hetzelfde geldt voor hier.
    End If
End Sub

 

[Judithdoek]

Ja bedankt, dat is wat ik bedoel! Ik ga kijken of de code werkt

 

[Judithdoek]

Mijn excuus de code werkt nog niet helemaal, ik zal hier morgen even op terug komen.

 

[jkpieterse]

Overal waar je direct begint met "Range(....." "praat" je tegen het actieve werkblad. Als dat niet het werkblad is dat bedoeld is, dan zie je in mijn voorbeeld code hoe je specifiek naar een bepaald bereik op een bepaald tabblad verwijst.

 

[Judithdoek]

Het werkt bedankt! Laatste vraagje: Kan ik ook een range selecteren bijv:

IF Range("B1:B70").Value = "" Then

Waarbij bijvoorbeeld B2, B5, B7, B25 leeg zijn (dit kan iedere keer verschillend zijn).

Dat de code ervoor zorgt dat alleen die lege regels opgeschoven worden (in dit geval xlUp)

Als ik een beetje vaag ben roept u maar, dan stuur ik even een voorbeeldbestand.

 

[VenA]

Maak gebruik van Specialcells. In dit geval Specialcells(4) (xlCellTypeBlanks)

Een voorbeeldbestand kan je net zo goed gelijk plaatsen.

 

[Judithdoek]

Ik ga het uitproberen. Wanneer ik er niet uit kom, zal ik een voorbeeldbestand plaatsen