SAP'den çekilen raporu kopyala yapıştır sorunu

[OKUROGLU3375]

Selamlar, SAP'den çekilen raporu excelde hazırlanan tabloya kopyala yapıştır ve özel yapıştırma seçeklerinin hepsini denedim, yinede sorum şudur ki; SAP'den çekilen rapor metin ve sayı karışık, kopyala yapıştır dediğimde metinleri metin, sayıları sayı, tarihleri tarih olarak alması lazım, Excel'e yapıştırdığımda örnek olarak 122 sayısını rakam olarak görmediğinden hücreyi kontrol eden formül hata veriyor. 122 sayısını elle yazdığımda formül çalışıyor. Bu konuda yardımlarınızı bekler, iyi çalışmalar dilerim....

 

[OKUROGLU3375]

Yardım yardım yardım

Yardım lütfen !!!!

 

[Ömer BARAN]

Merhaba.

Sorularınızı gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı bir örnek belge
üzerinden sorarak daha hızlı sonuca ulaşırsınız.

Belirttiğiniz ham verinin birkaç satırlık (her türlü seçeneği içerecek şekilde) örneği, varsa kullandığınız
formüller/makrolar/userformlar'ın da örnek belge içerisinde olmasını sağlayınız.

Örnek belge yükleme yöntemine ilişkin açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[OKUROGLU3375]

DOSYA YÜKLENDİ
http://s5.dosya.tc/server5/jq24uf/deneme_raporu.xlsx.html

 

[huseyinvurkan]

Merhaba Kopyalama yaptıktan sonra YAZIYA ÇEVİR Düğmesine tıklarsanız sayılar rakama dönüşecektir. Kolay gelsin.

http://s5.dosya.tc/server5/w29xfs/deneme_raporu_SAYIYA_CEVIR.rar.html

 

[muygun]

Merhaba;
Sorun Rapor sayfası AG sütunundaki formüldeyse;
=EĞER(EHATALIYSA(EĞER($L5*1=121;"MAHMUT";EĞER($L5*1=122;"VEDAT";EĞER($L5*1=130;"MURAT";EĞER($L5*1=139;"GÜRSEL";EĞER($L5*1=140;"OKUROGLU"))))));"";EĞER($L5*1=121;"MAHMUT";EĞER($L5*1=122;"VEDAT";EĞER($L5*1=130;"MURAT";EĞER($L5*1=139;"GÜRSEL";EĞER($L5*1=140;"OKUROGLU"))))))
Şeklinde deneyin.
İyi çalışmalar.

 

[OKUROGLU3375]

selamlar; YAZIYA ÇEVİR dosyasının esas dosyama ekledim ve çalıştı, teşekkür ederim. 2. bir sorunum yine örnek dosya içerisinden örnek verecek olursam =IF($L5="";"";IF($L5=121;"MAHMUT";IF($L5=122;"VEDAT";IF($L5=130;"MURAT";IF($L5=139;"GÜRSEL";IF($L5=140;"OKUROGLU"))))))
L5-L6 sütununda bulunan hedeflerin karakter olması sebebiyle formul içerisine SRE - SRD (merkezde demek) formül içerisine eklemem lazım. Yukarıdaki formüle SRE - SRD kontrolünü eklediğimde çalışmıyor. Yani onlarıda merkezde diye bana sonuç vermesi lazım. YARDIMLARINIZ için teşekkür ederim.

 

[huseyinvurkan]

İşinize yaramasına sevindim. AG5 teki formülünüzü:

=EĞER($L5="";"";EĞER($L5=121;"MAHMUT";EĞER($L5=122;"VEDAT";EĞER($L5=130;"MURAT";EĞER($L5=139;"GÜRSEL";EĞER($L5=140;"OKUROGLU";EĞER(L5="SRE";"MERKEZDE";EĞER(L5="SRD";"MERKEZDE"))))))))

Şeklinde yaparsanız istediğiniz olacaktır. Kolay gelsin

 

[OKUROGLU3375]

Teşekkür ederim bu sorunda çözüldü.

Son 1 sorun ve bitiyor...
http://www.dosya.tc/server10/nu1y7u/ornek_resimmm.jpg.html
Ekli resim linkini ve daha önce yüklemiş olduğum dosyayı değerlendirerek =IF($V16="";"DAHA SİPARİŞ BAĞLANMADI";"SİPARİŞ BAĞLANDI") diyor bu tamam, 100.000 satırda bu formül var fakat sola doğru satır boş olduğundada 100.000 satıra kadar yazıyor. Satır doluysa görünsün , boş ise görünmesin kısmınıda formüle nasıl eklerim, yada başka türlü nasıl çözerim... Teşekkürler...

 

[huseyinvurkan]

Anladığım kadarıyla Satırlarda bilgi olduğunda A sütunu OKUROGLU yazısı oluyor. Buna göre

AE5 hücresine :

=EĞER(VE(A5="";V5="");"";EĞER($V5="";"DAHA SİPARİŞ BAĞLANMADI";"SİPARİŞ BAĞLANDI"))

yazıp aşağıya doğru çoğaltırsanız istenmeyen yerlerde sonuç görünmez.

Buradaki A sütunu yerine her satırda mutlaka dolu olması gereken bir başka hücre de yazabilirsin.

Umarım işini görür. Kolay gelsin.

 

[Ömer BARAN]

Merhaba.

Umarım ihtiyacı yanlış anlamadım.
Formülleri aşağı doğru kopyalayabilirsiniz.

► AE5 hücrasindeki formülü aşağıdakiyle değiştirin.
(Formülün başına eklenen $A5, mutlaka dolu olan sütunun A sütunu olduğu varsayılarak kullanıldı)

[SIZE="4"]=[COLOR="Red"]EĞER[/COLOR]([B][COLOR="Blue"]$A5[/COLOR][/B]="";"";[/SIZE][COLOR="red"]EĞER[/COLOR]($V5="";"DAHA SİPARİŞ BAĞLANMADI";"SİPARİŞ BAĞLANDI"))

► AG5 hücresi için uygulanması önerilen formülü aşağıdaki daha kısa formül ile de değiştirebilirsiniz.
(Formüle başka değişkenler eklemek isterseniz sayılar küçükten büyüğe olacak şekilde ilk köşeli parantez içine,
sayıların sırasına uygun olarak, sayıların sırasına denk gelecek isimleri de ikinci köşeli parantez içerisine ekleyerek kullanabilirsiniz)

=[COLOR="red"]EĞERHATA[/COLOR]([COLOR="Red"]ARA[/COLOR]($L5*1;{121;122;130;139;140};{"MAHMUT";"VEDAT";"MURAT";"GÜRSEL";"OKUROĞLU"});"MERKEZDE")

 

[OKUROGLU3375]

Yardımlarınız için teşekkürler

Yardımlarınız için teşekkür etmek istedim....
Büyük bir dertten kurtardınız beni... 2-3 gün rapor sonuçlarıyla uğraştığım zamanları neredeyse 10 dakikaya indirdiniz....
Herşey gönlünüzce olsun... Teşekkürler :hey:

 

[huseyinvurkan]

Yardım edebildiysek ne mutlu bize. Çalışmalarınızda başarılar dilerim. Kolay gelsin.

 

[Seli]

Arkadaşlar benimde benzer bir sorunum var, SAP tan veri kopyalayıp excele yapıştırma istiyorum ama olmadı, yardımcı olursanız cok sevinirim. Şimdiden teşekkürler..

Sub sap2()
Dim application
Dim session

If Not IsObject(application) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session, "on"
   WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").resizeWorkingPane 138, 18, False
session.findById("wnd[0]/tbar[0]/okcd").Text = "MB51"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtWERKS-LOW").Text = "1611"
session.findById("wnd[0]/usr/ctxtLGORT-LOW").Text = "1604"
session.findById("wnd[0]/usr/ctxtBWART-LOW").Text = "311"
session.findById("wnd[0]/usr/ctxtSOBKZ-LOW").Text = "Q"
session.findById("wnd[0]/usr/ctxtSOBKZ-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtSOBKZ-LOW").caretPosition = 1
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtBUDAT-LOW").Text = "01.02.2021"    'tarih kendi girecek
session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").Text = "28.02.2021"
session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").SetFocus
session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").caretPosition = 10
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell -1, "ERFMG"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").firstVisibleColumn = "BKTXT"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectColumn "ERFMG"
session.findById("wnd[0]/tbar[1]/btn[19]").press   'burda kopyalamıyor'
pression.Copy



End Sub