Kayıt Makrosu

[uKiGS]

Merhaba arkadaşlar.

Bir kayıt makrosuna ihtiyacım var. İşin içinden çıkamadım. Üst kısmın kaydını alabiliyorum ama alt kısmın alamadım. B2,C2 , E2-N2 arası ve E3-J3 arasını almasını istiyorum. Ben N2 ye kadar olan kısmını deneme yanılma yöntemiyle aldım ama alt kısımda başarılı olamadım.

Sizden değerli yardımlarınızı rica ediyorum

 

[uKiGS]

Var mı yardım edebilecek bir arkadaşım ?

 

[muratb06]

Baska yere yüklerseniz, bakabilirim

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

 

[uKiGS]

Baska yere yüklerseniz, bakabilirim

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

https://www.dosyaupload.com/6tpv

İlginiz için teşekkürler.

 

[muratboz06]

K3-N3 için hesaplama yapılacak mı?
Hesaplama alanlarında yapmak istediğiniz tam olarak nedir?
Kayıt sayfasına veri gönderilecek mi?
Yapmak istediğinizi daha açık ifade edebilir misiniz.

 

[uKiGS]

Bi hesaplama yapılmayacak. B2-N2 ve alt tarafta E3-J3 arası kayıt sayfasına olduğu gibi aktarılsın istiyorum.

 

[Muzaffer Ali]

Merhaba Dosyanız ekte.

 

[çıtır]

Alternatif olarak.

 

[uKiGS]

değerli yardımlarınız için hepinize ayrı ayrı teşekkürlerimi sunuyorum. İyi ki varsınız.

 

[çıtır]

değerli yardımlarınız için hepinize ayrı ayrı teşekkürlerimi sunuyorum. İyi ki varsınız.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[uKiGS]

Peki bir soru daha sormak istiyorum. Ben bu excele manuel veri kopyalayıp yapıştırıyorum. Bir tuşla direkt olarak yapıştırmam mümkün olur mu?



buradan alıyorum veriyi excelde c6 ile beraber alt kısmına doğru yapıştırıyorum. rica etsem bir tuşla bunu direkt olarak yapıştırabilir miyiz?

 

[uKiGS]

Merhaba Dosyanız ekte.

Sizin gönderdiğiniz dosya üzerinden yapıyorum çalışmalarımı. Son dediğim konuyu ekleyebilir miyiz? Bir sorum daha olacak. Ben sonuçlara göre verdiğimiz değerlerde geldiyse maç yeşil gelmediyse kırmızı olmasını istiyorum ama şöyle bir sıkıntı var bizim değer verecek alan boş olduğu için ve sürekli sayı olarak değişkenlik göstereceği için bunu nasıl yapabilirim?

Şimdiden değerli yardımlarınız için teşekkür ederim.

 

[Muzaffer Ali]

İki sorunuzu da anlamadım.

 

[uKiGS]

Peki bir soru daha sormak istiyorum. Ben bu excele manuel veri kopyalayıp yapıştırıyorum. Bir tuşla direkt olarak yapıştırmam mümkün olur mu?

Ekli dosyayı görüntüle 207444

buradan alıyorum veriyi excelde c6 ile beraber alt kısmına doğru yapıştırıyorum. rica etsem bir tuşla bunu direkt olarak yapıştırabilir miyiz?

Burada resimde görünen verileri ben yapmış olduğum excelde c6dan itibaren aşağıya doğru yapıştırıyorum. İstediğim bir yapıştır makrosu. ben o makroya tıkladığımda kopyaladığım veri excelin içinde bulunan yerlere otomatik olarak yapıştırsın.

İkinci sorum da şu ; Kayıt sayfasında ben N2-W2 kısmını el ile dolduracağım için ben N2 ye örnek olarak 40 yazarsam ve D2 hücresinde de 39.5 yazıyorsa D2 hücresini yeşillendirsin eğer ki yazdığım veri 39.5 altında olursa D2 hücresini kırmızıya çevirsin istiyorum.

 

[Muzaffer Ali]

Dosyanız ekte.

 

[uKiGS]

Emekleriniz için teşekkürler. Ama sanırım ben tam olarak anlatamadım sorunumu D2 verisindeki sayı N2 den büyük ise yeşil küçük ise kırmızı olmalı. Fakat alt taraftaki D3 verisindeki sayı N3 den küçük ise yeşil büyük ise kırmızı olmalı. Aynı şekilde yana doğruda uzamalı bu formül. E2-O2 E3-O3 F2-P2 F3-P3 Gibi yan tarafada uzamalı. Yapıştır makrosunuda ben Sheet1 için istemiştim. Sheet1 de C6 ya yapıştırıyorum verileri.

 

[uKiGS]

Var mı yardım edebilecek bir arkadaşımız?

 

[uKiGS]

Sanırım bulamayacağız bu sorulara yanıt. Yardım eden çok değerli arkadaşlarıma tekrardan teşekkür ederim.

 

[Muzaffer Ali]

Aşağıdaki kodları sayfanın kod kısmına yapıştırıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Hcr As Range
    Dim Renk1 As Variant
    Dim Renk2 As Variant
    
    If Not Intersect(Target, Range("D:M")) Is Nothing Then
        Set Hcr = Target(1, 11)
        Renk1 = 5287936
        Renk2 = 65535
    ElseIf Not Intersect(Target, Range("N:W")) Is Nothing Then
        Set Hcr = Target(1, -9)
        Renk1 = 65535
        Renk2 = 5287936
    Else
        Exit Sub
    End If
    Application.EnableEvents = False
    If Target = "" Or Hcr = "" Then
        Target.Interior.Pattern = xlNone
        Hcr.Interior.Pattern = xlNone
    Else
        If Cells(Target.Row, "C") = "üst" Then
            If Target > Hcr Then
                Target.Interior.Color = Renk1
                Hcr.Interior.Color = Renk1
            ElseIf Target < Hcr Then
                Target.Interior.Color = Renk2
                Hcr.Interior.Color = Renk2
            ElseIf Target = Hcr Then
                Target.Interior.Pattern = xlNone
                Hcr.Interior.Pattern = xlNone
            End If
        ElseIf Cells(Target.Row, "C") = "alt" Then
            If Target > Hcr Then
                Target.Interior.Color = Renk2
                Hcr.Interior.Color = Renk2
            ElseIf Target < Hcr Then
                Target.Interior.Color = Renk1
                Hcr.Interior.Color = Renk1
            ElseIf Target = Hcr Then
                Target.Interior.Pattern = xlNone
                Hcr.Interior.Pattern = xlNone
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[uKiGS]

çok teşekkür ederim tam istediğim gibi olmuş.