sayfa1 den sayfa2'ye geçişte veri yazdırma

[imdatsaral]

Arkadaşlar
Başlık nekadar uygun oldu bilemiyorun ama anlatmak istediğim konu C Sütun veri yazıldıktan sonra sayfa2'ye geçiyor. Benim istediğim geçiş esnasında C2 hücresine 221 sayısını yazdığımda sayfa2'ye geçiyor A sütunundaki ilk boş satıra ACD yazısını yazdırmak

İstediğimi umarım alatabilmişimdir ekte dosyayı gönderiyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub gec1()
Sheets("Sayfa2").Select
ss = Sheets("Sayfa2").[A65536].End(3).Row + 1
Cells(ss, 1) = "ACD"
End Sub

 

[imdatsaral]

SAYIN dEdE,
Cells(ss, 1) = "ACD" buradaki acd değişiyor sabit değil model numarası değişken şöyle anlatayım aktiv olan satırın A sütununda yazan değer olmalı

 

[dEdE]

Hımmm.
Galiba şimdi anladım.
Dosyanızın bir yedeğini aldıktan sora, dosyadaki tüm kodları silip aşağıdaki kodları ThisWorkbook koduna yapıştırınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveSheet.Name = "Sayfa2" Then Exit Sub
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    x = Cells(Target.Row, 1)
    Sheets("Sayfa2").Select
    ss = Sheets("Sayfa2").[A65536].End(3).Row + 1
    Cells(ss, 1) = x
End Sub

 

[imdatsaral]

sayın dEde,
yazmış olduğunuz kodla diğer sayfalardan sayfa2 veri geliyor ben bu ilişkinin sadece iki sayfa arasında olmasını istiyorum. şuan kullandığım dosya yaklaşık yedi sayfadan oluşmakta diğer sayfalarda C sütununda işlem yaptığımda Sayfa2 ilave ediyor.

 

[dEdE]

... yazmış olduğunuz kodla diğer sayfalardan sayfa2 veri geliyor ben bu ilişkinin sadece iki sayfa arasında olmasını istiyorum. şuan kullandığım dosya yaklaşık yedi sayfadan oluşmakta ....

Merhaba,
Örnek dosyanız iki sayfa. Kod buna göre yazıldı. Durum böyle olmadığına göre, kodlarıda değiştirelim.
Ekli dosyayı inceler misiniz?

 

[imdatsaral]

Sayın dEdE çok teşekkür ederim emeğine bilgine sağlık

 

[dEdE]

Rica ederim.
İyi çalışmalar dilerim.