Eğer A hücresi boşsa satırı kopyala

[Baggwell]

Eğer A1 ile A10 arasında boş olan hücre varsa o satırı kopyala yapan bir buton oluşturmak istiyorum tabi mümkünse

yardımcı olursanız teşekkürler

 

[Murat OSMA]

Boş olan hücreyi kopyalayıp ne yapacaksınız ? :dusun:

VBA'yı öğrenme adına size bu başlığı önerebilirim; http://www.excel.web.tr/f60/

 

[Baggwell]

Merhaba Murat bey, dikkat ediyorum bazı kullanıcıların yardım taleplerine karşılık neden soruyorsunuz gibi cevaplarınız var.
Niyetimi açıklayayım, ortalama saatte bir kullanmış olduğumuz masterdan düşen siparişleri excele export ediyorum, her raporda ortalama 40-50 satır oluyor.
Daha sonra 2 ayrı yönetim panelimizden aynı şekilde düşen siparişlerin ödeme bilgilerini indiriyorum.
Bu 2 ayrı ödeme sayfalarını, ilk etapta masterdan indirmiş olduğum excel dosyası ile Düşeyara yapara birleştiriyorum. Son olarakta ödemesi olmayan (A sütununda bulunan boş hücreler oluyor) işlemleri tek tek seçiyorum.
Saatte bir, bazen yarım saatte bir yapılması gerekiyor

İşin daha kolay hale gelmesi için düşeyara kısmını pratik şekilde hallettim.

A sütununda boş bulunan hücreler ( yani ödemesi alınmayan siparişler) kopyalayıp ayrı bir dosyaya çıkartıyorum.

Sizden yardım talep ettim, işimi sorguladınız, umuyorum ki yardımcı olursunuz bu sefer. Fakat istemiş olduğum şey mümkünse eğer, kopyalayıp ne yapacaksınız diyerek sormayın lütfen, mümkün değil olmuyor deyin kafi...

Saygılarımla

 

[Korhan Ayhan]

Filtre uygulayarak boş olan hücreleri süzüp başka alana kopyalamak işinize yarayabilir. Anlattıklarınızda bu yöntemi uygulayabileceğinizi anlıyorum. Biraz uğraşın yapamazsanız dosyanızın küçük bir örneğini ekleyerek işlemi tarif edin. Elimizden geldiğince yardımcı olmaya çalışırız.

Not: Murat bey "..... ne yapacaksınız?" diye sorarken bir art niyeti olduğunu düşünmüyorum. Excelde genelde kimsenin boş hücre ile ilgili bir işi olmaz. Genellikle dolu hücrelerde işlemler yapılır. Bunu düşünerek bu yorumu yapmıştır.

 

[Murat OSMA]

Allah Allaaahh çok enteresan......... :dusun: :dusun: :dusun:


Yazdığım mesajların üyeleri rahatsız ettiğini düşündüğümden, artık Excel.WEB.TR' de sorulara cevap vermenin doğru olmayacağını düşünüyorum.

Herkese keyifli paylaşımlar dilerim.


Saygılar,
Murat OSMA

 

[Baggwell]

Filtre uygulayarak boş olan hücreleri süzüp başka alana kopyalamak işinize yarayabilir. Anlattıklarınızda bu yöntemi uygulayabileceğinizi anlıyorum. Biraz uğraşın yapamazsanız dosyanızın küçük bir örneğini ekleyerek işlemi tarif edin. Elimizden geldiğince yardımcı olmaya çalışırız.

Not: Murat bey "..... ne yapacaksınız?" diye sorarken bir art niyeti olduğunu düşünmüyorum. Excelde genelde kimsenin boş hücre ile ilgili bir işi olmaz. Genellikle dolu hücrelerde işlemler yapılır. Bunu düşünerek bu yorumu yapmıştır.

Teşekkür ederim Korhan bey ilk etapta sorumu yanıtlayıp yardımcı olduğunuz için müteşekkirim sizlere..
Murat bey yardım etmek istiyorsa sizin gibi davranabilir, etmek istemiyorsa ne yapacaksınız diye sormasına bence lüzum yok.

 

[Murat OSMA]

Ne kadar gereksiz konuşuyorsunuz böyle... :bad:

Boş olan hücreyi kopyalayıp ne yapacaksınız ? :dusun: sorumu kendimce izah edeyim: Eğer mesajlarda, sorulan sorularda eksik bir nokta varsa veya ben öyle düşünüyorsam onu her zaman sorgularım. Bir konuya bakmadan ya da bir işe başlamadan önce her şeyin net olmasını isterim. Eğer net değilse, anlaşılmayan noktalar varsa asla başlamam. Bunun için de sizden ya da bir başkasından izin alacak değilim ve nasıl sorgulayacağım da sadece beni ilgilendirir. İlk mesajınız ile sonraki mesajınızın konunuz ile ilgili kısımlarını ilk mesajınızda yazmış olsaydınız konuyu daha iyi anlar ve size ona göre bir yanıt verirdim. Eğer A1 ile A10 arasında boş olan hücre varsa o satırı kopyala yapan bir buton oluşturmak istiyorum tabi mümkünse dediniz. Bu cümledeki işlemi yapabilmeniz için (A1 ile A10 arasında boş olan hücre varsa o satırı kopyala yapan buton oluşturmak) size bu kodları verirdim;

Sub Boş_Olan_Hücreye_Göre_Buton_Oluşturma()
    Dim i As Range
    Dim shp As Shape
    On Error Resume Next
    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next shp
    For Each i In Range("A1:A10")
        If i.Value = "" Then
            ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
            , DisplayAsIcon:=False, Left:=489, Top:=85.5, Width:=72, Height:=24).Select
            i.EntireRow.Copy
        End If
    Next
    Set shp = Nothing: Set i = Nothing
End Sub

Ama asıl yapmak istediğinizin buton oluşturmak olmadığını tahmin ediyorum ve diyorum ki; boş olan bir hücre neden kopyalanır ? Boş olan hücreyi kopyalayıp ne yapacaksınız ? Diyelim ki kopyalandı, kopyalandıktan sonra ne yapılacak ? Başka bir sayfaya mı kopyalanacak, başka bir işlem mi yapılacak, kopyaladıktan sonra verdiğim koddaki gibi havada asılı mı kalacak, bir şey yapılmayacak mı ? Ben ilk mesajınıza bakarken aklımdan bunlar geçiyor. Coder gözüyle bakamayacağınız için bunu anlayamazsınız. Korhan Bey size kısaca ne demek istediğimiz size izah etti ama siz hâlâ bunun üzerine gidiyorsunuz.

Buna devam etmeyin, yapmayın.. eğer sorunuz çözüme kavuştuysa da bu konuyu daha fazla uzatmayın diyorum...

Anlaşıldığımı umuyorum.

 

[Baggwell]

Sizin de dediğiniz gibi ilk etapta soruya yönelik düşünmüşsünüz haklısınız, benim açımdan da bakalım, cevabınızın ilk etapta alaycı olduğunu düşündüm o sebeple alındım.

Öncelikle yardımcı olduğunuz için teşekkürü borç bilirim, hakkınızı helal edin
Açıklamalarınız da yeterli olmuş biraz tokat gibi geldi ama yine de saygılarımı sunuyorum bilakis ilgilenmişsiniz, kodları deneyip geridönüş yaparım.

 

[Murat OSMA]

Neden alaycı bir şekilde yazayım ki ? Böyle düşünmenizin sebebini anlayamadım ama hakkımdaki algınızın değişmesini umuyorum.

Verdiğim kodlar sizin ihtiyacınız olan kodlar değil. O kodlar; kurduğunuz hatalı cümleye göre yazılan kodlardır, anlatım hatalı olunca kodların da hatalı olacağını anlatmak için yazdım. Doğru kodları, dosyanız üzerinde ne yapmak istediğinizi anlattığınızda, bize somut bir şeyler gösterdiğinizde alacaksınız. (Sorununuz çözülmedi ise)....