GursoyC
Altın Üye
- Katılım
- 7 Ocak 2015
- Mesajlar
- 558
- Excel Vers. ve Dili
- Office 2024 Türkçe
Merhaba,
Bir makroyu çalıştıracak düğmeye tıkladığımda başka bir makronun içeriğini değiştirmek istiyorum.
Şu şekilde bir makrom var:
Sub SayfaKopyala()
Dim sh As Worksheet
Set sh = Sheets(ActiveSheet.Name)
Application.DisplayAlerts = False
sh.Copy After:=Sheets(sh.Name)
ActiveSheet.Name = Val(sh.Name) + 1
End Sub
Bu makroyu çalıştırma düğmeme bastığımda diğer sayfaya attığı aşağıda yazdığım makromda combobox'taki sheet'i 1 sayı artırmasını istiyorum. Mümkün müdür, yardımcı olur musunuz?
Sorunu açıklayıcı örnek dosyalarımı da ekledim.
Saygılarımla.
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
Sheet17.ComboBox31.ListFillRange = ""
'Range("A:A").ClearContents
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & _
"\müşteri_kayıtları_V1.1.xlsm;extended properties=""excel 12.0;hdr=no"""
rs.Open "select * from[müşteri_listesi$j2:j20000];", conn, 1, 1
If rs.RecordCount > 0 Then
Sheet17.ComboBox31.Column = rs.getrows
Sheet17.ComboBox31.ListIndex = 0
End If
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
MsgBox "Veriler Güncellendi!" & vbLf & "İŞLEMİNİZE DEVAM EDEBİLİRSİNİZ"
Bir makroyu çalıştıracak düğmeye tıkladığımda başka bir makronun içeriğini değiştirmek istiyorum.
Şu şekilde bir makrom var:
Sub SayfaKopyala()
Dim sh As Worksheet
Set sh = Sheets(ActiveSheet.Name)
Application.DisplayAlerts = False
sh.Copy After:=Sheets(sh.Name)
ActiveSheet.Name = Val(sh.Name) + 1
End Sub
Bu makroyu çalıştırma düğmeme bastığımda diğer sayfaya attığı aşağıda yazdığım makromda combobox'taki sheet'i 1 sayı artırmasını istiyorum. Mümkün müdür, yardımcı olur musunuz?
Sorunu açıklayıcı örnek dosyalarımı da ekledim.
Saygılarımla.
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
Sheet17.ComboBox31.ListFillRange = ""
'Range("A:A").ClearContents
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & _
"\müşteri_kayıtları_V1.1.xlsm;extended properties=""excel 12.0;hdr=no"""
rs.Open "select * from[müşteri_listesi$j2:j20000];", conn, 1, 1
If rs.RecordCount > 0 Then
Sheet17.ComboBox31.Column = rs.getrows
Sheet17.ComboBox31.ListIndex = 0
End If
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
MsgBox "Veriler Güncellendi!" & vbLf & "İŞLEMİNİZE DEVAM EDEBİLİRSİNİZ"