sırası ile değer girme

[centetic]

ek de verdiğim dosya da gerekli açıklamam mevcuttur. yardım için teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [J6]) Is Nothing Then Exit Sub
Cells([B65536].End(3).Row + 1, "B") = Target
Son:
End Sub

 

[centetic]

sayın necdet bey vermiş olduğunuz kod ile düşey de istenileni yapıyor ama yatay da isim karşısında yapmıyor. ilginiz için teşekkür ederim.

 

[Necdet]

buraya gireceğim değer yukarı sütunda ismini verdiğim şahsın karşına sırası ile boş olan hücreye girecek. Mesela "vedat kırat" için ilk ikisi dolu olduğu için üçüncü hücreye yazacak. Veya "osman karaman" için değer yazdığımda ilk üçü dolu olduğu için dördüncü hücreye yazacak. bunun için bir formul istiyorum.

Sizin açıklamanız öyle idi bende ona yanıt verdim.
Yataydan birşey istemediniz ki.

 

[Necdet]

Merhaba,

Anladığım kadarıyla sorunuzu yanıtlamaya çalıştım.
Sıra numarasını otomatik verir.
Umarım işinize yarar.

Sub Duzenle()
Dim Sat, Sut As Integer
If [I1] = "" Then
    MsgBox "Adı Boş Geçmeyiniz..."
    Exit Sub
End If
Set Bul = Columns(2).Find(Range("I1"))
If Not Bul Is Nothing Then
    Sat = Bul.Row
Else
    Sat = [B65536].End(3).Row + 1
    Cells(Sat, "B") = [I1]
    Cells(Sat, "A") = Sat - 2
End If
Sut = Cells(Sat, "IV").End(1).Column + 1
If [I2] <> 0 Then Cells(Sat, Sut) = [I2]
[I1] = ""
[I2] = 0
End Sub

 

[centetic]

çok teşekkür ederim. göndermiş olduğunuz dosya tam isteğime göre.
tekrar tekrar ilginize çok teşekkür ediyorum..

 

[Necdet]

Güle güle kullanınız.