Auteur Topic: Rij (gelezen 3498 keer)

Sunnybat · « **Reactie #15 Gepost op:** 08 april 2023, 13:58:53 »

Die geel zijn moeten weg

de andere moeten blijven

SoftAid · « **Reactie #16 Gepost op:** 08 april 2023, 14:01:55 »

Citaat van: Sunnybat op 08 april 2023, 13:58:53

Die geel zijn moeten weg

de andere moeten blijven

De kolommen waar gele cellen in staan of enkel de gele cellen?

SoftAid

Sunnybat · « **Reactie #17 Gepost op:** 08 april 2023, 14:19:17 »

heel de kolommen waar de cel geel van zijn c,e,h,l,m,n,q,r,w,x,z,aa
Sub Methode2()

Dim i As Long
With ActiveWorkbook.Sheets(1)
For i = 100000 To 1 Step -1
If LCase(.Cells(i, "C")) = "x" Or UCase(.Cells(i, "C")) = "X" Then
.Cells(i, "C").EntireColumn.Delete
End If
Next i
End With
End Sub

met deze code gaat heel C weg
nu moeten deze allemaal verwijderd worden
e,h,l,m,n,q,r,w,x,z,aa

Dus heel de kolommen

SoftAid · « **Reactie #18 Gepost op:** 08 april 2023, 15:19:38 »

Hallo helpers,

hier kan ik niet meer helpen.

Om zo een onregelmatige reeks kolommen te laten behandelen door de macro zal de Kolom moeten bepaald worden aan de hand van iets anders dan een "For kol = 1 to 28" loop

.

Deze kolommen moeten bewerkt worden: 1, 3, 5, 8, 12, 13, 14, 17, 18, 23, 24, 25, 26, 27

Code: [Selecteer]

Sub Methode_3() 
 
Dim rij As Long, kol As Long
With ActiveWorkbook.Sheets(1)
     For kol = 1 to 28                             
          For rij = 100000 To 2 step -1       'eerste rij moet blijven staan: kopteksten
              If .Cells(rij, kol) = “x” Or .Cells(rij, kol) = “X” Then             
                 .Cells(rij, kol).EntireColumn.Delete   
              End If
          Next rij
     Next kol
End With
End Sub

Succes,

SoftAid

Sunnybat · « **Reactie #19 Gepost op:** 08 april 2023, 17:03:19 »

@Montagnard
@SoftAid

Even op me Extern HDD gekeken en reeds gevonden
super kleine code en werkt perfect
het is voor elke export eenmalig dus ik heb er vrede mee

Sub deleteCol()
Range("C:C,E:E,H:H,L:L,M:M,N:N,Q:Q,R:R,W:W,X:X,Y:Y,Z:Z,AA:AA").Delete
End Sub

Super bedankt $_/-\o_$

SoftAid · « **Reactie #20 Gepost op:** 08 april 2023, 17:15:37 »

Hallo Sunnybat,

Als je ons daarvoor dagen en uren hebt laten zoeken, dan ben ik blij dat jij het gevonden hebt.

Hoofdstuk afgesloten!

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics