Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno 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
Jen dodám, že kód je třeba vepsat tady (pravý klik na "List1"): [17226-excel-png] nový
L-Core 04.02.2014 16:20
 L-Core
Díky. poslední
qdj 04.02.2014 20:59
 qdj

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

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