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

Hoe in opgenomen macro Filename en Windows().Activate aanpassen

Status
Niet open voor verdere reacties.
Sory, is toch gelukt met toevoeging

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("BREEDTE_KOLOM").EntireColumn.ColumnWidth = Me.Range("KOLOMBREEDTE").Value
    End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("TITTEL")) Is Nothing Then
  Sheets("UITLEG").Select
  Cancel = True
End If
End Sub
 
Hallo, iedereen

Kan er in macro Auto_Open() of in Macro1() iets gemaakt worden voor als BESTANDAANTAL=0, de cellen BESTANDMAKEN, OPENMAP en BEWAARMAP gaan flikkeren (blinking)

iedereen reeds bedankt voor de vorige antwoorden
 
Daar heb je meer last dan plezier van.

Ik zou het oplossen met VW-opmaak.
Anders wordt het even zoeken in dit forum naar: "application.ontime"
 
wie kan onderstaande macro aanpassen voor in blad "UITLEG"
als BESTANDAANTAL (cel:H31) = 0 , dan rij 1 zichtbaar en rij 2 onzichtbaar, anders rij 1 onzichtbaar en rij 2 zichtbaar

Code: 
Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("UITLEG").Select
    Range("LETTERLIJST").Select
    Selection.ClearContents
    TEL1 = Range("AutoOpenNAAM").Value
    TEL2 = Range("AutoOpenRij").Value
    TEL3 = Range("AutoOpenKOLOM").Value
    bst = Dir(TEL1)
    While bst <> ""
        Cells(TEL2, TEL3) = Left(bst, 1)
        TEL2 = TEL2 + 1
        bst = Dir
    Wend
    Range("LETTER").Select
Application.ScreenUpdating = True
End Sub
 
Geen idee wat de rest van de code doet, dus een wilde gok.
Code: 
Sub Auto_Open()
Application.ScreenUpdating = False
with Sheets("UITLEG")
    .rows.hidden = false   
    .rows(iif(.range("h31") <> 0 and .range("h31") <> "", 1, 2)).hidden = true
    .Range("LETTERLIJST").ClearContents
       TEL1 = .Range("AutoOpenNAAM").Value
       TEL2 = .Range("AutoOpenRij").Value
       TEL3 = .Range("AutoOpenKOLOM").Value
          bst = Dir(TEL1)
    While bst <> ""
        .Cells(TEL2, TEL3) = Left(bst, 1)
        TEL2 = TEL2 + 1
        bst = Dir
    Wend
    .Range("LETTER").Select
end with
Application.ScreenUpdating = True
End Sub
 
Harry,
Bedankt voor Uw oplossing, het werkt prima !!!
Wel een paar aanpassingen gedaan.
Door de rest van de code kan de waarde van de formule in cel “H31”= "BESTANDAANTAL" wijzigen, daarom heb ik de volgorde in de code gewijzigd.
Er zijn ook rijen die niet zichtbaar moeten zijn, dit heb ik aangepast met
Range("LETTERLIJST").Select
Selection.EntireRow.Hidden = True
Range("HIDDENNAMEN").Select
Selection.EntireRow.Hidden = True

hieronder de aangepaste code

Code: 
Sub Auto_Open()
Application.ScreenUpdating = False
With Sheets("UITLEG")
    .Rows.Hidden = False
    
    .Range("LETTERLIJST").ClearContents
       TEL1 = .Range("AutoOpenNAAM").Value
       TEL2 = .Range("AutoOpenRij").Value
       TEL3 = .Range("AutoOpenKOLOM").Value
          bst = Dir(TEL1)
    While bst <> ""
        .Cells(TEL2, TEL3) = Left(bst, 1)
        TEL2 = TEL2 + 1
        bst = Dir
    Wend
    Range("LETTERLIJST").Select
    Selection.EntireRow.Hidden = True
    Range("HIDDENNAMEN").Select
    Selection.EntireRow.Hidden = True
    .Range("LETTER").Select
    .Rows(IIf(.Range("BESTANDAANTAL") <> 0 And .Range("BESTANDAANTAL") <> "", 1, 2)).Hidden = True
End With
    Application.ScreenUpdating = True
End Sub
 
Verwijder alle select en selection en knoop ze aan elkaar.

Code: 
Range("LETTERLIJST").Select
Selection.EntireRow.Hidden = True
Range("HIDDENNAMEN").Select
Selection.EntireRow.Hidden = True

Code: 
Range("LETTERLIJST").EntireRow.Hidden = True
Range("HIDDENNAMEN").EntireRow.Hidden = True

Je kan ook dit gebruiken, dan kunnen bovenstaande coderegels er helemaal uit.
Code: 
.rows("1:2").hidden = false
.Rows(IIf(.Range("BESTANDAANTAL") <> 0 And .Range("BESTANDAANTAL") <> "", 1, 2)).Hidden = True
 
Laatst bewerkt:
Nog een vraagje
“D_Inzenderslijst.xls” is gemaakt door de macro’s in “Inzenderslijst maken SUVERMO.xls”.
Als in kolom BO in de rijen 2 t.e.m. 8 JA/NEE wordt gewijzigd veranderd de waarde in de cel A10=PRINTTELLER
Kan er iemand een code maken voor
Als de waarde in A10=PRINTTELLER verandert dan macro “Inzenderslijst_wijzigen” starten
 
Laatst bewerkt door een moderator:
Hallo, alphamax , BikerBill64 , edmoor , Haije, HSV, jkpieterse , mvdvlist , OctaFish, popipipo , puppie, roeljongman, SjonR , sylvester-ponte en VenA,

Ik wil U bedanken voor uw medewerking bij het oplossen van mijn vragen.
Zonder jullie was het niet gelukt om het bestand “Inzenderslijst_maken.xls” te voorzien van de nodige macro’s voor een gemakkelijk gebruik.

Het uiteindelijke resultaat is beter dan oorspronkelijk door mij beoogd.

Het zip bestand is bedoeld voor bezoekers die zouden willen testen
 
Laatst bewerkt door een moderator:
hallo voor iedereen,

toch nog een vraagje

is het mogelijk om een zandloper of een balk, die gevuld wordt, te laten zien.
Als er een groter bestand "N_Catalogus Export dieren en predikaten.xls" word gebruikt, duurt het wel even voor alles verwerkt is.

Is het mogelijk om er voor te zorgen dat er niets gewijzigd kan worden gedurende de periode van verwerking.

Zelf ga ik bekijken welke formules er mogen worden vervangen door waardes.
 
Laatst bewerkt door een moderator:
Alle bestanden verwijderd. Mogelijk namen van personen in bestand.
 
Bestanden TS verwijderd i.v.m. privacy
 
het verwijderen van select en selection heb ik nog niet gedaan, maar ik ben reeds tevreden met het resultaat, waarvoor nogmaals mijn dank voor de medewerking
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan