[Yardım]  BİR TÜRLÜ OLMUYOR

Forum kurallarına ve Türkçe imla kurallarına uygun olmayan mesajları buraya alıyoruz. Lütfen aynı hataları tekrarlamayın!

BİR TÜRLÜ OLMUYOR

İleti#1)  ahmetonline » 16 May 2018 15:16

MERHABA ARKADAŞLAR BEN TÜRLÜ BECEREMEDİM. YARDIM EDERSENİZ SEVİNİRİM.
EKTE DOSYADA BULUNAN EXCEL DOSYASINDA KATOLOG SAYFASINDA YER ALAN İSİMLERE GÖRE MÜŞTERİ SAYFASINDA GÖRÜNTÜLEMEK İSTİYORUM. MÜŞTERİ NE ALMIŞ ÜCRETİ AYRI AYRI DOGRU BİR SONUÇTA MÜŞTERİ SAYFASINDA MÜŞTERİ YAZAN HÜCRENİN ALTINDAKİ HÜCREYE YAZARAK BANA GETİRMESİNİ İSTİYORUM. YARDIM EDERSENİZ ÇOK MEMNUN OLURUM
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ahmetonline
 
Kayıt: 16 May 2018 14:16
Meslek: serbest
Yaş: 38
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: BİR TÜRLÜ OLMUYOR

İleti#2)  ardafeza » 16 May 2018 17:38

umarım işini görür.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ardafeza
Yeni Başlamış
 
Kayıt: 10 Nis 2018 00:37
Meslek: öğretmen
Yaş: 44
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: d.bakır

Cevap: BİR TÜRLÜ OLMUYOR

İleti#3)  feraz » 17 May 2018 03:50

Bunuda deneyebilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5435
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: BİR TÜRLÜ OLMUYOR

İleti#4)  ahmetonline » 17 May 2018 12:19

feraz yazdı:Bunuda deneyebilirsiniz.

MALESEF OLMADI AYNI ŞEYİ BİR DAHA VERİYOR
Kullanıcı avatarı
ahmetonline
 
Kayıt: 16 May 2018 14:16
Meslek: serbest
Yaş: 38
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

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

Cevap: Cevap: BİR TÜRLÜ OLMUYOR

İleti#5)  ahmetonline » 17 May 2018 12:21

ardafeza yazdı:umarım işini görür.

TEŞEKKÜR EDERİM İSTEDİĞİM GİBİ MÜŞTERİNİN TÜM ÜRÜNLERİNİ GÖREBİLİYORUM. KATOLOG SAYFASINDAKİ FORMÜL ONU ANLAYAMADIM
Kullanıcı avatarı
ahmetonline
 
Kayıt: 16 May 2018 14:16
Meslek: serbest
Yaş: 38
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: Cevap: Cevap: BİR TÜRLÜ OLMUYOR

İleti#6)  feraz » 17 May 2018 14:30

ahmetonline yazdı:
feraz yazdı:Bunuda deneyebilirsiniz.

MALESEF OLMADI AYNI ŞEYİ BİR DAHA VERİYOR


Sadece MÜŞTERİ sayasındaki A5 hücresine veri girerseniz zaten sonuçlar geliyor.Ben MÜŞTERİ adlarını alt alta yazılacak anlamıştım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5435
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: BİR TÜRLÜ OLMUYOR

İleti#7)  feraz » 17 May 2018 15:47

Birde kod ile deneyin bence.Öncekinde yanlış anlamışım.


Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

Dim ara As Range, arr(), katalog As Worksheet

   Set katalog = Sheets("KATALOG")

With Sheets("MÜÞTERÝ")

    If Target.Address(0, 0) = "A5" Then
       .Range("B5:F" & Rows.Count).Clear
       
        For Each ara In katalog.Range("B13:B" & katalog.Range("B" & Rows.Count).End(3).Row)
       
            If ara = Target.Value Then
                ReDim Preserve arr(4, 0 To say)
                arr(0, say) = ara.Offset(0, 1).Value
                arr(1, say) = ara.Offset(0, 2).Value
                arr(2, say) = ara.Offset(0, 3).Value
                arr(3, say) = arr(2, say) - (arr(2, say) * 30) / 100
                arr(4, say) = arr(2, say) - (arr(2, say) * 70) / 100
                 say = say + 1
            End If
        Next
    End If
   
    If say > 0 Then
        .Range("B5").Resize(say, 5).Value = Application.Transpose(arr)
        .Range("D5:F" & Rows.Count).NumberFormat = "#,##0.00 TL"
       
        .Range("D" & say + 5).Value = WorksheetFunction.Sum(.Range("D5:D" & say + 4)) '4 4üncü sütundan basladigi icin,5 ise toplama icin bir alt satir
        .Range("E" & say + 5).Value = WorksheetFunction.Sum(.Range("E5:E" & say + 4)) '4 4üncü sütundan basladigi icin,5 ise toplama icin bir alt satir
        .Range("F" & say + 5).Value = WorksheetFunction.Sum(.Range("F5:F" & say + 4)) '4 4üncü sütundan basladigi icin,5 ise toplama icin bir alt satir
       
        .Range("D" & say + 5 & ":F" & say + 5).Interior.Color = vbYellow 'sari renk toplama icin
        .Range("D" & say + 5 & ":F" & say + 5).Font.Bold = True 'Kalin yazi toplama icin
       
        .Range("B5:C" & say + 4).Borders.LineStyle = 1 'cizgi
        .Range("D5:F" & say + 5).Borders.LineStyle = 1 'cizgi
       
    End If

End With

Set katalog = Nothing: Erase arr: Set ara = Nothing: say = Empty

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5435
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: BİR TÜRLÜ OLMUYOR

İleti#8)  ahmetonline » 18 May 2018 10:33

feraz yazdı:Birde kod ile deneyin bence.Öncekinde yanlış anlamışım.


Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

Dim ara As Range, arr(), katalog As Worksheet

   Set katalog = Sheets("KATALOG")

With Sheets("MÜÞTERÝ")

    If Target.Address(0, 0) = "A5" Then
       .Range("B5:F" & Rows.Count).Clear
       
        For Each ara In katalog.Range("B13:B" & katalog.Range("B" & Rows.Count).End(3).Row)
       
            If ara = Target.Value Then
                ReDim Preserve arr(4, 0 To say)
                arr(0, say) = ara.Offset(0, 1).Value
                arr(1, say) = ara.Offset(0, 2).Value
                arr(2, say) = ara.Offset(0, 3).Value
                arr(3, say) = arr(2, say) - (arr(2, say) * 30) / 100
                arr(4, say) = arr(2, say) - (arr(2, say) * 70) / 100
                 say = say + 1
            End If
        Next
    End If
   
    If say > 0 Then
        .Range("B5").Resize(say, 5).Value = Application.Transpose(arr)
        .Range("D5:F" & Rows.Count).NumberFormat = "#,##0.00 TL"
       
        .Range("D" & say + 5).Value = WorksheetFunction.Sum(.Range("D5:D" & say + 4)) '4 4üncü sütundan basladigi icin,5 ise toplama icin bir alt satir
        .Range("E" & say + 5).Value = WorksheetFunction.Sum(.Range("E5:E" & say + 4)) '4 4üncü sütundan basladigi icin,5 ise toplama icin bir alt satir
        .Range("F" & say + 5).Value = WorksheetFunction.Sum(.Range("F5:F" & say + 4)) '4 4üncü sütundan basladigi icin,5 ise toplama icin bir alt satir
       
        .Range("D" & say + 5 & ":F" & say + 5).Interior.Color = vbYellow 'sari renk toplama icin
        .Range("D" & say + 5 & ":F" & say + 5).Font.Bold = True 'Kalin yazi toplama icin
       
        .Range("B5:C" & say + 4).Borders.LineStyle = 1 'cizgi
        .Range("D5:F" & say + 5).Borders.LineStyle = 1 'cizgi
       
    End If

End With

Set katalog = Nothing: Erase arr: Set ara = Nothing: say = Empty

End Sub

İYİDE SİSTEM ÇALIŞMIYOR Kİ
Kullanıcı avatarı
ahmetonline
 
Kayıt: 16 May 2018 14:16
Meslek: serbest
Yaş: 38
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: BİR TÜRLÜ OLMUYOR

İleti#9)  ademyce » 18 May 2018 10:47

EKSTRÜZYON TESİSİ ÜRETİM ŞEMASI - Kopya.zip
Merhabalar,

Genel Müdürümüze excel ortamında bir sunum hazırlıyorum. (Dosya Ektedir.)

Ben bu dosyaya Smart Art seçeneğini kullanarak şekiller ekledim, dosyayı açtığınızda göreceksiniz her şeklin açıklaması için başka şekiller koydum. Benim sorum ise şu; mesela aşağıda gösterilen şekli buton tarzı yapsam, o butona basınca veriler ortaya çıksa nasıl olur? Muhtemelen şekillere makro ekleyemeyiz ama excel ortamında gözükmeyen görseli butona basınca nasıl görünür yapacağım konusunda çok bilgi sahibi değilim. Yardımcı olabilir misiniz? Teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ademyce
 
Kayıt: 08 Arl 2017 16:43
Meslek: Özel Sektör / Kalite Yönetim
Yaş: 32
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya / Akyazı

Cevap: BİR TÜRLÜ OLMUYOR

İleti#10)  Ali ÖZ » 18 May 2018 11:14

Bu tür kurallara uygun olmayan konularla ilgilenmiyoruz.Konunuzu yeniden uygun bir başlıkla açın lütfen.

12.Foruma açılan konuların başlığı içeriğini belli edecek şekilde olmalıdır. "Yardım istiyorum" , "? , "Help me" , "imdat" , lütfen acil yardım" gibi başlıklar yerine Program arıyorum v.s. gibi başlıkları tercih ediniz. Bu tür başlıklar ve/veya mesajlar görüldüğü anda gönderici üye uyarılmadan ( Çöp Kutusuna aktarılacak yahut ) silinecektir.


Yazım kurallarına da özen gösteriniz.

20.Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için kesinlikle mesajınızın tamamını büyük harf kullanarak yazmayınız. Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz. Sitemiz Türkçe karakter desteklemektedir ve i, ç , ş , ğ gibi harfleri kullanmanızda hiç bir sakınca yoktur.
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9532
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Çöp Kutusu

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe