MsgBox 'a Hücre Yazdırmak

[Hakan ERDOST]

Herkese iyi akşamlar;
Private Sub aktar_Click()
sor = MsgBox("MATRAHI BİR KEZ AKTARMALSINIZ.DAHA ÖNCE AKTARMADIĞINIZA EMİN MİSİNİZ?", 4)
If sor = vbNo Then Exit Sub
Set s1 = Sheets("bordro_2")
Set s2 = Sheets("Uvergi")
sut = WorksheetFunction.CountA(s2.[3:3]) + 1
s2.Range(s2.Cells(2, sut), s2.Cells(10, sut)) = s1.[M6:M15].Value
End Sub
Kodundan da anlaşılacağı üzere bordro_2 sayfasından tanımlanan M6:M15 aralığını vergi sayfasında ayların olduğu sütunlara aktarıyorum.İstediğim ise şu
Aktarım sırasında yanii Aktar butnuna tıklandığında gelen MsgBox ta Aktarılan sayfada b1 ;c1........n1 sütunlarının ilk hücresinde yer alan ay adını görüntülemek mümkün mü?

 

[udentr2002]

MsgBox['buraya yazdırmak istediğiniz hücreyi yazınız]
mesala

MsgBox[a1] gibi

 

[udentr2002]

sanırım sorunuzun tam cevabı şu olabilir

MsgBox s2.[b1] & " " & "ayına ait bilgiler aktarılmıştır"
şeklinde

 

[Hakan ERDOST]

İsteğimi Tam anlatamadım özür dilerim.Şimdi diyeli ocak şubat matrahları aktarılmış .MsgBox dolu stunlara bakıp boş ilk sütunudak 1 satırı yazacak yazacak .sor = MsgBox("MATRAHI BİR KEZ AKTARMALSINIZ.DAHA ÖNCE AKTARMADIĞINIZA EMİN MİSİNİZ?", 4)
If sor = vbNo Then Exit Sub
Bu kodun içine eklenecek.

 

[udentr2002]

hexadesimal dostum

özür dilerim soruyu pek anlayamadım inşallah başka bi hocam cevap verebilir. ama ben anlayamadım

 

[Hakan ERDOST]

Nasıl anlatayım ki:
Aylık bordro yapıldıktan sonra vergi matrahları bu kod ile aktarılıyor.İsediğim şu Örneğin mart ayı bordrosunu yaptım.Matrah aktar dediğimde .1.Satıra (b1,c1,d1,.....n1) bakıp Orada yazan aylardan boş ilk sütun mart olacağından (Diğer aylar aktarıldığndan) MsgBox a Mart ayı matrahını aktarmak istediğnize eminmisiniz.Mesajı ve Kayıt sonrası mart ayına ait veri matrahı aktarılmıştır.

 

[Mahmut Kök]

Herkese iyi akşamlar;
Private Sub aktar_Click()
sor = MsgBox("MATRAHI BİR KEZ AKTARMALSINIZ.DAHA ÖNCE AKTARMADIĞINIZA EMİN MİSİNİZ?", 4)
If sor = vbNo Then Exit Sub
Set s1 = Sheets("bordro_2")
Set s2 = Sheets("Uvergi")
sut = WorksheetFunction.CountA(s2.[3:3]) + 1
s2.Range(s2.Cells(2, sut), s2.Cells(10, sut)) = s1.[M6:M15].Value
End Sub
Kodundan da anlaşılacağı üzere bordro_2 sayfasından tanımlanan M6:M15 aralığını vergi sayfasında ayların olduğu sütunlara aktarıyorum.İstediğim ise şu
Aktarım sırasında yanii Aktar butnuna tıklandığında gelen MsgBox ta Aktarılan sayfada b1 ;c1........n1 sütunlarının ilk hücresinde yer alan ay adını görüntülemek mümkün mü?

sut = WorksheetFunction.CountA(s2.[3:3]) + 1

satırını iletiden (msgbox) önce yazıp ve iletiyi

sor = MsgBox( s2.cells(1,sut) & " AYINA AİTMATRAHI AKTARACAKSINIZ", 4)


yazarak dener misiniz?

 

[Hakan ERDOST]

Private Sub aktar_Click()

sor = MsgBox("MATRAHI BİR KEZ AKTARMALSINIZ.DAHA ÖNCE AKTARMADIĞINIZA EMİN MİSİNİZ?", 4)
If sor = vbNo Then Exit Sub
Set s1 = Sheets("bordro_2")
Set s2 = Sheets("Uvergi")
Set s3 = Sheets("bordrodegis")
sut = WorksheetFunction.CountA(s2.[3:3]) + 1
s2.Range(s2.Cells(1, sut), s2.Cells(1, sut)) = s3.[b2].Value
s2.Range(s2.Cells(2, sut), s2.Cells(10, sut)) = s1.[M6:M15].Value

MsgBox s3.[b2] & " " & "ayına ait bilgiler aktarılmıştır"
End Sub
şeklinde düzenleme ile çözdüm herkese teşekkürler.

Bu arada

MsgBox s3.[b2] & " " & "ayına ait bilgiler aktarılmıştır

ile "ayı" çıkış mesajına ayı yazdırıdık ama .Giriş mesajına yazdıramadım.Küçük bir ayrıntı ama hata veriyor.

 

[baba_karabatak]

Private Sub aktar_Click()

sor = MsgBox("MATRAHI BİR KEZ AKTARMALSINIZ.DAHA ÖNCE AKTARMADIĞINIZA EMİN MİSİNİZ?", 4)
If sor = vbNo Then Exit Sub
Set s1 = Sheets("bordro_2")
Set s2 = Sheets("Uvergi")
Set s3 = Sheets("bordrodegis")
sut = WorksheetFunction.CountA(s2.[3:3]) + 1
s2.Range(s2.Cells(1, sut), s2.Cells(1, sut)) = s3.[b2].Value
s2.Range(s2.Cells(2, sut), s2.Cells(10, sut)) = s1.[M6:M15].Value
MsgBox (s3.[b2] & " " & "ayına ait bilgiler aktarılmıştır")
End Sub
derdine care olur inşallah

 

[Hakan ERDOST]

Sayın baba karabatak ilginişze teşekkürler kod aynı zeten .Sorun yok.Çıkış mesajında ay geliyor.Sorun giriş mesajıda ay gelmiyor.
sor = MsgBox("MATRAHI BİR KEZ AKTARMALSINIZ.DAHA ÖNCE AKTARMADIĞINIZA EMİN MİSİNİZ?", 4)
If sor = vbNo Then Exit Sub

Bu kodda değişiklik yaptım ama hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Farkındaysanız ilk mesajınızda sadece kullandığınız kodu eklemişsiniz ve yardım talebinde bulunmuşsunuz. Yardım etmek isteyen arkadaşlarımız sizin kullandığınız dosyanın yapısını vermiş olduğunuz kod ile tahmin edip cevap vermeye çalışmışlar. Fakat sizin istediğiniz cevap gelmemişki konu gereksiz yere uzamış. Size tavsiyem bu tür sorularınızda orjinal dosyanıza benzer küçük bir dosya üzerinde hangi işlemi nasıl yapmak istiyorsanız detaylı bir şekilde açıklayarak yardım talebinde bulunmak. Göreceksiniz ki istediğiniz cevaba en kısa sürede ulaşacaksınız. Şimdi diyebilirsiniz bunları niye yazdınız. (BURDAN SONRA YAZDIKLARIM ŞAHSINIZA DEĞİLDİR.)

Son zamanlarda yardım talebinde bulunan arkadaşlarımız genelde sorularını bu şekilde soruyorlar. Ve bir süre sonrada aynı başlık altında aşağıdaki serzenişlerde bulunarak yardım alamadıklarını dile getiriyorlar.

Bu soruma yardım edecek kimse yokmu?
Bir kaç gündür sorumla ilgilenen olmadı. Acaba çok zor bir sorumu sordum ?
Değerli arkadaşlar bu konu benim için çok önemli acil çözmem gerekiyor. Gibi ...

Yazdıklarım sadece size yönelik değildir. Lütfen yanlış anlamayın. İnşallah bu başlığı okuyan forum üyeleri bundan sonraki soru sorma biçimlerine biraz olsun özen gösterirler.

Bu kadar yazdıktan sonra sorunuza anladığım kadarıyla cevap vermemek olmazdı tabiki. Ekte örnek bir dosya hazırladım. Umarım faydası olur.

 

[Ali]

Selamlar,

Son zamanlarda yardım talebinde bulunan arkadaşlarımız genelde sorularını bu şekilde soruyorlar. Ve bir süre sonrada aynı başlık altında aşağıdaki serzenişlerde bulunarak yardım alamadıklarını dile getiriyorlar.

Bu soruma yardım edecek kimse yokmu?
Bir kaç gündür sorumla ilgilenen olmadı. Acaba çok zor bir sorumu sordum ?
Değerli arkadaşlar bu konu benim için çok önemli acil çözmem gerekiyor. Gibi ...

Yazdıklarım sadece size yönelik değildir. Lütfen yanlış anlamayın. İnşallah bu başlığı okuyan forum üyeleri bundan sonraki soru sorma biçimlerine biraz olsun özen gösterirler.

Yazdıklarım tamamen geneldir kimseyi hedef göstermek asla amacımız olamaz.

Sn COST_CONTROL aynı şeyi kısa bir süre önce arkadaşlar ile aşağıdaki linkte paylaştık sizinde belirttiğiniz gibi tek istediğimiz bundan sonra biraz daha dikkat etmek ve formu etkin bir şekilde kullanmak.

http://www.excel.web.tr/showthread.php?t=25986

Umarım forum üyelerimiz biraz daha özenli davranılırlar.