Hücreye tıkladığımda satır başka sayfaya aktarılsın

[ASLAN7410]

Merhaba hayırlı sabahlar.

Ekte gönderdiğim, excel dosyamın 1.sayfasnda plakalar mevcut, 2.sayfasında arşiv mevcut.

Yapmak istediğim PLAKALAR sayfasında işi biten plakaların satırını, H sütunundaki hücreye tıkladığımda ARŞİV sayfasının dolu satırın alt kısmına aktarsın, aktarıldıktan sonra PLAKALAR sayfasından aktarılan satır silinsin istiyorum.

Yardımcı olur musunuz?

 

[muygun]

Merhaba;
PLAKALAR sayfasında 2. satırdan itibaren herhangi bir hücreye çift tıklayın.
A sütununda veri varsa ilgili satırın A-F aralığı diğer sayfaya aktarılıp PLAKALAR sayfasının ilgili satırı silinir.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun, tam istediğim gibi çalışıyor ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı günler diliyorum.

 

[ASLAN7410]

Sayın muygun, hayırlı sabahlar.

Yazmış olduğunuz kodlar gayet güzel çalışıyor, çokta işime yarıyor, ellerinize sağlık çok teşekkür ediyorum.

Küçük bir isteğim olacak, sizin kodları kendi dosyama uyarladım, ama mesaja gelen bilgiyi ayarlayamadım.

Yani H sütunundaki hücreye bastığımda B sütunundaki plakayı ve T.C.'yi algılayıp örneğin 06ABCD08 Plakaya ait satırdaki bilgiler aktarılsın mı? yada 12345678918 T.C'ye ait satırdaki bilgiler aktarılsın mı? şeklinde mesaja gelmesini istiyorum. (Eğer B sütunundaki hücredeki karakterler 11 den küçükse 06ABCD08 Plakaya ait satırdaki bilgiler aktarılsın mı? şeklinde yapmaya çalıştım yapamadım.)

Bir türlü yapamadım, yardımcı olur musunuz?

 

[YUSUF44]

Sayın Muygun'un izniyle Soru ile başlayan satırınızı aşağıdaki satırlarla değiştirip deneyin:

    If IsNumeric(Cells(sat, "B")) = False Then
        kelime = " Plakaya ait "
    Else
        kelime = " T.C.'ye ait "
    End If
    Soru = MsgBox(Cells(sat, "b") & kelime & " satırdaki bilgiler aktarılsın mı?", vbInformation + vbYesNo)

 

[ASLAN7410]

Sayın Yusuf Bey, tam istediğim gibi oldu, çok teşekkür ediyorum, ellerinize sağlık.

Hayırlı akşamlar.