rinominare celle aggiungendo una sigla in excel

Question

Buon giorno,

Vorrei sapere se è possibile aggiungere una sigla a tutte le celle di una colonna nominate con: 001,002,003,004,005,ecc. per capirci io devo aggiungere B.V. a tutte le celle per risultare: B.V.001,B.V.002, B.V.003,B.V.004, ecc.ecc.

Esiste una scorciatoia?

grazie

sandro

Answer 1

Ciao sandromuller,

scusa ma non avevo fatto caso alla seconda immagine. Inoltre ieri avevi anche detto:

• Nella colonna A del mio foglio su 178 celle molte sono numerate, ed hanno un coll. iper. mentre una decina sono vuote, o con una scritta, ma senza coll. ip.

Quindi questa dovrebbe andare:

Public Sub bMacro()

Dim sh  As Excel.Worksheet

Dim rng As Excel.Range

    Set sh = ThisWorkbook.Worksheets.Item("Foglio1")

    For Each rng In sh.Range("A2:A178")

      With rng

        If .Hyperlinks.Count Then

          .Value = "B.V. " & .Value

        ElseIf .HasFormula Then

          If Left(.Formula, 10) = "=HYPERLINK" Then

            .Formula = Left$(.Formula, InStr(.Formula, ",")) _

                      & """B.V. " & .Value & """)"

          End If

        End If

      End With

    Next

    Set rng = Nothing

    Set sh = Nothing

End Sub

Answer 2

Ho cambiato nella formula foglio1 invece di foglio2, ma me le rinomina all'infinito, dove inserisco A178 che è l'ultima cella?

Answer 3

Mi sono dimenticato di dire che in ogni cella c'è un coll. iper. si sposta anche quello?

ALT+F11

Inserisci-->Modulo

Copia/incolla questo nel modulo:

Public Sub m()

    Dim sh As Worksheet

    Dim lRiga As Long

    Dim rng As Range

    Dim c As Range

    Set sh = ThisWorkbook.Worksheets("Foglio2")

    With sh

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        Set rng = .Range("A2:A" & lRiga)

        For Each c In rng

            If mLink(c) = False Then

                c.Value = "B.V." & c.Value

            End If

        Next

    End With

    Set c = Nothing

    Set rng = Nothing

    Set sh = Nothing

End Sub

Public Function mLink(ByVal c As Variant) As Boolean

    Dim hl As Hyperlink

    For Each hl In ActiveSheet.Hyperlinks

        If hl.Range = c Then

            mLink = True

            Exit For

        End If

    Next

End Function

ALT+F11 e torni in Excel

ALT+F8

Seleziona: m()

Esegui

NOTA. Qui considero la colonna A del Foglio1 a partire da A2 fino a A(n). Modifica per il tuo contesto.

Answer 4

Mi sono dimenticato di dire che in ogni cella c'è un coll. iper. si sposta anche quello?

Answer 5

Buon giorno,

Vorrei sapere se è possibile aggiungere una sigla a tutte le celle di una colonna nominate con: 001,002,003,004,005,ecc. per capirci io devo aggiungere B.V. a tutte le celle per risultare: B.V.001,B.V.002, B.V.003,B.V.004, ecc.ecc.

Esiste una scorciatoia?

grazie

 

sandro

Mettiamo ti abbia 001 in colonna A.

• Aggiungi una colonna(Click con il tasto dx del mouse su A, Inserisci)
• Viene aggiunta una nuova colonna A
• In A1 scrivi: ="B.V." & B1
• Espandi verso il basso per le righe necessarie
• Quando hai fatto, Click su A
• Copia
• Incolla speciale e seleziona: Valori
• Elimina la colonna B (Click con il tasto dx del mouse su B, Elimina)