İki makrolu kitabı birleştirmek

[sandokan]

Arkadaslar denem isimli makrolu olan dosyayı tkvım isimli dosyada birleştirmek istiyorum.yanı tek dosya tkvım ı kullanmak istiyorum..

 

[halit3]

Arkadaslar denem isimli makrolu olan dosyayı tkvım isimli dosyada birleştirmek istiyorum.yanı tek dosya tkvım ı kullanmak istiyorum..

http://www.excel.web.tr/f48/caly-ma-kitaby-birle-tirmek-t91307.html

Yukarıdaki linkdede benzer bir soru sormuşsun ama yanıt alamamışsın
sorulan sorularda ya eksiklikler vardır yada bir hayli zahmetli olduğundan cevap alamıyor olabilirsiniz.

iki dosyayı el ile birleştirseniz olmuyormu.? yaksa makro ile mi birleştirmek istiyorsunuz.?

Eğer makro ile birleştirilecekse bu iş bir hayli zahmetli saatlerce uğraşmak gerek onun için cevap alamıyor olabilirsiniz.

 

[halit3]

Bazen birleştirilen dosyaların makroları çalışmaya bilir çünkü referasları eksik gelebilir. dolayısıyla tek dosya birleştirilecekse dosyaları ele birleştirmek mantıklı izlenecek yol

her iki dosyayıda açalım sayfaların birleştiği dosya değil diğer dasyada sekmedeki sayfa ismlerinin üstüne sağ kılik yapıp tüm sayfaları seç, işaretleyip taşı veya kopyala seçeneğini tıklayıp kopya oluştur seçeneğini işaretleyip açılan liste kutusundan açık olan diğer dasyanın adını seçerek tamamı tıklamak yeterli olacaktır dosyalar birleşmiş olacaktır.

diğer taraftan userform ve modüldeki kodlarıda alt+f11 seçeneine tıklıyarak oradaki makrolarıda diğer çalışma kitabına aktarmak gerekiyor.

 

[sandokan]

yanı bagımısız halde ıkı dosyam var.istedigim şey denem adlı dosyayı aynısını tkvım yazanda kullanmak istiyorum...

 

[sandokan]

kopyalamayı yaptım anca butona tıkladıgımda denem dosyasını acıyor.

 

[halit3]

makrolarıa getirmeniz gerekiyordu

ekli dosyanızı kontrol ediniz.

 

[sandokan]

çok halit3 teşekkür ederim olmus.tek bir istegim kaldı oda
günü gelen ödemelerimiz kısmında a1 deki tarihe gelen ödemeleri cıkarıyor...
fakat ıkı tarih arası liste almak istiyorum..
misal a1 hücresindeki tarih ile b1 hücresine girecegim tarih aralıgındakilerin litesini getirebilirmiyiz..

 

[halit3]

ben yanlızca dosyalarınızı birleştirdim fonksiyonlarla aram iyi değil bu başlık altında cevap alamazsanız sorunuza uygun yenibir başlık açarak yeniden sorunuz.

iyi çalışmalar

 

[halit3]

tamam kod ile çözdüm ben yanlış anlamışım ekli dosyanıza bir bakınız.?

Sub ödemeleribul()
Set sh1 = Sheets("ÖDEME LİSTESİ HEPSİ")
Set sh2 = Sheets("GÜNÜ GELEN ÖDEMELERİMİZ")
sh2.Range("B5:E500").ClearContents
sat = 5
deg1 = CDate(sh2.Cells(1, "a").Value)
deg2 = CDate(sh2.Cells(1, "b").Value)
If deg1 <= deg2 Then
yer1 = CDate(sh2.Cells(1, "a").Value)
yer2 = CDate(sh2.Cells(1, "b").Value)
Else
yer2 = CDate(sh2.Cells(1, "a").Value)
yer1 = CDate(sh2.Cells(1, "b").Value)
End If

If IsDate(sh2.Cells(1, "a").Value) = True Then
If IsDate(sh2.Cells(1, "b").Value) = True Then
For i = 2 To sh1.Cells(Rows.Count, "B").End(3).Row
If CDate(yer1) <= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) & Chr(10) _
And CDate(yer2) >= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) Then
sh2.Cells(sat, "B").Value = sat - 4
sh2.Cells(sat, "C").Value = sh1.Cells(i, "B").Value
sh2.Cells(sat, "D").Value = sh1.Cells(i, "C").Value
sh2.Cells(sat, "E").Value = sh1.Cells(i, "E").Value
sat = sat + 1
End If

Next
End If
End If
End Sub

 

[sandokan]

Sub ödemeleri bul kısmında hata verdi halit 3

 

[halit3]

Sub ödemeleri bul kısmında hata verdi halit 3

göndermiş olduğum dosya çalışmıyormu.? bende çalışıyor.

 

[sandokan]

Sub ödemeleribul()

Set sh1 = Sheets("ÖDEME LİSTESİ HEPSİ")
Set sh2 = Sheets("GÜNÜ GELEN ÖDEMELERİMİZ")


ben odemeleri bul diyince modul sayfası acılıyor

tamam diyince uyarıya üstteki Sub ödemeleribul() kısmı sarı renk aliyor

 

[halit3]

Aşağıdaki durumu aynen uygula missing ile başlayan kulakcıkların tikini kapat dosyayı kayıt et kapat ve yeniden aç

Alt + 11/Tols/References/Missing

 

[sandokan]

şimdi oldu halit3 çok teşekkür ederim

 

[halit3]

şimdi oldu halit3 çok teşekkür ederim

iyi çalışmalar

 

[sandokan]

saol halit3 sizin cozumunzle halletim işimi fonksiyonlu olan olmadi..bunu kullandım emegine ve beynine saglik arkadasım..

 

[halit3]

saol halit3 sizin cozumunzle halletim işimi fonksiyonlu olan olmadi..bunu kullandım emegine ve beynine saglik arkadasım..

iyi çalışmalar