Excel - združevanje teksta iz dveh celic

[ajk]

Pozdravljeni

Rabil bi pomoč pri sledeči težavi, ki je ne uspem rešit z makrojem. Torej imam sledečo tabelo. Tabela se navzdol nadaljuje v enaki obliki:

Koda: Izberi vse

kolona A		kolona B		kolona C	kolona D	kolona E
AD			BLOCK 06:55 'TEST'					06 55 00				
RE2			PONEDELJEK		2				06 55 00				
RE4X374737		TOREK			5				06 55 00	
RE5X374700		SREDA			7				06 55 00
RE5X374701		ČETRTEK			8				06 55 00		
RE3			PETEK			1				06 55 00	
AD			BLOCK END						06 55 00	
.			.			.		.		.
.			.			.		.		.
.			.			.		.		.

Rezultat pa mora biti sledeči: (povsod kjer je v koloni A v celici tekst AD se mora iz kolone B prenesti tekst in se združiti z tekstom v koloni A). Mislim da je iz kode bolj vidno, kaj se mora zgoditi

Koda: Izberi vse

kolona A		kolona B		kolona C	kolona D	kolona E
AD BLOCK 06:55 'TEST'								06 55 00				
RE2			PONEDELJEK		2				06 55 00				
RE4X374737		TOREK			5				06 55 00	
RE5X374700		SREDA			7				06 55 00	
RE5X374701		ČETRTEK			8				06 55 00	
RE3			PETEK			1				06 55 00	
AD BLOCK END									06 55 00	
.			.			.		.		.
.			.			.		.		.
.			.			.		.		.

Že vnaprej se zahvaljujem za pomoč

Lep pozdrav

[admin]

Pozdravljeni,

Za kaj takšnega ne potrebujete makra. Postavite se v zadnjo kolono, recimo F in tja vpišite formulo in jo skopirajte navzdol po stolpcu

Če se v celici A nahaja AD potem temu pridruži presledek in celico B, sicer pa samo celico A

oz. v Excelovem jeziku:

Koda: Izberi vse

=IF(TRIM(A1)="AD";CONCAT(TRIM(A1);" ";TRIM(B1));TRIM(A1))

Na ta način nikoli ne pokvarite kolone A in lahko stvar popravljate kolikor želite.

Ker pa je makro zares preprost pa sem vam napisal tudi makro, v kolikor ga zares potrebujete:

Koda: Izberi vse

Option Explicit

Sub UrediKolonoA()
  Dim r As Integer: r = 1
    
  While Trim(Cells(r, 1)) <> ""
    If Trim(Cells(r, 1)) = "AD" Then
      Cells(r, 1) = "AD " & Trim(Cells(r, 2))
    End If
    
    r = r + 1
  Wend
End Sub

PS: Vsepovsod uporabljam funkcijo TRIM, ki iz besedila odstrani odvečne presledke na začetku in koncu. Ta funkcija je sicer povsem nepotrebna, a izkušnje mi govorijo, da uporabniki radi tlačite kakšne presledke (vsaj na konec) in imate potem včasih zato težave.

[ajk]

Pozdravljeni

Najlepša hvala za odgovor. Samo eno vprašanje glede prvega dela odgovora. A je možno v eni formuli (ki je zdaj v celici F1)vpisati tudi da se prenesejo vrednosti drugih celic? Z funkcijo ki ste jo pripeli, se oblikuje pravilno kolona F1 kamor sem skopiral formulo. Npr. za prvo vrstico: F1 je prav, G1 mora biti prazna, H1 prazna, I1 prazna in J1 06 55 00 itd. Upam da sem razumljivo napisal kaj mislim

Koda: Izberi vse

kolona A	kolona B	  kolona C  kolona D  kolona E       Kolona F              Kolona G   Kolona H  Kolona I Kolona J
AD		BLOCK 06:55 'TEST'		      06 55 00       AD BLOCK 06:55 'TEST'                               06 55 00
RE2	        PONEDELJEK	    2		      06 55 00       RE2                   PONEDELJEK     2	         06 55 00

Mi pa vsekakor pride prav makro,ker tako obliko kot sem jo napisal zgoraj dobim z makrojem in bi ta makro samo še vključil. Makro deluje lepo, samo ena majhna napakica je še. Če je npr. v celici A vpisano AD in potem makro združi vsebino celic A in B v celici A, celica B pa mora ostati prazna. Probam to doseči pa mi ne uspe. Lahko prosim za pomoč.

Lep pozdrav

[admin]

Koda: Izberi vse

Option Explicit

Sub UrediKolonoA()
  Dim r As Integer: r = 1
    
  While Trim(Cells(r, 1)) <> ""
    If Trim(Cells(r, 1)) = "AD" Then
      Cells(r, 1) = "AD " & Trim(Cells(r, 2))
      Cells(r, 2) = ""
    End If
    
    r = r + 1
  Wend
End Sub

[ajk]

Pozdravljeni

Najlepša hvala. Zadeva deluje. Kaj vse sem probal, da bi to dosegel, pa je zadeva tako enostavna.....
Predvidevam pa da je odgovor na prvi del vprašanja negativen.
Zakaj ta del kode ni pravilen če ga vpišem (če je v prvi celici AD ali AD1 potem.....):

Koda: Izberi vse

If Trim(Cells(r, 1)) = "AD" Or AD1 Then

Lep pozdrav

[admin]

Boste morali pogledati kakšen tečej ali prebrati kakšno knjigo.

Za začetnike je zelo primerna moja knjiga, ki pa ni več v prodaji, lahko pa si jo izposodite v knjižnicah po Sloveiji.

To kar ste vi napisali, računalnik vidi kot:

Koda: Izberi vse

If ( (Trim(Cells(r, 1)) = "AD") Or (AD1) ) Then

In zato seveda AD1 smatra kot spremenljivko. Tisto, kar želite/potrebujete vi, pa bo potrebno zapisati kot:

Koda: Izberi vse

If ( (Trim(Cells(r, 1)) = "AD") Or (Trim(Cells(r, 1)) = "AD1") ) Then

ali krajše:

Koda: Izberi vse

If Trim(Cells(r, 1)) = "AD" Or Trim(Cells(r, 1)) = "AD1" Then

[ajk]

Ja prav imate. Hvala za razlago.
Lep pozdrav