iki çalışma kitabı arasında veri aktarımı

[cem yılmaz]

Merhabalar..

Yapmak istediğim işlem 1.çalışma kitabında "h7" hücresinde bulunan sayıyının karşısına denk gelen "c7" hücresi eğer doluysa 2.çalışma sayfasında bulunan bu sayıyı bulup karşısına kullanıldı yazmak istiyorum.Yardımcı olabilirmisiniz.?

 

[cem yılmaz]

Siz sayın uzmanlarımızdan yardımlarınızı rica ediyorum.

 

[mami68]

Merhabalar.

Ben bu formülü denedim neticeyi aldım.
Hücre M7=

=EĞER(C7<>"";EĞER(EHATALIYSA(KAÇINCI(H7;[Sheet1]Sayfa1!$B$1:$B$13;0));"Kullanılmadı";"Kullanıldı");"TesisatNoBulunamadı")

Kitap2 yi masa üstünde bıraktım,Kitap "1"-de M7-ye bu formülü yazınca otomatikmen
Günceleme sayfası açılır ve oradan "2" nolu kitabına tıkladığınız an cevabı alacaksınız.

İyi çalışmalar.

 

[cem yılmaz]

Yanlış aktardım galiba. Kitap 1 benim asıl programım. Kitap 2 diğer programım. kitap 1 üzerine girdiğim "c7" hücresine denk gelen "h7" hücresindeki rakamı kitap 2 üzerinde bulup karşısına kullanıldı yazmasını istiyorum her seferinde güncellemek için dosya seçmek değilde kitap 2 de bulunan düğme vasıtasıyla güncellemek istiyorum.Müsaadenizle örnek işlemi bilgisayara anlatıyormuş gibi yazmak istiyorum.

"c7" hücresine bak eğer "c7" hücresi doluysa "h7" hücresindeki sayıyı 2.çalışma kitabında bul karşısına tesisat numarasını yaz veya kullanıldı yaz da olabilir.

 

[mami68]

Sayın Cem
Ben bu macroyu denedim çalışıyor.

Sub ABC()
    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF( 'C:\Users\cemyılmaz\Desktop\[1.xls]YEŞİL1'!R[4]C<>"""",IF(ISERROR(MATCH( 'C:\Users\cemyılmaz\Desktop\[1.xls]YEŞİL1'!R[4]C[5],Sayfa1!R3C2:R1300C2,0)),""Kullanılmadı"",""Kullanıldı""),""TesisatNoBulunamadı"")"
    Selection.AutoFill Destination:=Range("C3:C9"), Type:=xlFillDefault
    Range("C3:C9").Select
    Range("A1").Select
End Sub

Bu makroyu kitap "2" düğmeye makro atadım.
Notosya yolunu cem yılmaz yazdım siz onu doğrusu ne ise uygulayın.
İyi çalışmalar.

 

[cem yılmaz]

peki niçin sürekli olarak güncellenecek satır kadar dosyanın bulunduğu yeri göstermemi istiyor.yani 1 sefer dosya yolu belirtmek yeterli olmuyor Sn mami68

 

[mami68]

Bu kodu çoğaltsak sorun giderilirmi,sizce.

C3:C1300

"1 sefer dosya yolu belirtmek yeterli olmuyor " demişsiniz bunu iyi anlayamadım.Kaç sefer olması gerekiyor ki...!

 

[cem yılmaz]

Sayın Cem

Notosya yolunu cem yılmaz yazdım siz onu doğrusu ne ise uygulayın.
İyi çalışmalar.

bu yazınızı görmedim onun için bu şekilde yazdım Sn mami68

kodların sonunda kullanılmadı veya tesisat no bulunamadı yazıyor ben bunların olmamasını istiyorum yani kullanılmışsa kullanıldı kullanılmamışsa boş geçsin sildiğim zamanda kod bozuluyor kodun o kısmını düzenleyebilirmiyiz rica etsem

 

[mami68]

Aşağıdaki kodu kulanınız.

Sub ABC()
    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF( 'C:\Users\mami\Desktop\[1.xls]YEŞİL1'!R[4]C<>"""",IF(ISERROR(MATCH( 'C:\Users\mami\Desktop\[1.xls]YEŞİL1'!R[4]C[5],Sayfa1!R3C2:R1300C2,0)),"" "",""Kullanıldı""),"" "")"
    Selection.AutoFill Destination:=Range("C3:C1300"), Type:=xlFillDefault
    Range("C3:C1300").Select
    Range("A1").Select
End Sub

 

[mami68]

Eğer fazla satırda çalışma olacaksa C3:C1300-ü 5000 yapabilirsiniz.

 

[cem yılmaz]

teşekkür ederim sağolun emeğinize ve ellerinize sağlık

 

[mami68]

Memnun oldum,

İyi çalışmalar.

 

[cem yılmaz]

yine başka bir sıkıntı çıktı sn mami 68.Ben userform aracılığıyla boşluk saydırma işlemi yaptırıyorum. yani kullanılanları saydıracak kullanılmayanları saydıracaktım fakat sizin yazdığınız kod ile bütün hücrelerde boş olmasına rağmen kod çıkıyor ve benim programım bunları dolu olarak algılıyor.Bunu nasıl düzeltebiliriz.

 

[mami68]

Sayın cem tekrar merhabalar

bana söylermisiniz saydırmak için hangi formülü kulanıyorsunuz.

 

[cem yılmaz]

Private Sub CommandButton1_Click()
ListBox1.Clear
Dim hcr As Range
    For a = 5 To [a65536].End(3).Row
        If Cells(a, 1) = ComboBox1.Value Then
            Set hcr = Cells(a, 1)
            If OptionButton1.Value = True Then
            If hcr.Offset(0, 2) <> "" Then ListBox1.AddItem hcr.Offset(0, 1)
            TextBox1.Value = ListBox1.ListCount

            ElseIf OptionButton2.Value = True Then
            If hcr.Offset(0, 2) = "" Then ListBox1.AddItem hcr.Offset(0, 1)
            TextBox1.Value = ListBox1.ListCount

            End If
        End If
    Next
End Sub

userform üzerinden yapıyorum.optionbutton 1 veya 2 yi seçerek gerek kullanılmış gerekse kullanılmamış olanları listeliyorum

 

[mami68]

Merabalar.

Ben bu kodu çalıştırdım, düzgün çalışıyor.

Burada bence, siz küçük bir hata yapıyorsunuz.Hata yolunu bulmak için size şunu soracam.

Kullanılan mühür ve Kullanılmayan mühür kaşe Option seçeneklerini kulanırken

Kitap "1" Aktiv iken mi kulanıyorsunuz yoksa Kitap "2" den mi kulanıyorsunuz.

Netice şöyle verildi:Kullanılan
6531001
6531002
Ki bu doğrusunu veriyor,demektir.Ama siz Kitap "1"-de yaptığınız değişiklikleri kaydedip kapatın ondan sonra Kitap "2"-de butonu çalıştırın veriler gelecektir.
Tekrar Kitap"1" açın ve Zimmet bul butonda işlemi yapın ve netice doğru olduğunu göreceksiniz.

 

[cem yılmaz]

Sn mami68

Programı ekledim ve gerekli açıklamaları içine yazdım sizden ricam programı inceleyebilir ve bu derdime çare bulabilirmisiniz.

 

[mami68]

Dosya ektedir.

 

[cem yılmaz]

Sn mami68 çalışmada problem yok fakat 1 satır alttaki veri geliyor yani 1.nin karşısına 2.veri geliyor. Ayriyetten veri değil kullanıldı yazması gerekiyor.Yani ben düğmeyi tıkladığımda yeşil1 sayfasında yer alan sayaç no kısmındaki numaraların hangisi kullanılmışsa sayaçlar sayfasında bulununan numaranın karşısına kullanıldı yazacak.
ayrıca kullanıldı kullanılmadı programı için çalışmada bir hata var düğme ile alınan verileri değilde sayaçlar sayfasında b sütununda bulunan verilerin hangileri kullanılmış hangileri kullanılmamış bunu söylemesi gerekir.

 

[mami68]

Sayın cem tekrar merhabalar.

Farkında mısınız konu nerden nereye taşındı devamlı niyetiniz değişiyor.
Bu son dosya ile yeni bir başlık açınız ve noktayı koyunuz.

İyi çalışmalar.