Soru Excel de değişken veri aktarımı için yardım lütfen.

[Czyy]

Merhabalar,
Benim şöyle bir sorunum var;
Sayfa1 A sütununa alt alta veri girişleri yapıyorum


Sayfa1 de en son veri girdiğim hücrede Enter' a basınca Sayfa2 de ki B15 hücresine en son işlem yaptığım numarasının yazmasını istiyorum.
Ve ardından Sayfa2' yi yazdırmasını istiyorum.

örn;
A15 hücresine "321321" yazdım entera bastım sayfa2 deki B15 hücresine bu veriyi girip o sayfayı yazdırdı.
Ardından A16 hücresine "664415" sayısını girdim entera bastım yine sayfa2 deki B15 hücresine bu veriyi aktarıp sayfayı yazdırdı.
Bu şekilde bir A Sütunu için döngü oluşsun istiyorum.

Yardımlarınız için şimdiden çok teşekkür ediyorum.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?
Sayfa1 in kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Sheets("Sayfa2").[B15] = Target.Value
    Sheets("sayfa2").PrintOut
End Sub

 

[Czyy]

Merhaba,

İstediğiniz bu mu?
Sayfa1 in kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Sheets("Sayfa2").[B15] = Target.Value
    Sheets("sayfa2").PrintOut
End Sub

Çok teşekkür ederim yapmak istediğim tam anlamıyla buydu.

Bir de bu koda koşul ekleye bilir miyiz
A1 hücresine veri girilince B1 hücresinde W yazarsa bu komutu uygula
A2 hücresine veri girilince B2 hücresinde "#N/A" yazarsa komutu uygulamasın.Böyle devam etsin.
Çok şey istiyorum biliyorum ama günlük yaşantımda bu benim işimi çok kolaylaştıracak.
Olmuyorsa da hiç sorun değil tekrardan yardımlarınız için teşekkürler.

 

[Ömer]

W yazarsa uygular aksi durumda uygulamadan B15 deki veriyi de siler.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Sheets("Sayfa2").[B15].ClearContents
    If UCase(Target.Offset(0, 1)) = "W" Then
        Sheets("Sayfa2").[B15] = Target.Value
        Sheets("sayfa2").PrintOut
    End If
End Sub

 

[Czyy]

W yazarsa uygular aksi durumda uygulamadan B15 deki veriyi de siler.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Sheets("Sayfa2").[B15].ClearContents
    If UCase(Target.Offset(0, 1)) = "W" Then
        Sheets("Sayfa2").[B15] = Target.Value
        Sheets("sayfa2").PrintOut
    End If
End Sub

Mükemmelsiniz çok çok teşekkürler