Excel - makro pro přidávání textu

Zdravím všechny zdejší borce,

potřeboval bych napsat makro, které mi na List2 vloží do buňky A1 text z buňky A1 na Listu1. Podmínka je, že při přepsání textu na Listu1 se nově zapsaná hodnota zapíše do buňky A2 na Listu2 (postupně se bude plnit sloupec A na Listu2 tak, jak budu vkládat slova do listu1 - ale pouze do buňky A1).

Děkuji za ochotu.

Předmět	Autor	Datum
Zkus tohle: Private Sub Worksheet_Change(ByVal Target As Range) Dim Radek As Long Dim List As Strin… Siki83 04.02.2014 15:33	Siki83	04.02.2014 15:33
Jen dodám, že kód je třeba vepsat tady (pravý klik na "List1"): [17226-excel-png] L-Core 04.02.2014 16:20	L-Core	04.02.2014 16:20
Díky. poslední qdj 04.02.2014 20:59	qdj	04.02.2014 20:59

Zkus tohle:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Radek As Long
 Dim List As String
 
 List = "List2"
 
  If Target.Address = "$A$1" Then
    If Len(Target) > 0 Then
        If Worksheets(List).Cells(1, 1) = Empty Then
            Worksheets(List).Cells(1, 1) = Target
         Else
            Radek = Worksheets(List).Cells(65000, 1).End(xlUp).Row + 1
            Worksheets(List).Cells(Radek, 1) = Target
        End If
    End If
  End If
End Sub

Jen dodám, že kód je třeba vepsat tady (pravý klik na "List1"):

[17226-excel-png]

excel.png 11.76 KiB

Díky.

Zpět do poradny Odpovědět na původní otázku Nahoru