Koşula dayalı dış dosya bağlantılı işlem

[umut100]

Merhaba,

Koşula göre veri işlenmesi ve taşınması

Detayı ekte. Bunu nasıl yapabilirim.

İlginize şimdiden teşekkür ederim.

 

[umut100]

Koşulluk aktarma ve işlem yaptırma

Merhaba,

Hücredeki koşula göre aktif dosyadan ve başka bir dosyadan verileri bölerek taşımak.

Sabit bir hücreye OCAK Yazdığımda belirtilen adresdeki verileri bölerek taşıyacak. ŞUBAT Yazdığımda yine belirtilen adresden ve sütundan verileri bölerek taşıyacak.
İnanın benim için çok önemli üstadlar bir bakarsa çok memnun olurum.

Şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba

bunun için dolaylı fonksiyonunu kullanmanız gerekir.
ancak aldığınız değerin ekranda görünmesi için her 2 dosyanında açık olması gerekiyor. başvurduğunuz dosya kapalıysa #değer hatası alırsınız.
konu ile ilgili sitede örnekler var, araştırınız.


not:
aynı soruyu farklı başlıklarda sormayınız, cevap alamazsanız ilk açtığınız konu üzerinden devam ediniz.

 

[Orion1]

Dosyanız ekte.
İki dosyada ayni klasörde olamalı.
Formül değilde Excel4 makro uyguladım.Kodlar çalışma sayfasının kod bölümünde.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Byte, sut2 As Byte, yol As String, dosya As String
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("E9").Value = ""
If UCase(Target.Value) = "OCAK" Then
    sut = 1: sut2 = 5
    ElseIf UCase(Target.Value) = "ŞUBAT" Then
    sut = 2: sut2 = 6
    Else
    Exit Sub
End If
yol = "'" & ThisWorkbook.Path
dosya = "\[Evren.xls]ANALİZ'!"
deg = Application.ExecuteExcel4Macro(yol & dosya & "R3C" & sut)
On Error Resume Next
Range("E9").Value = Cells(14, sut2).Value / deg
End Sub

 

[umut100]

Sn.Evren Gizlen

Çok teşekkür ediyorum gerçi bölme işleminden emin değilim bir hata var. Bu sorunu çözeriz inşallah da. Hiç kod bilgim yok cahilliğime verin. Ekli dosyada uygulayacağım. Oldukça çok satır ve sütun var ve bu sayfa gibi 7 sayfayı kodlayacağım. Eğer mantığını anlarsam yavaşda olsa geliştiririm.

1-Kodu geliştirmenin pratik yolu varmı.
2- Burada satır ve sütun sayısı arttıracağım ve 12 ay için yapılacak yeni bir sütun ve satır eklemem gerektiğinde kodun hangi bölümüne ekleme yapacağım. İzah ederseniz. Ben elimden geleni yapacağım.
3-Burada bölünenle bölen ters olmuş 120 rakamını 10000 e bölecekti. Birde hatalı anlatmışım ocak da da şubat da da aynı rakama bölmesi gerekiyordu.

Sizi de fazla oyalamak istemiyorum.

İlginize çok teşekkür ederim.

Not: Çalışma yapacağım dosya.

 

[umut10]

Üstadlar lütfen bakabilirmisiniz? Makro sayfasından buraya atıldım!!!

Merhaba,
Nedenini bilmiyorum. Makro sayfasından buaraya atıldım. Belki fonksiyon çözüm olacak.

İlginize teşekkür ederim