- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Değerli hocalarım yine bana ait bir konu olan Çözüldü - iki satır arası veri alma başlıkta sorularım çözüme ulaştı ancak yaptığımız işleri daha da kısaltmak ve otomatik hale getirmek istiyorum.
Kullandığımız program bizlere .log uzantılı metin belgesinde verileri çıktı olarak veriyor. Ekli dosyayı görüntüle 7036
Biz bu metin belgesini excele aldıktan sonra öncelikle içerisinde -stop loss #****- şeklinde olan verileri filtreleyipEkli dosyayı görüntüle 7037 metni sütunlara dönüştürdükten sonra sadece oradaki rakamları alıyoruz.Ekli dosyayı görüntüle 7038
Daha sonra ise tüm aldığımız tüm verileri gene metni sütunlara dönüştür ile sadece bizim işimizi yarayacak kısmını alıyoruz.
Ekli dosyayı görüntüle 7039
Bu işlemden sonra Sn Ömer BARAN'ın kodları ile
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Range("B2:B" & Rows.Count).ClearContents
Set XDilk = [A:A].Find(" open #" & Target.Value & " ", LookIn:=xlValues, LookAt:=xlPart)
If Not XDilk Is Nothing Then
Set XDson = Range("A" & XDilk.Row & ":A" & Rows.Count).Find(" modify #" & Target.Value & " ", LookIn:=xlValues, LookAt:=xlPart)
If Not XDson Is Nothing Then: Range(Cells(XDilk.Row, 1), Cells(XDson.Row, 1)).Copy [B2]
End If
End Sub
B den itibaren listeletiyoruz. DAha sonra ise yine Ömer Bey'in kodları ile buy ve sell sayfalarına aktarıyoruz. Sizden ricam eğer mümkünse bu işlemleri daha da kısaltmak ve otomatikleştirmek.
Kullandığımız program bizlere .log uzantılı metin belgesinde verileri çıktı olarak veriyor. Ekli dosyayı görüntüle 7036
Biz bu metin belgesini excele aldıktan sonra öncelikle içerisinde -stop loss #****- şeklinde olan verileri filtreleyipEkli dosyayı görüntüle 7037 metni sütunlara dönüştürdükten sonra sadece oradaki rakamları alıyoruz.Ekli dosyayı görüntüle 7038
Daha sonra ise tüm aldığımız tüm verileri gene metni sütunlara dönüştür ile sadece bizim işimizi yarayacak kısmını alıyoruz.
Ekli dosyayı görüntüle 7039
Bu işlemden sonra Sn Ömer BARAN'ın kodları ile
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Range("B2:B" & Rows.Count).ClearContents
Set XDilk = [A:A].Find(" open #" & Target.Value & " ", LookIn:=xlValues, LookAt:=xlPart)
If Not XDilk Is Nothing Then
Set XDson = Range("A" & XDilk.Row & ":A" & Rows.Count).Find(" modify #" & Target.Value & " ", LookIn:=xlValues, LookAt:=xlPart)
If Not XDson Is Nothing Then: Range(Cells(XDilk.Row, 1), Cells(XDson.Row, 1)).Copy [B2]
End If
End Sub
B den itibaren listeletiyoruz. DAha sonra ise yine Ömer Bey'in kodları ile buy ve sell sayfalarına aktarıyoruz. Sizden ricam eğer mümkünse bu işlemleri daha da kısaltmak ve otomatikleştirmek.