1 sayfadan 1. sayfa

BİR TÜRLÜ OLMUYOR

İletiTarih: 16 May 2018 15:16
ahmetonline
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

Cevap: BİR TÜRLÜ OLMUYOR

İletiTarih: 16 May 2018 17:38
ardafeza
umarım işini görür.

Cevap: BİR TÜRLÜ OLMUYOR

İletiTarih: 17 May 2018 03:50
feraz
Bunuda deneyebilirsiniz.

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

İletiTarih: 17 May 2018 12:19
ahmetonline
feraz yazdı:Bunuda deneyebilirsiniz.

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

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

İletiTarih: 17 May 2018 12:21
ahmetonline
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

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

İletiTarih: 17 May 2018 14:30
feraz
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.

Cevap: BİR TÜRLÜ OLMUYOR

İletiTarih: 17 May 2018 15:47
feraz
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

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

İletiTarih: 18 May 2018 10:33
ahmetonline
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İ

Cevap: BİR TÜRLÜ OLMUYOR

İletiTarih: 18 May 2018 10:47
ademyce
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.

Cevap: BİR TÜRLÜ OLMUYOR

İletiTarih: 18 May 2018 11:14
Ali ÖZ
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.