compilazione turno

dodo47, 28/03/2023 12:33:

---

...per ultimo:

nella fase 1 credo sia necessario controllare "prima" se già ci sono D1 nella colonna, e immagino che se ci sono, non bisogna aggiungerne altre. Dico questo perchè se rilanci la fase1, con il codice prima postato, te ne aggiungerebbe altre.

Chiarisci tutto quanto richiesto anche nei post precedenti

saluti

---

dodo47, 28/03/2023 12:33:

---

...per ultimo:

nella fase 1 credo sia necessario controllare "prima" se già ci sono D1 nella colonna, e immagino che se ci sono, non bisogna aggiungerne altre. Dico questo perchè se rilanci la fase1, con il codice prima postato, te ne aggiungerebbe altre.

Chiarisci tutto quanto richiesto anche nei post precedenti

saluti

---

dodo47, 01/04/2023 17:54:

---

ciao
non sono sicuro di aver capito bene....fai le tue prove:

cerca di non fare passare molto tempo per rispondere in quanto mi dimentico le cose che faccio....non ci sei solo tu ;)

saluti

Sub SecondaParte()
'un secondo passaggio che attribuisca casualmente _
 alle colonne che non contengano "D1" ma solo "D" almeno un a "D1" _
 la seconda fase di questa macro è proprio aggiungere una D1 la dove _
 ci siano colonne che ne sono sprovviste facendo attenzione che _
 sulle righe , con l'aggiunta di questa macro ,poi non ce ne siano più di due.
 

Dim rng As Range, rng1 As Range
colStart = 2
colEnd = 32
rigaStart = 3
rigaEnd = 66
For c = colStart To colEnd
    Set rng = Range(Cells(rigaStart, c), Cells(rigaEnd, c))
    'controolo se colonna NON contiene D1 ma contiene D
    i = Application.WorksheetFunction.CountIf(rng, "D1")
    i1 = Application.WorksheetFunction.CountIf(rng, "D")
    If i = 0 And i1 > 0 Then
        For Each rg In rng
            If rg = "D" Then
                'controllo se riga dove mettere D1 contiene meno di 2 D1
                Set rng1 = Range(Cells(rg.Row, colStart), Cells(rg.Row, colEnd))
                i = Application.WorksheetFunction.CountIf(rng1, "D1")
                If i < 2 Then
                    rg.Value = "D1"
                    Exit For
                End If
            End If
        Next rg
    End If
Next
End Sub

---

dodo47, 04/04/2023 15:56:

---

ciao

....ogni tanto c'è qualche anomalia del tipo due d1 su qualche colonna....

Mandami un esempio di originale che elaborato dopo la prima e seconda macro, crei due D1 nella stessa colonna.
Non dovrebbe accadere in quanto nella seconda macro, queste istruzioni lo impediscono:
i = Application.WorksheetFunction.CountIf(rng, "D1")
i1 = Application.WorksheetFunction.CountIf(rng, "D")
If i = 0 And i1 > 0 Then
elabora....

Puoi tranquillamente alla fine della prima fare una call alla seconda

saluti

---

dodo47, 06/04/2023 09:52:

---

ciao
nella prima parte:

questa istruzione:
For c = colStart To colEnd
controlla colonna per colonna a partire da colonna 2 (B) a col. 32 (AF)
per invertire l'ordine di controllo delle colonne, dovrai fare: For c = colEnd to colStart Step -1

quest'altra:
For r = rigaStart To rigaEnd
controlla riga per riga da 3 a 66
per invertire l'ordine di controllo delle righe, dovrai fare: For r = rigaEnd to rigaStart Step -1

---------------------------------------------------------------------------------------------------------------------

La seconda parte è stata sviluppata con una logica diversa, pertanto PRIMA devi sostituirla con questa ed accertarti che funzioni come prima:

Sub SecondaParte_2()
'un secondo passaggio che attribuisca casualmente _
 alle colonne che non contengano "D1" ma solo "D" almeno un a "D1" _
 la seconda fase di questa macro è proprio aggiungere una D1 la dove _
 ci siano colonne che ne sono sprovviste facendo attenzione che _
 sulle righe , con l'aggiunta di questa macro ,poi non ce ne siano più di due.
 

Dim rng As Range, rng1 As Range
colStart = 2
colEnd = 32
rigaStart = 3
rigaEnd = 66
For c = colStart To colEnd
    Set rng = Range(Cells(rigaStart, c), Cells(rigaEnd, c))
    'controolo se colonna NON contiene D1 ma contiene D
    i = Application.WorksheetFunction.CountIf(rng, "D1")
    i1 = Application.WorksheetFunction.CountIf(rng, "D")
    If i = 0 And i1 > 0 Then
        For r = rigaStart To rigaEnd
            If Cells(r, c) = "D" Then
                'controllo se riga dove mettere D1 contiene meno di 2 D1
                Set rng1 = Range(Cells(r, colStart), Cells(r, colEnd))
                i = Application.WorksheetFunction.CountIf(rng1, "D1")
                If i < 2 Then
                    Cells(r, c) = "D1"
                    Exit For
                End If
            End If
        Next r
    End If
Next
End Sub

poi, CON LO STESSO PRINCIPIO DELLA PRIMA PARTE, INVERTI SECONDO QUELLO CHE VUOI FARE, I DUE CICLI:
For c......
For r.......

saluti

---

dodo47, 10/04/2023 19:22:

---

---

....ma si può anche fare in modo che il controllo lo faccia casualmente?...

---

mi sembra che stai tirando troppo la corda.....accontentati o provaci tu.
Capisci bene che la cosa comporta una sostanziale modifica di quanto finora fatto, in quanto la scelta casuale comporta comunque il controllo della riga che, se non corrisponde ai parametri, va scartata per effettuarlo su un'altra....

Per quanto riguarda il post #15, questo è un problema completamente diverso da quello di questo 3D.

Se vuoi apri un nuovo post chiarendo bene ed allegando un esempio.

saluti

---