MÜŞterİ BorÇ Bİlgİler

[PHÖNİX1]

yapmış olduğum exel dosyası için ustalardan yardım istiyorum

daha nasıl kolaylık olur ,yardım ederseniz memnun olurum.

belki bazı arkadaşlarında işine yarar .

şimdiden teşekkür ederim.

ana dosya müşteri borç bilgileri olacak

 

[PHÖNİX1]

yardım eden yok galiba

ustalar nerdesiniz!

sadece istediğim ana dosyaya bir isim açtığımda bir dosya açsın o dosya içindeki borç hanesinede nekadar borcu olduğunu tekrar ana dosyaya isimin
karşılığına işlesin

bu işi ben kopyala bağ yapıştır ile yapıyorum ama anladığım kadarıyla bununda
kolay çözümü vardır

 

[Ferhat Pazarçevirdi]

Aşağıdakileri "Sayfa1" adlı sheetin kod sayfasına kopyalayınız.

A sütununda yeni bir değer girdiğinizde otomatikman yeni bir dosya oluşturulacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fso As Object
If Not Intersect(Target, Range("A4:A500")) Is Nothing Then
     If Trim(Target) <> Empty Then
          If Dir(ThisWorkbook.Path & Application.PathSeparator & Target & ".xls") = "" Then
                 Set fso = CreateObject("Scripting.FileSystemObject")
                 fso.GetFile(ThisWorkbook.Path & Application.PathSeparator & "Kitap1.xls").Copy _
                        ThisWorkbook.Path & Application.PathSeparator & Target & ".xls"
                 
                 ActiveSheet.Hyperlinks.Add _
                         Anchor:=Target, _
                         Address:=ThisWorkbook.Path & Application.PathSeparator & Target.Text & ".xls", _
                         TextToDisplay:=Target.Text
                 Target.Offset(0, 1).Formula = "='" & ThisWorkbook.Path & Application.PathSeparator & "[" & Target & ".xls]Sayfa1'!$K$15"
                 Set fso = Nothing
          Else
                 MsgBox "Bu isimde bir dosya zaten var", vbCritical, "UYARI"
          End If
     End If
End If
End Sub

 

[memettt]

HİÇ Bİrsey Anlamadim. Daha acık anlatabilinmi.
veya bir örnek verirsen sevinirim

 

[Ferhat Pazarçevirdi]

HİÇ Bİrsey Anlamadim. Daha acık anlatabilinmi.
veya bir örnek verirsen sevinirim

1. Yukarıda, üyemizin verdiği ziplenmiş klasörü (1 Nolu mesajda) bilgisayarınıza indirin.

2. "Müşteri Bilgileri.xls" dosyasını açın

3. Sayfa sekmelerinde (Sayfa isimlerinin bulunduğu yer) Sayfa1'in üzerinde sağ mouse tuşuna basıp, Kod Görüntüle'yi seçin.

4. Karşısınıza çıkan beyaz sayfaya, benim 3 nolu sayfada verdiğim kodları yapıştırın.

5. Şimdi, Tekrar Excel'e dönün ve A sütunundaki listedeki boş hücrelerden birine kendi adınızı yazın.

6. Şimdi, klasörün içine bakın. Kendi isminizle bir Excel dosyası oluştu ve bu dosyanın K15 hücresi için kodu yazdığımız kitapta B kolonunda bir formül oluştu... Değil mi?

 

[PHÖNİX1]

deneyeceğim ilgine çok teşekkür ederim sayın ferhat bey

 

[PHÖNİX1]

tam istediğim gibi olmuş çok teşekkür ederim
ne desem azdır. çok sağol ya
şimdide user form üzerinden bunu uygulamaya çalışacağım
tabiki yapabilirsem.

 

[PHÖNİX1]

sayın ferhat bey bir şey daha rica edeceğim
dosya adını yazıyor oraya kadar tamam
açılan o dosyanın içinde (c7sütünnuna )firma isminin kaşısınada aynı ismi kayıt yapma şansı varmı aceba

 

[Ferhat Pazarçevirdi]

O zaman kodu aşağıdaki gibi değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fso As Object
Dim wb As Workbook
If Not Intersect(Target, Range("A4:A500")) Is Nothing Then
     If Trim(Target) <> Empty Then
          If Dir(ThisWorkbook.Path & Application.PathSeparator & Target & ".xls") = "" Then
                 Set fso = CreateObject("Scripting.FileSystemObject")
                 fso.GetFile(ThisWorkbook.Path & Application.PathSeparator & "Kitap1.xls").Copy _
                        ThisWorkbook.Path & Application.PathSeparator & Target & ".xls"
                 
                 ActiveSheet.Hyperlinks.Add _
                         Anchor:=Target, _
                         Address:=ThisWorkbook.Path & Application.PathSeparator & Target.Text & ".xls", _
                         TextToDisplay:=Target.Text
                 Target.Offset(0, 1).Formula = "='" & ThisWorkbook.Path & Application.PathSeparator & "[" & Target & ".xls]Sayfa1'!$K$15"
                 
                 Application.ScreenUpdating = False
                 Set wb = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & Target & ".xls")
                 wb.Sheets("Sayfa1").Range("C7") = Target
                 wb.Close True
                 Application.ScreenUpdating = True
                 
                 Set wb = Nothing
                 Set fso = Nothing
          Else
                 MsgBox "Bu isimde bir dosya zaten var", vbCritical, "UYARI"
          End If
     End If
End If
Set wb = Nothing
End Sub

 

[PHÖNİX1]

çok teşekkürler

tam istediğim gibi

başarının devamını dileklerimle
kolaygelsin

 

[PHÖNİX1]

müşteri satış bilgileri

--------------------------------------------------------------------------------

dosyanın yapılmış halini tekrar gönderiyorum

müşteri bilgileri dosyasını açtıktan sonra

sadece isim yazmanız yeterli isim yazdıktan sonra o klasör içine aynı

isim altında exel dosyası açılıyor

o dosya içinde malzemeleri ve fiyatı yazdıktan sonra müşteri bilgiler dosyasına

toplam borcunu otomatik yapıyor.

dikkat sakın kitap1 exel dosyasını silmeyiniz yoksa çalışmaz

word dosyasındada hazır kodu mevcuttur.

bu kod yazımında emeği geçen ferhat beye teşekkür

 

[aucar19]

Musteri hesabı

Bir arkadaşımın için yaptığım basit bir uygulama işinize yarayabilir.

 

[PHÖNİX1]

aucar tebrikler güzel olmuş

daha çok eksikler var ama düzeltirsin zamanla

yinede fikir vermekte güzel birşey biraz üstünde çalışayım

bakalım düzeltebilecekmiyim.

başarılarının devamını dilerim.

 

[PHÖNİX1]

silinen dosya

daha önce yapmış olduğumuz dosya silindiği için ekledim

 

[PHÖNİX1]

aucar arkadaşın eklediği dosyayıda ekledim

aucar19Musteri hesabı
Bir arkadaşımın için yaptığım basit bir uygulama işinize yarayabilir.