• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

emlak proğramı

Katılım
5 Temmuz 2010
Mesajlar
11
Excel Vers. ve Dili
6.5 ingilizce
Merhaba,
Mevcut emlak programları bana hitap etmediğinden portföylerimi excel 'e giriyorum,ancak bana lazım olanı nasıl aracayacığımı bilmediğimden sayfaları tek tek gezmek zor oluyor,bana nasıl arama yapacağımın Fonksiyonunu yazabilirmisiniz?
v5dnr.png
[/url][/IMG]
 
Bence;
o kadar sayfa yerine tüm bilgiler bir sayfada daha iyi olur. adres bilgisi olarak ayrı bi sütun olarak ekleseniz daha iyi olur.
 
kardeş foruma konuna İLGİLİ dosyayı ekle . sorunun mutlaka çözülür. benden çok daha iyi bilenler var. bende bakarım başkaları da bakar, bilmeyenlere örnek olur.
 
v9guu.png
[/url][/IMG]

arkadaşlar umarım açıklamam yeterli olmuştur.ve sorunu çözebilecek bilgili kimseler cevap verirler.
 
Linkini attığınız videoya bakılırsa , 2016 da yapmış ya da yaptırmış olduğunuz bir programın reklamını yapıyor olabilirsiniz.

Ve bunu site kurallarına göre yanlış bölümde yapıyorsunuz , zira en alttaki 2013 te yüklenmiş resim yüzünden üyeler yardım istediğinizi düşünüyor.

Kısacası Makro bölümünde kargaşa oluşuyor. Site kurallarına da bakılırsa ,sorunuz ya taşınır ya da kaldırılır.
 
Son düzenleme:
11 nolu mesajdan sonra tekrar aynı linki koymuşsunuz ya, ancak helal olsun denir :)

Dosyanızı doya doya kullanın :)
 
Beni ilgilendiren bir tarafı yok elbette. 4 ayrı konuya 4 adet youtube linki koymanız ve üstelik bunu bir meziyet gibi yapmış olmanız hoş değil sadece.

Ve 11.mesajdan sonra, "Dosya bana özeldir paylaşmak istemiyorum" demeniz de yeterli olurdu benim için.
 
YgJ6kl


RESIM

Kod:
Sub LISTELE()
'
' LISTELE Makro
'
' ÖNCE MEVCUT LİSTE TEMİZLENECEK
'
    Range("B10:J10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Clear
    Range("B10").Select
    ActiveWindow.SmallScroll Down:=-12
'
' BELEN LİSTELENİYOR
'
    Sheets("BELEN").Select
    Range("B4:J4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("EMLAK").Select
    Range("B10").Select
    Application.Goto Reference:="R99999C2"
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-7, 0).Range("A1").Select
    Range("B4").Select
'
' BEYLERBEYI LİSTELENİYOR
'
    Sheets("BEYLERBEYI").Select
    Range("B4:J4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("EMLAK").Select
    Range("B10").Select
    Application.Goto Reference:="R99999C2"
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-7, 0).Range("A1").Select
    Range("B4").Select
'
' BUDAK LİSTELENİYOR
'
    Sheets("BUDAK").Select
    Range("B4:J4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("EMLAK").Select
    Range("B10").Select
    Application.Goto Reference:="R99999C2"
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-7, 0).Range("A1").Select
    Range("B4").Select
'
' CAYELI LİSTELENİYOR
'
    Sheets("CAYELI").Select
    Range("B4:J4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("EMLAK").Select
    Range("B10").Select
    Application.Goto Reference:="R99999C2"
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-7, 0).Range("A1").Select
    Range("B4").Select
End Sub
 
Son düzenleme:
Geri
Üst