Böyle bir excel tablosu mümkün mü?

[kristaldeniz]

Arkadaşlar dileklerimi resime işledim.. lütfen resmi inceler misiniz. Olur mu excel de böyle bir şey?

resim:

 

[kristaldeniz]

üstadlar! yok mu yorumu olan.. eğer excel de böyle birşey mümkün değilse, başka seçeneklere bakacağım..

 

[Necdet]

Aman Sayın kristaldeniz, kızmayınız, daha yeni gördüm Yapılır.

Şimdi bakıyorum sorunuza.

 

[Necdet]

Tekrar merhaba,

Aşağıdaki kodlar Sayfa1'in kod bölümünde olmalı

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Offset(0, -1) <> "" Then
    Target.Value = Date
    Son = Sheets("Sayfa2").[A65536].End(3).Row + 1
    Range("A" & Target.Row & ":C" & Target.Row).Copy Sheets("Sayfa2").Range("A" & Son)
    Rows(Target.Row).Delete
End If
End Sub

 

[kristaldeniz]

Üstad Allah razı olsun.. Tüm sağlık camiası sana teşekkür eder Bu işimi görür.. Biraz süsleyeyim Bir de sayfa1 kodu falan yazmışsın. ekstra bişe mi yapcam. kusura bakma cahilliğime ver. çömeziz daha

 

[Necdet]

Aşağıda Sayfa1 sekmesine sağ klikleyip kod görüntüle derseniz yukarıda verdiğim kodların orda olduğunu göreceksiniz.

Gönderdiğim dosyada herşey hazır ama siz değişiklik yapmak isterseniz diye kodun yerine belirttim.

 

[kristaldeniz]

teşekkür ederim.. karıştırayım bakalım biraz..