[Yardım]  Aralıktaki Sıfırılar Silinsin.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Aralıktaki Sıfırılar Silinsin.

İleti#1)  yesim_gurol » 10 Tem 2018 13:46

Merhabalar,

Makro kaydet ile oluşturmuş olduğum kodlara ek olarak ,
"Dışlama" sayfasındaki "A3:A17" içerisinde bulunan sıfır değerlerinin silinmesi şartını ekleyebilir miyiz? :oops:

Kod: Tümünü seç
Sub dfdgd()
    Sheets("AL").Select
    Range("O3:O17").Select
    Selection.Copy
    Sheets("DIŞLAMA").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 57
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Aralıktaki Sıfırılar Silinsin.

İleti#2)  Ali ÖZ » 10 Tem 2018 14:15

Deneyin.

Kod: Tümünü seç
sat = 3
For Each a In Sheets("AL").Range("O3:O17")
  If a.Value <> Empty Then
    Sheets("DIŞLAMA").Range("a" & sat).Value = a.Value
    sat = sat + 1
  End If
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9296
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Aralıktaki Sıfırılar Silinsin.

İleti#3)  yesim_gurol » 10 Tem 2018 14:22

Ali bey, ilginiz için teşekkür ederim.
Lakin ilk mesajımdaki kodlar ile aynı sonucu aldım. İstediğim bu kodlara ek olarak , DIŞLAMA sayfasındaki A3:A17 içerisinde bulunan sıfır değerlerinin de silinmesi. Yani AL sayfasından veri aldığımız O3:O17 hücreleri formüllü olduğundan değerler geçerken de hücre boş olsa da sıfır olarak aktarılıyor. Bu sıfırların da tamamen hücreden silinmesini istemekteyim mümkünse tabiki :oops:
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 57
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Aralıktaki Sıfırılar Silinsin.

İleti#4)  yesim_gurol » 10 Tem 2018 15:48

Merhabalar,
forumdaki örneklerden bulduğum kodu kendime uyarlayarak sorunu halletmiş oldum.
Kod: Tümünü seç
For Each Hücre In Selection
        If Sheets("dışlama").Range("A3").Value = 0 Then Sheets("dışlama").Range("A3").Value = ""


:oops:
[TESEKKÜR]
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 57
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Aralıktaki Sıfırılar Silinsin.

İleti#5)  Ali ÖZ » 10 Tem 2018 16:42

Ben boş değerleri olarak okumuşum kusura bakmayın.
Alternatif olarak bu şekilde de kullanabilirsiniz.

Kod: Tümünü seç
sat = 3
For Each a In Sheets("AL").Range("O3:O17")
  If a.Value <> 0 Then
    Sheets("DIŞLAMA").Range("a" & sat).Value = a.Value
    sat = sat + 1
  End If
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9296
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Aralıktaki Sıfırılar Silinsin.

İleti#6)  yesim_gurol » 10 Tem 2018 16:53

Estağfurullah Ali Bey, Ne kusuru :oops:

Tabi ki deneyeceğim , çok teşekkür ederim ilginize şkşk --)(
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 57
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot], samilyavuz, Sogou, Yandex[Bot] ve 4 misafir

Bumerang - Yazarkafe