Forum :: Başlık Görünümü

Forum » GENEL » Soru - Cevap » Yardım
Üye Olmak İstiyorum Parolamı Unuttum Aktivasyon Linki Gönder Yardım Arama
[Yardım] Yardım
Burada Olan Üyeler: 1 ziyaretçi
Mesaj Tarihi: 22.08.2017 14:27 #1
Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

merhabalar; macro konusun da hiç bilgim yok dosya içerisinde fatura no bölümünde ki dolgusuz olan hücreleri yan tara atmasını istiyorum ama yapamıyorum yapılı olarak bir tane dosyam var ama yapılı olan macroyu bos dosyaya aynısnı yapabilirmisiniz o dosya yapıldıgında doluydu diye extre al butonuna tıkladığımda cok geç atıyor yan sayfaya.
yardımcı olursanız çok memnun olurum
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 15:15 #2
Cevap: Yardım

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

Merhaba Veysi bey,

Boş bir Excel sayfasının A1:A5 arasına herhangi bişi yazıp istediğiniz hücrelerin arka planını dolgulayın.

Sonra, Alt + F11 ile VB penceresine geçin, Insert -> Module deyin.
Module1'in sağ tarafındaki boş alana aşağıdaki kodları ekleyin ve F5 tuşuna basın.

Bu örnek kodları dosyanıza uyarlamaya çalışın. Eğer yapamazsanız dosyanızı görmek gerekecektir.

İyi çalışmalar,

Kodlar:
Kaynağı İndir Kod
Sub dolgusuzlar_yana()
Dim alan As Range
For Each alan In Sheet1.Range("A1:A5")
    If alan.Interior.Pattern = xlNone Then
        alan.Offset(0, 1) = alan
        alan.ClearContents
    Else
       
    End If
Next alan
End Sub
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: veysi0047
IP: 0.0.0.0
Reklam
Mesaj Tarihi: 22.08.2017 17:31 #3
Cevap: Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

selamlar:ya ben uğraştım ama yapamadım siz yardımcı olurmusunuz . dosyayı ekte paylaştım
veysi0047 tarafından eklenen dosya:
Bu başlıktaki ek dosyaları görebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.

Düzenleyen: veysi0047 Düzenleme Tarihi: 22.08.2017 17:38
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 18:39 #4
Cevap: Yardım

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

Dosyada ne istediğinizi açıklar mısınız?
Ney nereye gelecek şeklinde?
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 18:54 #5
Cevap: Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

bende yapılmış olarak var ama macro yapıldıgında dosya doluydu diye fıltrelemeyı cok geç yapıyor bende onu boş dosyaya yapya calıştım yapamadım size yapılmış olarak atayım görün boş olanı zaten az önce attım
veysi0047 tarafından eklenen dosya:
Bu başlıktaki ek dosyaları görebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 19:04 #6
Cevap: Yardım

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

Bilgi vermiyorsunuz benim anlamam zorlaşıyor.
Diğer kodun da mantığına göre aşağıdaki kodu deneyin.

Kaynağı İndir Kod
Sub dolgusuzlari_aktar()
Dim Alan As Range
Sayfa2.Range("A2:C65536").ClearContents

For Each Alan In Sayfa1.Range("C8:C" & Sayfa1.Range("C65536").End(xlUp).Row)
    If Alan.Interior.Pattern = xlNone And InStr(1, Alan.Offset(0, -1), "MAK") = 0 Then
        Sayfa2.Range("A65536").End(xlUp).Offset(1, 0) = CDate(Alan.Offset(0, -2))
        Sayfa2.Range("A65536").End(xlUp).Offset(0, 1) = Alan.Offset(0, -1)
        Sayfa2.Range("A65536").End(xlUp).Offset(0, 2) = Alan
    Else
   
    End If
Next Alan

End Sub
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 19:19 #7
Cevap: Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

gelen faturaları işliyorum tarih fatura no tutar diye odediğimde ise ödenen faturaları sarıya boyuyorum benim burda istediğim şey ödenmemişleri yan sayfaya tarih fatura no ve tutarı atsın istiyorum yani birinci sayfada bir ödenmemşler diye buton olsun ona bastığımda ödenmemşi faturaları yan sayfaya extre gibi döksün ben yapamıyorum siz a1dosyasında yapıp paylaşabilir misiniz ben yapamıyorum gönderdiğiniz kodları
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 19:27 #8
Cevap: Yardım

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

Veysi bey, Alt + F11 ile açıp yapıştıracaksınız.
PC erişimim olunca tekrar bakarım.
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 22.08.2017 19:46 #9
Cevap: Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

sizin dediğiniz gibi yapıyorum ama olmuyor çok denedm siz bilgisayar başına geçtiğinizde hallederseniz sevinirim
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 23.08.2017 00:09 #10
Cevap: Yardım

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

a1 isimli dosyaya kodları ekledim.
İşinizi görür umarım.
OrkmesB tarafından eklenen dosya:
Bu başlıktaki ek dosyaları görebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 23.08.2017 10:48 #11
Cevap: Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

evet istediğim tam olarak bu yalnız yeni faturalar işlediğimde onları yan sayfaya atmıyor
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 23.08.2017 12:22 #12
Cevap: Yardım

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

VB penceresini açın. Sayfa1(GENEL) kısmına tıklayıp kod penceresine aşağıdaki kodları yapıştırın.
Her değişiklikte diğer sayfaya işlem yapılacaktır.
Ama tavsiye ettiğim bir yöntem değil.

Kaynağı İndir Kod
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Alan As Range
Sheet1.Range("A2:C65536").ClearContents

For Each Alan In Sayfa1.Range("C8:C" & Sayfa1.Range("C65536").End(xlUp).Row)
    If Alan.Interior.Pattern = xlNone And InStr(1, Alan.Offset(0, -1), "MAK") = 0 Then
        Sheet1.Range("A65536").End(xlUp).Offset(1, 0) = CDate(Alan.Offset(0, -2))
        Sheet1.Range("A65536").End(xlUp).Offset(0, 1) = Alan.Offset(0, -1)
        Sheet1.Range("A65536").End(xlUp).Offset(0, 2) = Alan
    Else
   
    End If
Next Alan

End Sub

Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: Erdal1962
IP: 0.0.0.0
Mesaj Tarihi: 23.08.2017 13:01 #13
Cevap: Yardım

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

tavsiyeniz çok doğru resmen sayfa donuyor.
şu yolladığım dosyanın aynısını a1 dosyasına yapamaz mısınız ?
istediğim tam olarak o dosyanın aynısı
bir incelerseniz görüceksiniz zaten
veysi0047 tarafından eklenen dosya:
Bu başlıktaki ek dosyaları görebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Yardım konusuna oy veriniz.
5 üzerinden 5 | Oran: 100% | Toplam: 1 kişi
Güncel Oy:
Lütfen oyunuzu seçiniz: Başlığa oy verebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.
Atlanılacak Forum:
« Önceki Başlık | Sonraki Başlık »