Excelling :: Topic: Scadenze periodiche (1/1)

Welcome, Guest

Page:
1

TOPIC: Scadenze periodiche

Scadenze periodiche 3 years 10 months ago #10350

armando74
OFFLINE
Junior Boarder
Posts: 27
Karma: 0

Ciao a tutti, mi rivolgo alla vostra disponibilità e competenza. Avrei bisogno di una macro che tenga conto delle date messe nella colonna A , dal 1 gennaio al 31 dicembre, e in base alla prima "X" messa nella colonna B inserisca,sulla stessa colonna, ulteriori "X", ad una distanza di righe tra loro pari ad un valore di giorni impostato in C1. Se in C1 inserisco 6, le "X" dovranno essere inserite ogni 6 giorni, per tutto l'anno. Grazie a tutti per la cortesia !
Armando74

The administrator has disabled public write access.

Scadenze periodiche 3 years 10 months ago #10360

Marius44
OFFLINE
Gold Boarder
Posts: 185
Thank you received: 38
Karma: 14

Ciao Armando
premesso che è sempre meglio allegare un file, se le date sono da A2 in basso e le frequenze sono in C2 puoi provare la seguente macro (da inserire nel modulo dell'evento Worksheet_Change

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cod As Integer, uR As Long, i As Long, ele As String, da As String
    Application.EnableEvents = False
    uR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    da = Target.Address
    Range("B2:B" & uR).ClearContents
    Range(da) = "X"
    cod = Range("C2").Value: If cod = 0 Then Exit Sub
    ele = "B2:B" & uR
    If Not Intersect(Target, Range(ele, "C2")) Is Nothing Then
        For i = Target.Row To uR Step cod
            Cells(i, 2) = "X"
        Next i
    End If
    Application.EnableEvents = True
End Sub

Prova e fai sapere. Ciao,
Mario

The administrator has disabled public write access.

Page:
1