Kopiëren en plakken speciaal

Status
Niet open voor verdere reacties.
Kopieren en plakken

Hallo Ed,

Werkt toch niet goed want nu zie je dat de B1 28 ronden heeft en het zijn er in dat Nwe bestand 24 ronden.
Of heb ik het verkeerde blad gekopieerd?
Voor de zekerheid graag nog een antwoordje retour.

Gr. Bas
 

Bijlagen

  • Prg. KNBB MH (Versie 9.2).xlsx
    1,2 MB · Weergaven: 26
Het document dat je bijvoegde bevat geen VBA.
 
Mij lijkt dit wel voldoende

Code: 
Private Sub CommandButton1_Click()
  ar = Sheets("Biljartpoint").Cells(1).CurrentRegion.Offset(, 1).Resize(, 12)
  With Sheets("Bilartpoint klaar")
    .UsedRange.ClearContents
    .Cells(1).Resize(UBound(ar), 12) = ar
    .Cells(1).CurrentRegion.Sort .Cells(1, 2), , , , , , , xlYes
  End With
End Sub

Eventueel nog even de celeigenschappen in de kolommen G en H aanpassen naar een tijdnotatie.
 
Hallo Ed,

Ik kreeg gisteren een code toegezonden welke nu goed werkt, dus bravo voor de persoon die dat later toegevoegd heeft.

Maar........kan aan die code een verzendcode worden toegevoegd zodat de sheet "Bilartpoint klaar" per e-mail wordt verzonden?

Kopieren-en-plakken-speciaal?p=6243139#post6243139

Mij lijkt dit wel voldoende

Code:
Private Sub CommandButton1_Click()
ar = Sheets("Biljartpoint").Cells(1).CurrentRegion.Offset(, 1).Resize(, 12)
With Sheets("Bilartpoint klaar")
.UsedRange.ClearContents
.Cells(1).Resize(UBound(ar), 12) = ar
.Cells(1).CurrentRegion.Sort .Cells(1, 2), , , , , , , xlYes
End With
End Sub
Eventueel nog even de cel eigenschappen in de kolommen G en H aanpassen naar een tijdnotatie.
 
Kopieren en plakken

Moet ik natuurlijk wel het bestandje meesturen.
 

Bijlagen

  • Prg. KNBB MH (Versie 9.2).xlsm
    1,2 MB · Weergaven: 22
Kopieren en plakken

Hallo Ed,

Alles werkt nu zoals het hoort, maar is het blad "Bilartpoint klaar" met een toevoeging aan deze code automatisch te verzenden?

Code:
Private Sub CommandButton1_Click()
ar = Sheets("Biljartpoint").Cells(1).CurrentRegion.Offset(, 1).Resize(, 12)
With Sheets("Bilartpoint klaar")
.UsedRange.ClearContents
.Cells(1).Resize(UBound(ar), 12) = ar
.Cells(1).CurrentRegion.Sort .Cells(1, 2), , , , , , , xlYes
End With
End Sub
 

Bijlagen

  • Prg. KNBB MH (Versie 9.2).xlsm
    1,2 MB · Weergaven: 27
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan