makro ile satır numarasını bulma ve yazma

[bafralifatih55]

merhaba sevgili arkadaşlar.
konuda da belirtiiğim gibi makro ile bir kaydın satır numarasını bulup onu bir hücreye yazdırmak istiyorum. biraz daha açıklayayım:

örneğin: a2 hücresine veri girişi yapıyorum. a2'ye göre satır numarası "2" şeklinde c2 hücresine yazsın istiyorum.
a3 hücresine girerken desatır "3" diye c3 hücresine yazsın.
bunu nasıl yapabilirim makro ile
teşekkürler şimdiden.

 

[EmrExcel16]

Merhaba sayfanın kod bölümünde deneyiniz .

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Range("C" & Target.Row).Value = Target.Row
    End If
End Sub

 

[Muzaffer Ali]

Tam olarak ne yapmak istediğinizi yazsanız daha anlamlı olur. Çünkü zaten "C3" hücresinin satır numarası 3 olduğu için neden "A3" ün satır numarasına bakalım.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub satır_no()
If Intersect(ActiveCell, [a2:a2000]) Is Nothing Then Exit Sub
ActiveCell.Offset(, 1).Value = ActiveCell.Row
End Sub

 

[bafralifatih55]

merhaba
düşey ara ile veya indis ile birden fazla olan kayıtlar olduğu zaman arama esnasında hep ilk kaydı buluyor. dolayısı ile yanlış işlem gerkeleşmiş oluyor. bende projem için makro ile farklı yöntemler arıyorum.
daha doğrusu şöyle: sayfa1'de a sütununa kitabın numarasını girdiğimde kitaplar sayfasındaki ilgili kitabın d sütununa "okuyucuda" şeklinde birşey yapmak istiyorum. akabinde eğer okuyucuda ise "bu kitap zaten okuyucuda" şeklinde bir uyarı. ama bütün bunlar hücre değeri değişince olsun istiyorum formüller gibi.
bunu sizin yazdıklarınıza göre kendim uyarlamayı düşündüm. ama biraz zor olacak galiba.
ilginiz için sizelere teşekkür ederim.

 

[Muzaffer Ali]

Örnek dosyanızı eklerseniz belki bir çözüm bulunabilir.

 

[bafralifatih55]

merhaba
work_change özelliğini çalıştırmadım nedense sorun ne olabilir?

 

[bafralifatih55]

merhaba
o zaman şöyle açıklaayım:
ekteki dosyaya göre iade al sayfasından iade işlemi yapılırken kitap kodu ve kimlik no girildiği anda karşlık gelen "g" sütunundaki iade kodunu gizli!$q$3:$q$1000 aralığında bulacak.
akabinde karşlık gelen satır numarasını alıp o satır numarasındaki gizli!$d sütununa "evet" yazmasını istiyorum. ama bunlar hücre değişince çalışırsa çok çok iyi olur.
biraz karışık oldu sanırım. hakkınızı helal edin.
çok teşekkürler.

 

[Muzaffer Ali]

ekteki dosyaya göre iade al sayfasından iade işlemi yapılırken kitap kodu ve kimlik no girildiği anda

Örnekteki dosyada "iade al" sayfasında "kitap kodu" alanı göremiyorum.

Bir şey daha sorayım. Her kitabın kendine ait ve sabit bir "iade kodu" mu var?

 

[bafralifatih55]

merhaba hocam.
kitap kodu şöyle kitap listesindeki materyal numaraları verme ve alma için kitap kodu olarak niteleniyor.
iade kodu ise kitap kodu ve kişi kimlik numarası veya okul numarasının birleşimi oluyor.
gizli sayfasındaki "d" sütununda yer alan "evet-hayır" ibareleri ise gizli sayfasındaki "b" sütununu iade al sayfasındaki "g" sütunu ile karşılaştırıp gizli "d" sütununa "evet-hayır" yazıyor.

 

[Muzaffer Ali]

Valla çok karışık. Anlamakta zorlanıyorum.
Size önerim her ödünç verilen kitaba benzersiz bir kod belirleyin. İade işlemini de o kod üzerinden yapın.

 

[bafralifatih55]

merhaba hocam
benimde aklıma geldi. ama işlemler öğrenci numaraları ve kitap kodlarına göre yapıldığı için pek mümkün görünmüyor.
ocam önceki mesajımda yazdığım gibi satır numarasını bulup o satıra gierek ordaki değeri evet hayır şeklinde yaacak kodu yazabilirsek gerisini çözeriz diye üşünüyorum mümkünse.

 

[bafralifatih55]

arkadaşlar!
bu konuya bir çözüm üretebilir miyiz?
en azından yol gösterebilirseniz bende uğraşabilirim.
teşekkürler.

 

[bafralifatih55]

merhaba günaydın herkese
vlookup ile birşeyler yapmaya çalıştım. ancak hata verdi. acaba nasıl yapabilirim başka?
yardım lütfen tıkandı proje.