[Çözüldü]  MsgBox ile Alt Alta Yazma

Mesaj Kutusu. Programcıların olmazsa olmazlarından.

MsgBox ile Alt Alta Yazma

İleti#1)  emrah2321 » 30 Eyl 2016 15:59

Hayırlı Akşamlar

Aşağıdaki kod ile Excel çalışma kitabımdan birden fazla sayfa mevcut bu sayfalardan A1 hücresinde "DOĞRU" yazanları bana msgbox ile tek seferde vermesini istiyorum. Mesela 30 tane sayfam var bu 30 sayfalardan Sayfa1, Sayfa5, Sayfa7 ve Sayfa10'nun A1 hücresinde "DOĞRU" yazdığını varsayalım. Butona bastığımızda

DOĞRU YAZAN SAYFALAR
Sayfa1
Sayfa5
Sayfa7
Sayfa10

Msgbox ile şu şekilde gelecek. Benim yaptığımda ise en son sayfa hangisi ise onu veriyor. Herhangi bir hücreye kayıt etmeden bunu yapabilir miyiz. Yapmak istediğim döngü yaptıkça hafızaya alsın bir sonrakini üstüne yazmasın en sonunda msgbox ile çıktı versin.

Kod: Tümünü seç
Application.ScreenUpdating = False
   
    Dim wSheet As Worksheet
    For Each wSheet In Worksheets
    If wSheet.Range("A1") = "DOĞRU" Then
        emr = wSheet.Name
        End If
    Next wSheet
MsgBox "DOĞRU YAZAN SAYFALAR" & vbLf & emr
Application.ScreenUpdating = True
En son Murat OSMA tarafından, 30 Eyl 2016 16:59 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Başlık Değiştirildi. - İlgili başlık altına taşındı.
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 08:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 36
İleti: 424
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ

Cevap: Msgbox ile alt alta yazma

İleti#2)  Murat OSMA » 30 Eyl 2016 16:31

Bu kodları kullanabilirsiniz..

Kod: Tümünü seç
Sub Emre()
    Dim syf As Worksheet, yaz$
    For Each syf In ThisWorkbook.Worksheets
        If syf
.Range("A1").Value = "DOĞRU" Then
            yaz 
= yaz & syf.Name & vbLf
        End If
    Next syf
    MsgBox 
"DOĞRU YAZAN SAYFALAR" & vbLf & yaz
End Sub
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: MsgBox ile Alt Alta Yazma

İleti#3)  emrah2321 » 30 Eyl 2016 16:50

Murat Bey;

Çok sağolun elinize sağlık teşekkür ederim.

Hayırlı Akşamlar dilerim
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 08:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 36
İleti: 424
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ

Cevap: MsgBox ile Alt Alta Yazma

İleti#4)  Murat OSMA » 30 Eyl 2016 16:58

Rica ederim Emrah Bey, iyi akşamlar. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

Forum MsgBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe