Başka bir hücrede metin varsa, Sütuna Metin Ekleyen Makro / VBA

İndirdiğim bir raporum var. Değişen Sütun A uzunluklarına sahiptir. Mümkünse M2’de belirli bir metni yerleştirecek bir VBA / Makro oluşturmak istiyorum. herhangi İlgili A hücresinde mevcut olan veriler. Her sütunda veriyi M sütunundaki süresiz olarak koymasını istemiyorum ve yalnızca karşılık gelen A hücresinde bir şey varsa metni koymasını istiyorum.

Bunu denedim ama işe yaramadı:

Private Sub Worksheet_Change()
If Worksheets("Sheet1").Range("A2").Value <> "" Then
Worksheets("Sheet1").Range("M2").Value = "Testing"
End If
End Sub

Biri yardım edebilir mi?

Denediğiniz ilk kod bir hücreyi (A2) kontrol eder ve bir hücreyi (M2) doldurur. Daha fazla hücre kontrol etmek istiyorsanız, makroda "Her Biri İçin" döngüsünü yerleştirin. Örnek için bkz. VBA Kodunuzla Döngü Görerek Görevleri Tekrarlama

Bir makro kullanmak istemiyorsanız, bir filtre yalnızca A sütununda değerleri olan satırları göstermek için

Eğer "karşılık gelen A hücresi" gerçekten A2 anlamına gelir ve kodunuz doğruysa, ancak çalıştırmaya çalışırken hatalar atıyorsanız, şunu deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2").Value <> "" Then
    Range("M2").Value = "Testing"
End If
End Sub

Bu kodu, çalışmasını istediğiniz gerçek çalışma sayfasına koyduğunuzu varsayıyorum.

Bu, "A2" de bir şey olduğunda sayfa her değiştirildiğinde, "M2" de "Test" yazacaktır.

Bu parçanın da otomatik olarak kaldırılmasını istiyorsanız,

Else
Range("M2").Value = ""

içinde.