MsgBox Uyarısı hk,

TiOr · 13 Haziran 2022

Merhabalar,

Aşağıda da göreceğiniz üzere uzunca bir texbox dizisi mevcut.
CommandButton1 tıkladığımda verileri hücrelere işlemektedir.
Fakat öncesinde veri al diyerek verileri texboxlara çağırıyorum. Yapmak istediğim değişiklikleri yaparak veri yaz diyorum yani CommandButton1 tıklıyorum.
Bazen veri al demeden veri yaz dediğim oluyor öyle olunca da doğal olarak bütün hücreler veri al demediğim için boş atıyor

Sonrası çorba ayıtla princin taşını

CommandButton1 tıkladığımda işlem yapmadan önce evet hayır diye sorması için MsgBox uyarısı versin evet dediğimde verileri işlesin istiyorum.
Veya şöylede olabilir veri yazmanız için veri almalısınız yani texboxlarda veri yoksa işlem yapmasın.
Kod için yardımlarınızı talep ediyor, iyi çalışmalar diliyorum.

Saygılarımla,

Kod:

Private Sub CommandButton1_Click()

TextBox1.Text = Sheets("ADRES").Range("A1").Value
TextBox2.Text = Sheets("ADRES").Range("A2").Value
TextBox3.Text = Sheets("ADRES").Range("A3").Value
TextBox4.Text = Sheets("ADRES").Range("A4").Value
TextBox5.Text = Sheets("ADRES").Range("A5").Value
TextBox6.Text = Sheets("ADRES").Range("A6").Value
TextBox7.Text = Sheets("ADRES").Range("A7").Value
TextBox8.Text = Sheets("ADRES").Range("A8").Value
TextBox9.Text = Sheets("ADRES").Range("A9").Value
TextBox10.Text = Sheets("ADRES").Range("A10").Value
TextBox11.Text = Sheets("ADRES").Range("A11").Value
TextBox12.Text = Sheets("ADRES").Range("A12").Value
TextBox13.Text = Sheets("ADRES").Range("A13").Value
TextBox14.Text = Sheets("ADRES").Range("A14").Value
TextBox15.Text = Sheets("ADRES").Range("A15").Value
TextBox16.Text = Sheets("ADRES").Range("A16").Value
TextBox17.Text = Sheets("ADRES").Range("A17").Value
TextBox18.Text = Sheets("ADRES").Range("A18").Value
TextBox19.Text = Sheets("ADRES").Range("A19").Value
TextBox20.Text = Sheets("ADRES").Range("A20").Value
TextBox21.Text = Sheets("ADRES").Range("A21").Value
TextBox22.Text = Sheets("ADRES").Range("A22").Value
TextBox23.Text = Sheets("ADRES").Range("A23").Value
TextBox24.Text = Sheets("ADRES").Range("A24").Value
TextBox25.Text = Sheets("ADRES").Range("A25").Value

TextBox26.Text = Sheets("ADRES").Range("B1").Value
TextBox27.Text = Sheets("ADRES").Range("B2").Value
TextBox28.Text = Sheets("ADRES").Range("B3").Value
TextBox29.Text = Sheets("ADRES").Range("B4").Value
TextBox30.Text = Sheets("ADRES").Range("B5").Value
TextBox31.Text = Sheets("ADRES").Range("B6").Value
TextBox32.Text = Sheets("ADRES").Range("B7").Value
TextBox33.Text = Sheets("ADRES").Range("B8").Value
TextBox34.Text = Sheets("ADRES").Range("B9").Value
TextBox35.Text = Sheets("ADRES").Range("B10").Value
TextBox36.Text = Sheets("ADRES").Range("B11").Value
TextBox37.Text = Sheets("ADRES").Range("B12").Value
TextBox38.Text = Sheets("ADRES").Range("B13").Value
TextBox39.Text = Sheets("ADRES").Range("B14").Value
TextBox40.Text = Sheets("ADRES").Range("B15").Value
TextBox41.Text = Sheets("ADRES").Range("B16").Value
TextBox42.Text = Sheets("ADRES").Range("B17").Value
TextBox43.Text = Sheets("ADRES").Range("B18").Value
TextBox44.Text = Sheets("ADRES").Range("B19").Value
TextBox45.Text = Sheets("ADRES").Range("B20").Value
TextBox46.Text = Sheets("ADRES").Range("B21").Value
TextBox47.Text = Sheets("ADRES").Range("B22").Value
TextBox48.Text = Sheets("ADRES").Range("B23").Value
TextBox49.Text = Sheets("ADRES").Range("B24").Value
TextBox50.Text = Sheets("ADRES").Range("B25").Value

TextBox51.Text = Sheets("ADRES").Range("C1").Value
TextBox52.Text = Sheets("ADRES").Range("C2").Value
TextBox53.Text = Sheets("ADRES").Range("C3").Value
TextBox54.Text = Sheets("ADRES").Range("C4").Value
TextBox55.Text = Sheets("ADRES").Range("C5").Value
TextBox56.Text = Sheets("ADRES").Range("C6").Value
TextBox57.Text = Sheets("ADRES").Range("C7").Value
TextBox58.Text = Sheets("ADRES").Range("C8").Value
TextBox59.Text = Sheets("ADRES").Range("C9").Value
TextBox60.Text = Sheets("ADRES").Range("C10").Value
TextBox61.Text = Sheets("ADRES").Range("C11").Value
TextBox62.Text = Sheets("ADRES").Range("C12").Value
TextBox63.Text = Sheets("ADRES").Range("C13").Value
TextBox64.Text = Sheets("ADRES").Range("C14").Value
TextBox65.Text = Sheets("ADRES").Range("C15").Value
TextBox66.Text = Sheets("ADRES").Range("C16").Value
TextBox67.Text = Sheets("ADRES").Range("C17").Value
TextBox68.Text = Sheets("ADRES").Range("C18").Value
TextBox69.Text = Sheets("ADRES").Range("C19").Value
TextBox70.Text = Sheets("ADRES").Range("C20").Value
TextBox71.Text = Sheets("ADRES").Range("C21").Value
TextBox72.Text = Sheets("ADRES").Range("C22").Value
TextBox73.Text = Sheets("ADRES").Range("C23").Value
TextBox74.Text = Sheets("ADRES").Range("C24").Value
TextBox75.Text = Sheets("ADRES").Range("C25").Value

TextBox76.Text = Sheets("ADRES").Range("D1").Value
TextBox77.Text = Sheets("ADRES").Range("D2").Value
TextBox78.Text = Sheets("ADRES").Range("D3").Value
TextBox79.Text = Sheets("ADRES").Range("D4").Value
TextBox80.Text = Sheets("ADRES").Range("D5").Value
TextBox81.Text = Sheets("ADRES").Range("D6").Value
TextBox82.Text = Sheets("ADRES").Range("D7").Value
TextBox83.Text = Sheets("ADRES").Range("D8").Value
TextBox84.Text = Sheets("ADRES").Range("D9").Value
TextBox85.Text = Sheets("ADRES").Range("D10").Value
TextBox86.Text = Sheets("ADRES").Range("D11").Value
TextBox87.Text = Sheets("ADRES").Range("D12").Value
TextBox88.Text = Sheets("ADRES").Range("D13").Value
TextBox89.Text = Sheets("ADRES").Range("D14").Value
TextBox90.Text = Sheets("ADRES").Range("D15").Value
TextBox91.Text = Sheets("ADRES").Range("D16").Value
TextBox92.Text = Sheets("ADRES").Range("D17").Value
TextBox93.Text = Sheets("ADRES").Range("D18").Value
TextBox94.Text = Sheets("ADRES").Range("D19").Value
TextBox95.Text = Sheets("ADRES").Range("D20").Value
TextBox96.Text = Sheets("ADRES").Range("D21").Value
TextBox97.Text = Sheets("ADRES").Range("D22").Value
TextBox98.Text = Sheets("ADRES").Range("D23").Value
TextBox99.Text = Sheets("ADRES").Range("D24").Value
TextBox100.Text = Sheets("ADRES").Range("D25").Value

TextBox101.Text = Sheets("ADRES").Range("E1").Value
TextBox102.Text = Sheets("ADRES").Range("E2").Value
TextBox103.Text = Sheets("ADRES").Range("E3").Value
TextBox104.Text = Sheets("ADRES").Range("E4").Value
TextBox105.Text = Sheets("ADRES").Range("E5").Value
TextBox106.Text = Sheets("ADRES").Range("E6").Value
TextBox107.Text = Sheets("ADRES").Range("E7").Value
TextBox108.Text = Sheets("ADRES").Range("E8").Value
TextBox109.Text = Sheets("ADRES").Range("E9").Value
TextBox110.Text = Sheets("ADRES").Range("E10").Value
TextBox111.Text = Sheets("ADRES").Range("E11").Value
TextBox112.Text = Sheets("ADRES").Range("E12").Value
TextBox113.Text = Sheets("ADRES").Range("E13").Value
TextBox114.Text = Sheets("ADRES").Range("E14").Value
TextBox115.Text = Sheets("ADRES").Range("E15").Value
TextBox116.Text = Sheets("ADRES").Range("E16").Value
TextBox117.Text = Sheets("ADRES").Range("E17").Value
TextBox118.Text = Sheets("ADRES").Range("E18").Value
TextBox119.Text = Sheets("ADRES").Range("E19").Value
TextBox120.Text = Sheets("ADRES").Range("E20").Value
TextBox121.Text = Sheets("ADRES").Range("E21").Value
TextBox122.Text = Sheets("ADRES").Range("E22").Value
TextBox123.Text = Sheets("ADRES").Range("E23").Value
TextBox124.Text = Sheets("ADRES").Range("E24").Value
TextBox125.Text = Sheets("ADRES").Range("E25").Value

TextBox126.Text = Sheets("ADRES").Range("F1").Value
TextBox127.Text = Sheets("ADRES").Range("F2").Value
TextBox128.Text = Sheets("ADRES").Range("F3").Value
TextBox129.Text = Sheets("ADRES").Range("F4").Value
TextBox130.Text = Sheets("ADRES").Range("F5").Value
TextBox131.Text = Sheets("ADRES").Range("F6").Value
TextBox132.Text = Sheets("ADRES").Range("F7").Value
TextBox133.Text = Sheets("ADRES").Range("F8").Value
TextBox134.Text = Sheets("ADRES").Range("F9").Value
TextBox135.Text = Sheets("ADRES").Range("F10").Value
TextBox136.Text = Sheets("ADRES").Range("F11").Value
TextBox137.Text = Sheets("ADRES").Range("F12").Value
TextBox138.Text = Sheets("ADRES").Range("F13").Value
TextBox139.Text = Sheets("ADRES").Range("F14").Value
TextBox140.Text = Sheets("ADRES").Range("F15").Value
TextBox141.Text = Sheets("ADRES").Range("F16").Value
TextBox142.Text = Sheets("ADRES").Range("F17").Value
TextBox143.Text = Sheets("ADRES").Range("F18").Value
TextBox144.Text = Sheets("ADRES").Range("F19").Value
TextBox145.Text = Sheets("ADRES").Range("F20").Value
TextBox146.Text = Sheets("ADRES").Range("F21").Value
TextBox147.Text = Sheets("ADRES").Range("F22").Value
TextBox148.Text = Sheets("ADRES").Range("F23").Value
TextBox149.Text = Sheets("ADRES").Range("F24").Value
TextBox150.Text = Sheets("ADRES").Range("F25").Value

TextBox151.Text = Sheets("ADRES").Range("G1").Value
TextBox152.Text = Sheets("ADRES").Range("G2").Value
TextBox153.Text = Sheets("ADRES").Range("G3").Value
TextBox154.Text = Sheets("ADRES").Range("G4").Value
TextBox155.Text = Sheets("ADRES").Range("G5").Value
TextBox156.Text = Sheets("ADRES").Range("G6").Value
TextBox157.Text = Sheets("ADRES").Range("G7").Value
TextBox158.Text = Sheets("ADRES").Range("G8").Value
TextBox159.Text = Sheets("ADRES").Range("G9").Value
TextBox160.Text = Sheets("ADRES").Range("G10").Value
TextBox161.Text = Sheets("ADRES").Range("G11").Value
TextBox162.Text = Sheets("ADRES").Range("G12").Value
TextBox163.Text = Sheets("ADRES").Range("G13").Value
TextBox164.Text = Sheets("ADRES").Range("G14").Value
TextBox165.Text = Sheets("ADRES").Range("G15").Value
TextBox166.Text = Sheets("ADRES").Range("G16").Value
TextBox167.Text = Sheets("ADRES").Range("G17").Value
TextBox168.Text = Sheets("ADRES").Range("G18").Value
TextBox169.Text = Sheets("ADRES").Range("G19").Value
TextBox170.Text = Sheets("ADRES").Range("G20").Value
TextBox171.Text = Sheets("ADRES").Range("G21").Value
TextBox172.Text = Sheets("ADRES").Range("G22").Value
TextBox173.Text = Sheets("ADRES").Range("G23").Value
TextBox174.Text = Sheets("ADRES").Range("G24").Value
TextBox175.Text = Sheets("ADRES").Range("G25").Value

TextBox176.Text = Sheets("ADRES").Range("H1").Value
TextBox177.Text = Sheets("ADRES").Range("H2").Value
TextBox178.Text = Sheets("ADRES").Range("H3").Value
TextBox179.Text = Sheets("ADRES").Range("H4").Value
TextBox180.Text = Sheets("ADRES").Range("H5").Value
TextBox181.Text = Sheets("ADRES").Range("H6").Value
TextBox182.Text = Sheets("ADRES").Range("H7").Value
TextBox183.Text = Sheets("ADRES").Range("H8").Value
TextBox184.Text = Sheets("ADRES").Range("H9").Value
TextBox185.Text = Sheets("ADRES").Range("H10").Value
TextBox186.Text = Sheets("ADRES").Range("H11").Value
TextBox187.Text = Sheets("ADRES").Range("H12").Value
TextBox188.Text = Sheets("ADRES").Range("H13").Value
TextBox189.Text = Sheets("ADRES").Range("H14").Value
TextBox190.Text = Sheets("ADRES").Range("H15").Value
TextBox191.Text = Sheets("ADRES").Range("H16").Value
TextBox192.Text = Sheets("ADRES").Range("H17").Value
TextBox193.Text = Sheets("ADRES").Range("H18").Value
TextBox194.Text = Sheets("ADRES").Range("H19").Value
TextBox195.Text = Sheets("ADRES").Range("H20").Value
TextBox196.Text = Sheets("ADRES").Range("H21").Value
TextBox197.Text = Sheets("ADRES").Range("H22").Value
TextBox198.Text = Sheets("ADRES").Range("H23").Value
TextBox199.Text = Sheets("ADRES").Range("H24").Value
TextBox200.Text = Sheets("ADRES").Range("H25").Value

TextBox201.Text = Sheets("ADRES").Range("I1").Value
TextBox202.Text = Sheets("ADRES").Range("I2").Value
TextBox203.Text = Sheets("ADRES").Range("I3").Value
TextBox204.Text = Sheets("ADRES").Range("I4").Value
TextBox205.Text = Sheets("ADRES").Range("I5").Value
TextBox206.Text = Sheets("ADRES").Range("I6").Value
TextBox207.Text = Sheets("ADRES").Range("I7").Value
TextBox208.Text = Sheets("ADRES").Range("I8").Value
TextBox209.Text = Sheets("ADRES").Range("I9").Value
TextBox210.Text = Sheets("ADRES").Range("I10").Value
TextBox211.Text = Sheets("ADRES").Range("I11").Value
TextBox212.Text = Sheets("ADRES").Range("I12").Value
TextBox213.Text = Sheets("ADRES").Range("I13").Value
TextBox214.Text = Sheets("ADRES").Range("I14").Value
TextBox215.Text = Sheets("ADRES").Range("I15").Value
TextBox216.Text = Sheets("ADRES").Range("I16").Value
TextBox217.Text = Sheets("ADRES").Range("I17").Value
TextBox218.Text = Sheets("ADRES").Range("I18").Value
TextBox219.Text = Sheets("ADRES").Range("I19").Value
TextBox220.Text = Sheets("ADRES").Range("I20").Value
TextBox221.Text = Sheets("ADRES").Range("I21").Value
TextBox222.Text = Sheets("ADRES").Range("I22").Value
TextBox223.Text = Sheets("ADRES").Range("I23").Value
TextBox224.Text = Sheets("ADRES").Range("I24").Value
TextBox225.Text = Sheets("ADRES").Range("I25").Value

TextBox226.Text = Sheets("ADRES").Range("J1").Value
TextBox227.Text = Sheets("ADRES").Range("J2").Value
TextBox228.Text = Sheets("ADRES").Range("J3").Value
TextBox229.Text = Sheets("ADRES").Range("J4").Value
TextBox230.Text = Sheets("ADRES").Range("J5").Value
TextBox231.Text = Sheets("ADRES").Range("J6").Value
TextBox232.Text = Sheets("ADRES").Range("J7").Value
TextBox233.Text = Sheets("ADRES").Range("J8").Value
TextBox234.Text = Sheets("ADRES").Range("J9").Value
TextBox235.Text = Sheets("ADRES").Range("J10").Value
TextBox236.Text = Sheets("ADRES").Range("J11").Value
TextBox237.Text = Sheets("ADRES").Range("J12").Value
TextBox238.Text = Sheets("ADRES").Range("J13").Value
TextBox239.Text = Sheets("ADRES").Range("J14").Value
TextBox240.Text = Sheets("ADRES").Range("J15").Value
TextBox241.Text = Sheets("ADRES").Range("J16").Value
TextBox242.Text = Sheets("ADRES").Range("J17").Value
TextBox243.Text = Sheets("ADRES").Range("J18").Value
TextBox244.Text = Sheets("ADRES").Range("J19").Value
TextBox245.Text = Sheets("ADRES").Range("J20").Value
TextBox246.Text = Sheets("ADRES").Range("J21").Value
TextBox247.Text = Sheets("ADRES").Range("J22").Value
TextBox248.Text = Sheets("ADRES").Range("J23").Value
TextBox249.Text = Sheets("ADRES").Range("J24").Value
TextBox250.Text = Sheets("ADRES").Range("J25").Value

End Sub

Greenblacksea53 · 13 Haziran 2022

f

C++:

sor = MsgBox(" Veriler yazılacak.", vbYesNo, "Excel")
If sor = vbNo Then
Exit Sub
Else
          
TextBox1.Text = Sheets("Sayfa1").Range("A1").Value
TextBox2.Text = Sheets("Sayfa1").Range("A2").Value
TextBox3.Text = Sheets("Sayfa1").Range("A3").Value
TextBox4.Text = Sheets("Sayfa1").Range("A4").Value
TextBox5.Text = Sheets("Sayfa1").Range("A5").Value
TextBox6.Text = Sheets("Sayfa1").Range("A6").Value
TextBox7.Text = Sheets("Sayfa1").Range("A7").Value
TextBox8.Text = Sheets("Sayfa1").Range("A8").Value
TextBox9.Text = Sheets("Sayfa1").Range("A9").Value
TextBox10.Text = Sheets("Sayfa1").Range("A10").Value
                      

End If

Bu şekilde yaparsan uyarı gelir

TiOr · 13 Haziran 2022

@Greenblacksea53
Hocam Teşekkür ederim sorun çözüldü...
Elinize sağlık, hayırlı akşamlar.

Greenblacksea53 · 13 Haziran 2022

C++:

sor = MsgBox(" Veriler yazılacak.", vbYesNo, "Excel")
If sor = vbNo Then
Exit Sub
Else
For i = 1 To 250
Controls("TextBox" & i) = Sheets("Sayfa1").Range("A" & i).Value
Next i
End If

Textbox'ları da döngü ile doldurdum. Kendinize göre uyarlarsınız

askm · 13 Haziran 2022

Aşağıdaki şekilde yazarsanız tüm textboxlar dolar

Kod:

sor = MsgBox(" Veriler yazılacak.", vbYesNo, "Excel")
If sor = vbNo Then
Exit Sub
Else
y = 1
For i = 1 To 250
    For a = 1 To 25
        Controls("TextBox" & i) = Sheets("Sayfa1").Cells(a, y).Value
    Next y
    y = y + 1
Next i
End If

Haluk · 13 Haziran 2022

Ne kadar çok ActiveX kontrol var ..... Excel, Excel olalı böyle zulüm görmemiştir

.

TiOr · 13 Haziran 2022

@Haluk Hocam,
Acemi işleri diyelim idare edin

Sonuç ta sorunsuz çalışıyor ama.
Siz birde dosyanın kendisini görseniz uzaya füzemi göndereceksin dersiniz

TiOr · 13 Haziran 2022

askm' Alıntı:
Aşağıdaki şekilde yazarsanız tüm textboxlar dolar

Kod:

sor = MsgBox(" Veriler yazılacak.", vbYesNo, "Excel") If sor = vbNo Then Exit Sub Else y = 1 For i = 1 To 250 For a = 1 To 25 Controls("TextBox" & i) = Sheets("Sayfa1").Cells(a, y).Value Next y y = y + 1 Next i End If

@askm Hocam yarın ilk işim dosyamı bu bilgiyle revize etmek olacak. Kendi kendimize çin işkencesi yapmışız. Teşekkürler bilgi için.

TiOr · 13 Haziran 2022

Greenblacksea53' Alıntı:
C++:

sor = MsgBox(" Veriler yazılacak.", vbYesNo, "Excel") If sor = vbNo Then Exit Sub Else For i = 1 To 250 Controls("TextBox" & i) = Sheets("Sayfa1").Range("A" & i).Value Next i End If

Textbox'ları da döngü ile doldurdum. Kendinize göre uyarlarsınız

@Greenblacksea53 hocam teşekkürler desteğiniz için.

MsgBox Uyarısı hk,

TiOr

Greenblacksea53

TiOr

Greenblacksea53

askm

Destek Ekibi

Haluk

Özel Üye

TiOr

TiOr

TiOr