IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - [RISOLTO]Formula concatena
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO]Formula concatena

 Post Reply Post Reply
Author
Message
shinleuch View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 30/Giu/2016
Location: Giappone
Status: Offline
Points: 265
Post Options Post Options   Thanks (0) Thanks(0)   Quote shinleuch Quote  Post ReplyReply Direct Link To This Post Topic: [RISOLTO]Formula concatena
    Posted: 04/Apr/2019 at 01:26
Salve a tutti,
ho una formula concatena in VBA che mi restituisce l'errore 1004 "application defined or object-defined error".
La formula e' la seguente

    Sheets("Temp").Select
    Range("A1").Select
   
    For i = 1 To 1048576
        If Cells(i, 1) = "" Then
    Call copyandpaste
     Exit Sub
        End If
       
    Cells(i, 40).Select
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE(RC[-34],"" "",RC[-24],"" "",RC[-23],"" "",RC[-20],"" ""RC[-17],"" "",RC[-10])"
    ActiveCell.Offset(1, -40).Range("A1").Select
   
    Next i
e il debug mi segnala in giallo la parte compresa tra ActiveCell e RC[-10])".
Il codice ha sempre funzionato finche' non e' stato modificato il file originale da cui vengono copiati i dati da concatenare.
Qualcuno ha qualche suggerimento? Ho provato a cambiare anche i riferimenti "RC" senza risolvere nulla.

Grazie in anticipo
Simone


Edited by shinleuch - 04/Apr/2019 at 15:02
Simone

Windows10 - Office2016
Back to Top
Sponsored Links


Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 11946
Post Options Post Options   Thanks (0) Thanks(0)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 04/Apr/2019 at 10:06
Ciao
devi sostituire le , (virgole) con &, es:

...CONCATENATE(RC[-34] & "" "" & RC[-24] ......

l'ultima istruzione prima del next la farei così:

ActiveCell.Offset(1).Select

Saluti
domenico
win 10- office 2016
Back to Top
shinleuch View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 30/Giu/2016
Location: Giappone
Status: Offline
Points: 265
Post Options Post Options   Thanks (0) Thanks(0)   Quote shinleuch Quote  Post ReplyReply Direct Link To This Post Posted: 04/Apr/2019 at 15:02
Come al solito risolvi tutti i miei problemi.
Grazie mille Domenico.
Simone

Windows10 - Office2016
Back to Top
locate View Drop Down
Utente Senior
Utente Senior


Joined: 08/Ott/2009
Status: Offline
Points: 351
Post Options Post Options   Thanks (0) Thanks(0)   Quote locate Quote  Post ReplyReply Direct Link To This Post Posted: 04/Apr/2019 at 15:20
ciao

PS  nella tua formula manca una VIRGOLA
"=CONCATENATE(RC[-34],"" "",RC[-24],"" "",RC[-23],"" "",RC[-20],"" ""RC[-17],"" "",RC[-10])" "=CONCATENATE(RC[-34],"" "",RC[-24],"" "",RC[-23],"" "",RC[-20],"" "",RC[-17],"" "",RC[-10])"
ciao
Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 11946
Post Options Post Options   Thanks (0) Thanks(0)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 05/Apr/2019 at 10:54
eh...eh.... hai ragione locate!!
cari saluti
domenico
win 10- office 2016
Back to Top
shinleuch View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 30/Giu/2016
Location: Giappone
Status: Offline
Points: 265
Post Options Post Options   Thanks (0) Thanks(0)   Quote shinleuch Quote  Post ReplyReply Direct Link To This Post Posted: 07/Apr/2019 at 09:05
Originally posted by locate locate wrote:

ciao

PS  nella tua formula manca una VIRGOLA
"=CONCATENATE(RC[-34],"" "",RC[-24],"" "",RC[-23],"" "",RC[-20],"" ""RC[-17],"" "",RC[-10])" "=CONCATENATE(RC[-34],"" "",RC[-24],"" "",RC[-23],"" "",RC[-20],"" "",RC[-17],"" "",RC[-10])"
ciao
 

Si', grazie, di questo me ne ero accortoWink

Saluti
Simone

Windows10 - Office2016
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,031 seconds.