[Yardım]  Çözemediğim sorun

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Çözemediğim sorun

İleti#1)  radyofon » 10 Oca 2019 09:18

Ekteki dosyada görüleceği üzere sarı alanda para birimi için liste butonu var ve listeden seçilen para birimine göre birim fiyat ve tutardaki para birimleri de vba kodu sayesinde değişiyor. Fakat söz konusu sarı alanda İSK başlığında sadece rakam var ve par birimi söz konusu değil. vba da böyle bir kod olmamasına rağmen param birimi değiştirildiği an İSK hanesine de para birimi geliyor. Bu konuyu çözemedim. Yardımcı olursanız sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 20:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 53
İleti: 82
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Çözemediğim sorun

İleti#2)  afacan1414 » 10 Oca 2019 10:08

radyofon yazdı:Ekteki dosyada görüleceği üzere sarı alanda para birimi için liste butonu var ve listeden seçilen para birimine göre birim fiyat ve tutardaki para birimleri de vba kodu sayesinde değişiyor. Fakat söz konusu sarı alanda İSK başlığında sadece rakam var ve par birimi söz konusu değil. vba da böyle bir kod olmamasına rağmen param birimi değiştirildiği an İSK hanesine de para birimi geliyor. Bu konuyu çözemedim. Yardımcı olursanız sevinirim.


İSK sütununa veriyi ellemi giriyorsunuz?
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 08:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

Cevap: Çözemediğim sorun

İleti#3)  afacan1414 » 10 Oca 2019 10:48

Düzenlenmiş hali ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 08:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

Cevap: Çözemediğim sorun

İleti#4)  radyofon » 10 Oca 2019 12:10

evet elle giriyorum.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 20:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 53
İleti: 82
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Çözemediğim sorun

İleti#5)  Ali ÖZ » 10 Oca 2019 12:40

Merhaba,
Set alan = Range("Q" & Target.Row, "S" & Target.Row)
Q ile S sütunları arasını alan olarak belirleyip alan.NumberFormat = "#.##0,0 TL" şeklinde biçimlendirme yapmışsınız.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Çözemediğim sorun

İleti#6)  afacan1414 » 10 Oca 2019 13:21

Ali ÖZ yazdı:Merhaba,
Set alan = Range("Q" & Target.Row, "S" & Target.Row)
Q ile S sütunları arasını alan olarak belirleyip alan.NumberFormat = "#.##0,0 TL" şeklinde biçimlendirme yapmışsınız.



Ali Bey,

Sadece Q ve S sütununu alan olarak belirlemek için hangi kodu kullanmamız gerekir acaba? Arada kalan R sütunu hariç olacak şekilde.
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 08:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Çözemediğim sorun

İleti#7)  afacan1414 » 10 Oca 2019 14:19

Kod: Tümünü seç
If Intersect(Target, Range("P13:P53")) Is Nothing Then Exit Sub
        Set alan = Range("S" & Target.Row, "Q" & Target.Row)
        Set alan1 = Range("R" & Target.Row)
            If Target.Value = "TL" Then
                alan.NumberFormat = "#.##0,0 TL"
                alan1.NumberFormat = "#.##0,0"
               
                ElseIf Target.Value = "USD" Then
                alan.NumberFormat = "#.##0,0 [$USD]"
                alan1.NumberFormat = "#.##0,0"
                 
            ElseIf Target.Value = "EUR" Then
        alan.NumberFormat = "#.##0,0 [$EUR]"
        alan1.NumberFormat = "#.##0,0"
         
    End If
End Sub


Olarak bir çözüm daha olabilir.
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 08:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

Cevap: Çözemediğim sorun

İleti#8)  Erkan Akayay » 10 Oca 2019 16:51

Kod: Tümünü seç
Set Alan=Union(Range("Q" & Target.Row), Range("S" & Target.Row))
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 4021
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe