modifica 2 celle ad 1 condizione

[almanegritaPartecipante almanegrita]

ciao e ben ritrovati finalmente con una nuova veste grafica piu accattivante.. 🙂

Ho un problema che non so come risolvere che vi illustro brevemente.

Ho dei dati importati da csv che popolano il foglio.

Nelle celle da h2 ad h500....nelle celle spesso c'è la parola COD.

Mettiamo il caso che su H4 vedo la scritta COD....vado a inserire dei valori ( TNT ed 1 ) in c4 e b4....

Mettiamo il caso che su H7 vedo la scritta COD....vado a inserire dei valori ( TNT ed 1 ) in c7 e b7....

e cosi via......fino allo sfinimento.

Quando lo faccio 1,2,3,4 volte ci stà....ma quando lo faccio 10 volte inizio a perdere colpi...

è possibile automatizzare il tutto tenendo presente che i valori che inserisco sono sempre uguali ?

Grazie a tutti per l'aiuto che potrete darmi.

Allegati:

You must be logged in to view attached files.

[D@niloPartecipante D@nilo Karma: 12 pts]

Buongiorno

nel file allegato "TNT" non compare in colonna C comunque a patto di avere bene interpretato in B2 da trascinare in basso

=SE(H2="cod";1;"") in C2 da trascinare in basso

=SE(H2="cod";"TNT";"")

[almanegritaPartecipante almanegrita]

ciao, si hai interpretato bene, ci ho messo GLS cosi per caso.

Purtropoo non posso inserire formule in nessun campo...ho solo la necessita di modificare con una routine, perche le formule andrebbero via ad ogni import automatico dei dati perche verrebbero sovrascritte dall'import del csv.

Grazie

[D@niloPartecipante D@nilo Karma: 12 pts]

Ciao

premesso che col VBA sono un principiante ho modificato un codice che avevo in archivioPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("h2:h500")) Is Nothing Then
If Target.Count > 1 Then GoTo 1
If Target = "cod" Then
Target.Offset(0, -5) = 1
Target.Offset(0, -6) = "TNT"
End If: End If
1 Application.EnableEvents = True
End Sub


da mettere nel modulo di classe del foglio1......sicuramente qualche esperto lo modificherà

comunque se in colonna H appare cod in colonna B hai 1 e in colonna C tnt

[almanegritaPartecipante almanegrita]

grazie dell'aiuto...l'ho implementato e modificato da un vecchio codice che avevo  facendo sta roba qua:

Lr = Cells(Rows.Count, "A").End(xlUp).Row
For Each cell In Range("H2:H" & Lr)
If InStr(cell, "COD") > 0 Then cell.Offset(0, -5).Value = "GLS" & cell.Offset(0, -6).Value = 1

ma il valore 1 non me lo modifica purtroppo..

[patelModeratore patel Karma: 51 pts]

Io non ho capito niente,  allega un file con più dati (non tutti uguali) ed anche il risultato desiderato.

[almanegritaPartecipante almanegrita]

ho risolto, sono riuscito...grazie dell'aiuto nei miei confronti..alla prossima.

potete chiudere il 3d...

[albatros54Moderatore albatros54 Karma: 89 pts]

incolla questo codice in un modulo

Sub cercabis()
    Dim Lr As Long
    Dim rng As Range
    Dim cl As Range
    Lr = Cells(Rows.Count, "H").End(xlUp).Row
    Set rng = Range("H2:H" & Lr)
    For Each cl In rng
        If UCase(cl) = "COD" Then
            cl.Offset(, -5) = "GLS"
            cl.Offset(, -6) = 1
        End If
    Next
End Sub

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?( Alan Turing)

[albatros54Moderatore albatros54 Karma: 89 pts]

a prescindere dal codice che ti ho postato

ho risolto, sono riuscito…grazie dell’aiuto nei miei confronti..alla prossima.

potete chiudere il 3d…

dato che hai risolto,potresti postare la tua soluzione

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?( Alan Turing)

[Autore]

Articoli