otomatik yazdırma

[dilonur]

merhaba excelde aynan aşağıdaki gibi sayılarım var
mesala 1 sayının karşısına 50 yazdığımda otomatik olarak onun diğer 1 sayısının karşısına, 2 nin yanına bir değer yazdığımda aynısının öteki 2 nin karşısına yazılmasını istiyorum yardımcı olursanız çok sevinirim teşekkürler

5
4
3
2
1
1
2
3
4
5

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kodlama yapılabilir.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim adres As String
    If Not Intersect(Target, [B:B]) Is Nothing Then
        Set bul = Columns(1).Find(Target.Offset(0, -1), Lookat:=xlWhole)
        If Not bul Is Nothing Then
            adres = bul.Address
            Do
                Application.EnableEvents = False
                Cells(bul.Row, 2) = Target.Value
                Application.EnableEvents = True
                Set bul = Columns(1).FindNext(bul)
            Loop While Not bul Is Nothing And adres <> bul.Address
        End If
    End If
    Set bul = Nothing
End Sub

Ekteki dosyayı inceleyiniz.

 

[dilonur]

merhaba yukarıda bulunan ekteki dosyayı açmıyor tekrar yardımcı olursanız çok sevinirim. teşekkürler

 

[Ferhat Pazarçevirdi]

WinZip veya WinRar adlı programlardan birini edininiz.

 

[dilonur]

sıkıştırma programların var dosyayı açıyor fakat içerisinde sadece yazdığınız sayıları gösteriyor işte 1 den 5 e kadar ve iki tanede 120 sayısı var herhangi bir formül yazılı değil. sizede zahmet olacak ama formülü direk yazıp göderseniz olurmu acaba teşekkürler

 

[Orion1]

Sizin istediğiniz formülle olmaz.Çünkü formül yazılı hücreyede değer girebilirsiniz.
Kod ile olur.Ferhat bey kodu yazmış.Ve gayette güzel çalışıyor.
Siz denememişsiniz.
Rakam yazılan verilerin yandaki hücreye değer girip sonucu gözlemleyiniz.

 

[dilonur]

çok teşekkür ederim evren bey ne bileyim ben formül arıyorum. yalnız şöyle bir problemimiz var zandediyorum ferhat beyin mesaja yazdığı kod değilmi bu işlemi yapan ama benim bunu bir arkadaşıma izah etmem gerekiyor o kendi bilgisayarında bu işlemi yapmak istiyor bu kodu ona nasıl açıklayabilirim birde bu kod programa nasıl akatarılıyor nasıl çalışır hale geliyor bir eçıklayabilirseniz çok sevinirim

 

[Orion1]

Hangi syafada ugulayacaksanız,O sayfanın sekmesine sağ tıklayınız ve açılan menüden kod görüntüleyi seçiniz ve bu kodları açılan pencereye yapıştırınız.Ve vbe'yi kapatıp tekrar çalışma sayfasına dönünüz.Kodlar çalışmaya hazır olacaktır.

 

[dilonur]

çok teşekkür ederim iyi çalışmalar

 

[Orion1]

çok teşekkür ederim iyi çalışmalar

Rica ederim.
İyi çalışmalar.