|
Login
  • Page:
  • 1

TOPIC: Scadenze periodiche

Scadenze periodiche 3 years 10 months ago #10350

  • armando74
  • armando74's Avatar
  • 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
  • Marius44's Avatar
  • 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
Time to create page: 0.725 seconds