Otomatik Olarak Benzersiz Verileri Aktarma

[Bakigemlik]

Merhaba,

Ekteki excel'de Sayfa 1 de "H" hücresine değerleri giriyorum, buraya girdiğim değerleri otomatik olarak Sayfa 2 deki "A" sütununa aktarmasını istiyorum ama fakat "A" sütununda daha önce bu veri varsa herhangi bir işlem yapmasın,

Desteğinizi rica ederim,

Saygılarımla,

 

[Ömer BARAN]

Keşke, örnek belgenize birkaç satırlık aktarılmış veri ekleseydiniz.
Bence sorunuzla ilgili bazı soru işaretleri var.
Başlık olacak mı/olmayacak mı, H hücresine derken kastınız tüm H sütunu mu yoksa H3:H9 hücre aralığı mı?

 

[Ömer BARAN]

Merhaba.
Eğer maksatınız Sayfa2'ye daha önce aktarılmamış olmak şartıyla H3:H9 aralığına yazılan oranları aktarmak ise; önce Sayfa2 A1 hücresine "ORAN" kelimesini başlık olarak yazın ve ardından aşağıdaki kod'u Sayfa1'in kod bölümüne yapıştırınız ve H3:H9 aralığına değer girerek kontrol ediniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")
son = s2.[A65536].End(3).Row + 1

If Intersect(Target, Range("H3:H9")) Is Nothing Then Exit Sub
    If WorksheetFunction.CountIf(s2.Range("A1:A" & son), Target) > 0 Then Exit Sub
    s2.Cells(son, 1) = Target
End Sub

 

[Bakigemlik]

Teşekkürler Ömer Bey

 

[Ömer BARAN]

Teşekkürler Ömer Bey

Estağfurullah, iyi günler dilerim.