Satıra otomatik yazdırma

[bygantar]

Merhaba arkadaşlar ;

sizlerden ricam şudur..

Diyelim bir exell sayfasında sürekli olarak a2-b2-c2-d2-e2 hücrelerine yazılan yazıları yani 2.satıra yazılan yazıları
yazı işlemi bitip entera bastıktan sonra 5.satırdan itibaren başlayıp otomatik olarak 5-6-7-8-9-10..... Satırlarına sırayla yazı yazdıttırabilimiyiz ? Yani yazı yazma yeri sürekli olarak 2.satır olucak burda yazılanlarıda otomatik sırayla birlikte 5. Satırdan başlayıp bir liste gibi aşağıya doğru sıralayacak şekilde bir exell çalışması yapabilirmiyiz ?

Umarım anlatabilmişimdir.

Saygıyla...

 

[Necdet]

Merhaba,

Yazdırdıktan sonra da 2. satırın silinmesini istersiniz değil mi?

 

[usubaykan]

Merhaba

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod; (İlgili sayfanın kod bölümüne uygulayın)

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satır As Long
    
    If Intersect(Target, [E2]) Is Nothing Then Exit Sub
    
    If Range("A5") = "" Then
        Satır = 5
    Else
        Satır = Range("A65536").End(3).Row + 1
    End If
    
    Range("A" & Satır & ":E" & Satır).Value = Range("A2:E2").Value
    Range("A2:E2").ClearContents
    Range("A2").Select
End Sub

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.

 

[bygantar]

merhaba,

yazdırdıktan sonra da 2. Satırın silinmesini istersiniz değil mi?

hiç önemli dğeil silinsede olur silinmesede

merhaba

ekteki örnek dosyayı incelermisiniz.

Kullanılan kod; (ilgili sayfanın kod bölümüne uygulayın)

option explicit
 
private sub worksheet_change(byval target as range)
    dim satır as long
    
    ıf ıntersect(target, [e2]) ıs nothing then exit sub
    
    ıf range("a5") = "" then
        satır = 5
    else
        satır = range("a65536").end(3).row + 1
    end ıf
    
    range("a" & satır & ":e" & satır).value = range("a2:e2").value
    range("a2:e2").clearcontents
    range("a2").select
end sub

istediğim tam böyle bir şeydi dostum çok saol ancak e2 hüccresinde entera bastıktan sonra çok düşünüp kasıyor nedne kaynaklanır acaba pc denmi yoksa kod dizilimindenmi yani kodları okuyup aşağıya yazmasından kaynaklanıyo olabilirmi yani herşey iyi guzel ama biraz daha hızlı yapabilirmiyiz olmuyosada böleside iş görür tekrardan teşekkür ediyoırum

BİRDE SON OLARAK ŞİMDİ AKLIMA GELDİ EN SON E2 HÜCRESİNDE ENTARA BASTIKTAN SONRA KURSORU TEKRAR A2 HÜCRESİNE GÖNDEREBİLİRMİYİZ YANİ BİR SONRAKİ SATIR YAZIMI İÇİN HİÇ MOUSEYİ KULLANMADAN EN SON ENTERA BATIKTAN SONRA TEKRAR BAŞA DÖNMESİ ???

 

[bygantar]

Mouse tekrar bvaşa geliyo şuan ama çok kasıyo yaw


EDİT

KASMAYIDA ÇÖZDÜM SATIR SAYISNI 5000 YAPINCA DÜZELDİ

ÇOK TEŞEKKÜRLER DOSTUM SAOLASIN TEKRAR TEKLRAR

 

[redsword]

üstadım bu kodu veri girdiğimiz satır silinmeden nasıl yapabiliriz