sayfa1 (a1) e yazılan ismi sayfa 2 b sutununa yazsın(mükerrek kontrolu yaparak)

[jambow]

sayfa1 (a1) e yazılan ismi sayfa 2 b sutununa yazdırabilirimiyiz.
not: b sutununda o isim varsa yazmasın bu isim var uyarısı versin.
bu işlemi macro ile yapabilirmiyiz
yardımcı olan arkadaşlara şimdiden teşekkürler

 

[Orion1]

Sub kaydet()
Dim k As Range
Set k = Sheets("Sayfa2").Range("B:B").Find(Sheets("Sayfa1").Range("A1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "[ " & Sheets("Sayfa1").Range("A1").Value _
    & " ] Sayfa2de kayıtlı.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    Exit Sub
    Else
    Sheets("Sayfa2").Cells(65536, "B").End(xlUp)(2, 1) = Sheets("Sayfa1").Range("A1").Value
End If
End Sub

 

[jambow]

hocam kaydettiği bu isimleri harf sırasına göre dizebilirmi (boşluklarını alarak)

 

[Orion1]

hocam kaydettiği bu isimleri harf sırasına göre dizebilirmi (boşluklarını alarak)

Sub kaydet()
Dim k As Range
Set k = Sheets("Sayfa2").Range("B:B").Find(Sheets("Sayfa1").Range("A1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "[ " & Sheets("Sayfa1").Range("A1").Value _
    & " ] Sayfa2de kayıtlı.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    Exit Sub
    Else
    Sheets("Sayfa2").Cells(65536, "B").End(xlUp)(2, 1) = Sheets("Sayfa1").Range("A1").Value
    [B][COLOR="Red"]Sheets("Sayfa2").Range("B2:B65536").Sort Sheets("Sayfa2").Range("B2")[/COLOR][/B]
End If
End Sub

 

[jambow]

allah razı olsun siz olmasanız işimiz çok zor

 

[Orion1]

allah razı olsun siz olmasanız işimiz çok zor

Rica ederim.
İyi çalışmalar.

 

[cenk yılmaz]

bi şey de ben sormak isterim.