hisse raporlama

[ennix]

Merhaba arkadaslar
Daha once bir arkadasimiz tarafindan yardim edilerek yaptigim excell i gelistirmek istiyorum ama isteklerimi excel yapabilir mi inanin hic bir fikrim yok.

Bi degerleme sayfam var buraya ilk sutuna hangi hisse nin adini girersek calisma kitaplarindan bazi bilgileri alip isliyor ve sonuclari veriyor.

Benim yapmak istedigim bu degerleme sayfasininda uzerinde bir calisma sayfasi olsun ve tek tek elle girmeden icinde kayitli hisselerin raporunu buraya otomatik olarak doksun. (otomatik onemli cunku fiyat surekli degisiyor)

burada uzerinde calistigim dosya bulunmakta kirmizi ile isaretli bilgiler simdilik lazim rapor kisminda
http://s9.dosya.tc/server2/r2gs2f/Hisse.xlsx.html

Tek tek elle girip bilgileri kopyala yapistir yapmaktan baska cozum var midir?

Tesekkurler

 

[Asri]

Bu sayfalarında dışındaki sayfaları hisse senedi kabul eder.

isim = "Menu" isim = "DEGER" isim = "ÇEYREK" isim = "Hisse"

Sub Rapor()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  For j = Sheets.Count To 1 Step -1
    isim = Sheets(j).Name
    If Left(isim, 6) = "RAPOR_" Then
       Sheets(j).Delete
    End If
  Next j

  For j = 1 To Sheets.Count
    isim = Sheets(j).Name
    If isim = "Menu" Or isim = "DEGER" Or isim = "ÇEYREK" Or isim = "Hisse" Then GoTo son
    Sheets("DEGER").Select
    Cells(1, "A").Value = isim
        
     Set newsh = Sheets.Add(After:=Sheets(Sheets.Count))
     newsh.Name = "RAPOR_" & isim
    Sheets("DEGER").Select
    Cells.Select
    Selection.Copy
    Sheets("RAPOR_" & isim).Select
    ActiveSheet.Paste
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A6").Select
    Application.CutCopyMode = False
    Range("B4").Select
son:
Next j
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

 

[ennix]

bu yazdiginizin macro oldugunu ve excelle nasil kullanildigini 2 saatte cozebildim calisinca cok mutlu oldum harikasiniz
ama ben bu raporu ayri ayri calisma sayfalarinda gormek istemiyorum
sadece bir calisma sayfasinin icinde mesela TUPRS yazsin yanina fiyat bilgisi yanina F/K Değerleme Fiyatı gibi (kirmizi olanlar)
alt satirda baska hisse onun altinda baska hisse hepsi siralansin gibi istiyorum
sizin bu yaptiginizda muhtesem ama hepsini bir sayfada gorebilmek daha guzel olacak cunku simdi 3 hisse var sonra bunlara 20 tane daha ekleyince ortalik calisma kitabindan gecilmeyeck

ne dersiniz yapilabilinir mi?

 

[Asri]

bu yazdiginizin macro oldugunu ve excelle nasil kullanildigini 2 saatte cozebildim calisinca cok mutlu oldum harikasiniz
ama ben bu raporu ayri ayri calisma sayfalarinda gormek istemiyorum
sadece bir calisma sayfasinin icinde mesela TUPRS yazsin yanina fiyat bilgisi yanina F/K Değerleme Fiyatı gibi (kirmizi olanlar)
alt satirda baska hisse onun altinda baska hisse hepsi siralansin gibi istiyorum
sizin bu yaptiginizda muhtesem ama hepsini bir sayfada gorebilmek daha guzel olacak cunku simdi 3 hisse var sonra bunlara 20 tane daha ekleyince ortalik calisma kitabindan gecilmeyeck

ne dersiniz yapilabilinir mi?

Verdiğiniz örnek dosyada bu şekilde bir örnek göremedim.
Nasıl birşey istediğinizi nasıl bilebilirim ki

 

[ennix]

dosyanin icine rapor diye bir sekme koyup bilgileri elimle yazdim (elle yazmak bile ne kadar vakit alici kafanizda daha iyi canlanir sanirim tesekkurler

Burdaki rapor dosyasi kendini surekli update edebilmeli ama fiyat degisimleri surekli olan bir sey cunku

http://s8.dosya.tc/server4/javpxd/Hisse.xlsx.html

 

[Asri]

Hisse sayfasının adı üzerinde sağ tuş kodu görüntüle deyin.
çıkan boş ekrana aşağıdaki kodu yapıştırın.

Hisse sayfasında herhangi bir değişiklik olduğunda Rapor sayfasındaki tüm hisseler güncellenecektir.

Kontrol ediniz.

http://dosya.co/i1cexxt2qgw5/Hisse.xlsm.html

Private Sub Worksheet_Change(ByVal Target As Range)
   Set shrapor = Sheets("Rapor")
   Set shdeger = Sheets("DEGER")
   sonsatir = shrapor.Cells(Rows.Count, "A").End(3).Row
   For i = 3 To sonsatir
     hisse = shrapor.Cells(i, 1).Value
     shdeger.Cells(1, "A").Value = hisse
     shrapor.Cells(i, "B").Value = shdeger.Cells(2, "B").Value
     shrapor.Cells(i, "C").Value = shdeger.Cells(10, "B").Value
     shrapor.Cells(i, "D").Value = shdeger.Cells(11, "B").Value
     shrapor.Cells(i, "E").Value = shdeger.Cells(10, "E").Value
     shrapor.Cells(i, "F").Value = shdeger.Cells(11, "E").Value
     shrapor.Cells(i, "G").Value = shdeger.Cells(8, "E").Value
   Next i
End Sub

 

[ennix]

ben beceremiyorum sanirim olmuyor hicbirsey olmuyor ayni duruyor fiyatlari falan degistirdigimde kipirdama yok hersey ayni sabit

excel dosyasini actim
icinde hisse yazan calisma kitabinin ustune sag klik yapip kodu goruntule dedim
visual basic penceresi acildi kodu bu pencereye kopyaladim
run dedim
expected End Sub hatasi verdi
calistiramadim

 

[Asri]

ben beceremiyorum sanirim olmuyor hicbirsey olmuyor ayni duruyor fiyatlari falan degistirdigimde kipirdama yok hersey ayni sabit

excel dosyasini actim
icinde hisse yazan calisma kitabinin ustune sag klik yapip kodu goruntule dedim
visual basic penceresi acildi kodu bu pencereye kopyaladim
run dedim
expected End Sub hatasi verdi
calistiramadim

Run ile çalıştırma yapmayacaksınız.
Sadece Rapor sayfasında aşağıya doğru hisse isimlerini ekleyecek ve hisse sayfasındaki değerlerin değişmesini sağlayacaksınız.

Hisse sayfasında değerler değişince program otomatik olarak rapor sayfasını güncelleyecektir.

Mesajına excel dosyası eklendi.

 

[ennix]

SUPER OLMUS! ellerinize saglik tekrardan
ben neden yapamadigimi anlayamadim ayni yerlere yazmistim kodu ama tabikisi isin ustasi yapinca farkli oluyor demekki benden surekli excel kendini kapatiyordu calismayi durduruyordu bana tahammülü kalmamis artik

cok tesekkurler

 

[ennix]

dosyayi incelerken bir sorunla karsilastim soyleki
hisse adli calisma kitabindaki değerler sürekli matrix programından güncelleniyor sürekli değerler değişiyor buna göre raporunda sürekli tekrar edip kendini güncellemesi gerekiyor yeni fiyattan fakat rapor bir kere dolduktan sonra bir daha asla kendini güncellemiyor ayni şey dosyayı tekrar açtığımda da oluyor eski fiyattan gösteriyor ben hisse senedi fiyatlarına ellerimle de oynasam rapor sayfasındaki fiyatlar değişmediği için tüm rapor yanlış gözüküyor bunu aşabilir miyiz?

Ekteki dosyaya biraz daha fazla bilgi koyarak tekrar yükledim bakabilir misin acaba

sadece hisse dosyasindan hucre sildigim zaman butun raporu update ediyor bunu farkkettim

http://dosya.co/egub68whirvz/Hisse.xlsm.html

 

[Asri]

dosyayi incelerken bir sorunla karsilastim soyleki
hisse adli calisma kitabindaki değerler sürekli matrix programından güncelleniyor sürekli değerler değişiyor buna göre raporunda sürekli tekrar edip kendini güncellemesi gerekiyor yeni fiyattan fakat rapor bir kere dolduktan sonra bir daha asla kendini güncellemiyor ayni şey dosyayı tekrar açtığımda da oluyor eski fiyattan gösteriyor ben hisse senedi fiyatlarına ellerimle de oynasam rapor sayfasındaki fiyatlar değişmediği için tüm rapor yanlış gözüküyor bunu aşabilir miyiz?

Ekteki dosyaya biraz daha fazla bilgi koyarak tekrar yükledim bakabilir misin acaba

sadece hisse dosyasindan hucre sildigim zaman butun raporu update ediyor bunu farkkettim

http://dosya.co/egub68whirvz/Hisse.xlsm.html

Hisse sayfası MTX diye bir program ile güncelleniyor.
Nasıl bir güncelleme yapıyor bilemiyorum.
Dosya açıldığında makroların etkin olması gerekiyor.

Ben test amaçlı hisse sayfasındaki verileri değerleri yapıştır diyorum.
daha sonra buradaki herhangi bir değeri değiştirdiğimde rapor sayfası da değişiyor.Bir problem göremedim.