sayfa3 a sütununu combobox1 e listelemek

feraset045 · 24 Ekim 2007

userform üzerinde ve frame içinde bulunan bir combobox'ın propertysinde list bölümü yok (vb 6.0 da var ) onun için ben combobox listesine bir türlü isim ekleyemedim combobox1.additem ile denedim combobox1.list ile denedim bir türlü beceremedim acaba direkt sayfa3 a3.a25 aralığını combobox1 in listesine atayabilirmiyiz

Seyit Tiken · 24 Ekim 2007

Kod:

Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "sayfa3!a3:a25"
End Sub

Gibi deneyiniz.

feraset045 · 24 Ekim 2007

çok teşekkürler seyit tiken usta pek güzel olmuş biraz ayıp olacak ama bu listeden seçtiğimiz ismi sayfa2 b7 ye atayabilirmiyiz

Fuat Şirin · 24 Ekim 2007

dosya ekte

isteğinize göre bir çalışma yaptım ektedir

HTML:

Private Sub CommandButton1_Click()
[SAYFA2!B7] = ComboBox1.Text
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "sayfa3!a3:a25"
End Sub

feraset045 · 24 Ekim 2007

hata veriyor

ben userform1 de bulunan bir buton ile userform2.show kodu ile userform'u açıyorum userform2nin initialize bölümüne bunu ilk yapıştırdığımda çalışıyor çıkıp tekrar girdiğimde (yani userform1 deki komut düğmesine bastığımda userform2.show sarı yanıyor f8 ile ilerlediğimde userform initialize bölümünde yazılan kod yani (UserForm2.ComboBox1.RowSource = "sayfa3!a3:a25")sarı yanıyor ve run time 380
coult not set the Rowsource property.invalid property value yazıyor saygılar

Fuat Şirin · 24 Ekim 2007

Dosyanız başka dosya ile bağlantılı olduğundan hata veriyor
ama sorunuzun şekli şöle olması lazım
userform2 yi açan buton a

unload userform1
userform2.show

şeklinde yapmanız lazım

userform2 den de userform1 i çalıştırmak için
unload userform2
userform1.show

demeniz gerekir

Fuat Şirin · 24 Ekim 2007

(UserForm2.ComboBox1.RowSource = "sayfa3!a3:a25")

bu koduda neden kullandığınızı anlamadım
sizin yapmanız gerek bu kodu
userform2 nin
Initialize olayına

ComboBox1.RowSource = "sayfa3!a3:a25"
bu kod sizin için yeterli

feraset045 · 24 Ekim 2007

aynı hataları veriyor

parlemenn' Alıntı:
(UserForm2.ComboBox1.RowSource = "sayfa3!a3:a25")

bu koduda neden kullandığınızı anlamadım
sizin yapmanız gerek bu kodu
userform2 nin
Initialize olayına

ComboBox1.RowSource = "sayfa3!a3:a25"
bu kod sizin için yeterli

parlemen usta dediğini aynen yaptım userform1.unload userform2.show
dedim olmadı userform.hide userform2.show dedim olmadı yani userform2 nin initialize olayı ne ise o kodu yapıştırdığım anda hata veriyor(yani şu kodu ComboBox1.RowSource = "sayfa3!a3:a25) eğer olmuyorsa benim bu listeyi başka yöntem ile (hata vermiyen) combobox a liste yaptırmam mümkün mü bunu ve diğer combo ları o şekilde listelesem

Fuat Şirin · 24 Ekim 2007

ComboBox1.RowSource = "sayfa3!a3:a25"
Bu şekilde dene
sonunda ) işreti yerine " olması lazım

Fuat Şirin · 24 Ekim 2007

bana sadece kodlarını kopyalayıp
yollar mısın
muhtemelen yanlış yere yazıyorsun bu kodları

feraset045 · 24 Ekim 2007

usta zaten örnekte kodlar vardı ama ben yinede ekliyorum

şimdi benim pc de doğrudan temin yazan çalışma kitabı masa üstünde diğerleri D: dizininde rardan çıkarıp doğrudan temin yazan kitabı masa üstüne diğerleri de D: dizinine kopyalarsan muhtemelen olur (bu arada bilgisayar ismini değiştirmen lazım belki oda etkileyebilir ) kodlarına bakarsan anlarsın zaten bende açmıyor

Fuat Şirin · 24 Ekim 2007

bu şekilde deneyin

kardeş
1
combox1 olarak alıyoruz ama sen hangi comboda kullanıyorsun belli değil
bir de sorununu tam sölemiyorsun..ü
ne olduğunu anlamakta güçlük çekiyoruz...

bu şekilde kodları aynen yapıştır

userform1 deki kodları sil komple
bunları yapıştır..

HTML:

Option Explicit

Private Declare Function ShowWindow _
    Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal nCmdShow As Long) _
As Long
'//
Private Declare Function SendMessage _
    Lib "user32" _
    Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
As Long

'// Not needed for this ... but if you wanted to
'// you could extract your own.
Private Declare Function ExtractIcon _
    Lib "shell32.dll" _
    Alias "ExtractIconA" ( _
    ByVal hInst As Long, _
    ByVal lpszExeFileName As String, _
    ByVal nIconIndex As Long) _
As Long

'// Define the API's for menu's
Private Declare Function GetWindowLong _
    Lib "user32" _
        Alias "GetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long) _
As Long

Private Declare Function SetWindowLong _
    Lib "user32" _
        Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) _
As Long

Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function DrawMenuBar _
    Lib "user32" ( _
        ByVal hwnd As Long) _
As Long

Private Declare Function FindWindowA _
    Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) _
As Long

'// Icon constants
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&


Private Const GWL_EXSTYLE = (-20)              '// Extended Styles
Private Const GWL_STYLE As Long = (-16)        '// Sets a new window style

'// General Windows Styles Bits
Private Const WS_EX_APPWINDOW = &H40000        '// Sets Min Form to task bar
Private Const WS_SYSMENU As Long = &H80000     '// WinStyle Sys Menu
Private Const WS_MINIMIZEBOX As Long = &H20000 '// WinStyle_MaxButton
Private Const WS_MAXIMIZEBOX As Long = &H10000 '// WinStyle_MinButton
Private Const WS_POPUP As Long = &H80000000

Private Const SW_MAXIMIZE As Long = 3

Dim lFrmWndHdl As Long
Dim lStyle As Long
Dim hIcon As Long
Dim blnWinTbar As Boolean

Private Sub UserForm_Activate()
'// ==============================================//
'//  Adds Min/Max to Userform Window              //
'//  Modifications & comments by Ivan F Moala     //
'//  22/07/01                                     //
'//  Amended 9th May 2002 idea from Mark O'Brian  //
'//  FindwindowA use VBnull instead of ClassName  //
'//  negates having to get the class name!        //
'//                                               //
'//  06/09/2003: NB: Set Form to [Modal False]    //
'//  To fix this Tmp done                         //
'//  Really need to use the                       //
'//  WS_POPUP                                     //
'//  Hex 80000000                                 //
'// ==============================================//

''// We need this as it does not work with it set
'blnWinTbar = Application.ShowWindowsInTaskbar
'Application.ShowWindowsInTaskbar = False

lFrmWndHdl = FindWindowA(vbNullString, Me.Caption)

'// The GetWindowLong function retrieves information about the window.
'// The function also retrieves the 32-bit (long) value
'// into the extra window memory of a window.
lStyle = GetWindowLong(lFrmWndHdl, GWL_STYLE)

'// lStyle is the New window style so lets set it up with the following
lStyle = lStyle Or WS_SYSMENU                   '// SystemMenu
'lStyle = lStyle Or WS_MINIMIZEBOX               '// With MinimizeBox
'lStyle = lStyle Or WS_POPUP Or WS_MAXIMIZEBOX   '// and MaximizeBox

'// Now lets set up our New window the SetWindowLong function changes
'// the attributes of the specified window , given as lFrmWndHdl,
'// GWL_STYLE = New windows style, and our Newly defined style = lStyle
SetWindowLong lFrmWndHdl, GWL_STYLE, (lStyle)

lStyle = GetWindowLong(lFrmWndHdl, GWL_EXSTYLE)
lStyle = lStyle Or WS_EX_APPWINDOW

'// Set the extended window style
SetWindowLong lFrmWndHdl, GWL_EXSTYLE, lStyle
    

'// Set Icon to Userform Window
'hIcon = Image1.Picture.Handle
'Call SendMessage(lFrmWndHdl, WM_SETICON, ICON_SMALL, ByVal hIcon)
'Call SendMessage(lFrmWndHdl, WM_SETICON, ICON_BIG, ByVal hIcon)

'// The DrawMenuBar function redraws the menu bar of the specified window.
'// We need this as we have changed the menu bar after Windows has created it.
'// All we need is the Handle, so thats simply enougth
'DrawMenuBar lFrmWndHdl

'// Maximize UF
ShowWindow lFrmWndHdl, 3
'// Need to set this to make the Form Take
'AppActivate ("Microsoft excel")
'SetFocus lFrmWndHdl

End Sub
Private Sub CommandButton1_Click()
Workbooks.Open ("D:\İzinli Personel.xls")
Me.Hide
Unload UserForm1
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
Workbooks.Open ("D:\İzinli Personel.xls")
Workbooks.Open ("D:\DOGRUDAN TEMİN\Hizmet Alımı.xls")
Me.Hide
End Sub
Private Sub CommandButton3_Click()
Workbooks.Open ("D:\İzinli Personel.xls")
Workbooks.Open ("D:\DOĞRUDAN TEMİN KAYITLAR\DOĞRUDAN TEMİN MAL\740-10 TIBBİ MALZEME ALIM GİDERLERİ\İyileştirici Nitelikte Ortopedi Sarf Malzemesi Alımı (Hacettepe Ortopedi,ilizarov External set(Kamil ÖNER).xls")
Me.Hide
End Sub
















Private Sub Frame1_Click()

End Sub

Private Sub IeTimer1_Timer()

Label1.Caption = "82.YIL DEVLET HASTANESİ DOĞRUDAN TEMİN PROGRAMI"
Label1.Font.Size = 14
Label1.Font.Bold = True
End Sub

Private Sub IeTimer2_Timer()
Label2.BackColor = QBColor(3)
Label2.ForeColor = vbYellow
Label2.Font.Size = 12
If Label2.Visible = True Then
Label2.Visible = False
Else
Label2.Visible = True
End If
Static t As Integer
Dim m As String
t = t + 1
m = "DeSiGnEd By HüSeYiN "
Label2.Caption = Label2.Caption & Mid(m, t, 1)

If t = Len(m) Then
t = 0
Label2.Caption = m
Label2.Font.Bold = True
IeTimer2.Enabled = False
End If
End Sub
 
Private Sub IeTimer5_Timer()
Dim donus
donus = Image1.BorderColor
donus = vbGreen

End Sub

Private Sub Label3_Click()
USE
End Sub

Private Sub UserForm_Initialize()

End Sub

Private Sub IeTimer3_Timer()
UserForm1.Caption = Mid(UserForm1.Caption, 2, Len(UserForm1.Caption) - 1) & Left(UserForm1.Caption, 1)

End Sub


Private Sub IeTimer4_Timer()
 
Label1.Font.Size = 32
Label1.Font.Bold = True
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1)
Label1.Visible = True

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub



Private Sub UserForm_Click()

End Sub

userform2 dekileride sil komple ve bunları yapıştır ve kaç numaralı combox ı kullanıyorsan yaz buraya

HTML:

Option Explicit

Private Declare Function ShowWindow _
    Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal nCmdShow As Long) _
As Long
'//
Private Declare Function SendMessage _
    Lib "user32" _
    Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
As Long

'// Not needed for this ... but if you wanted to
'// you could extract your own.
Private Declare Function ExtractIcon _
    Lib "shell32.dll" _
    Alias "ExtractIconA" ( _
    ByVal hInst As Long, _
    ByVal lpszExeFileName As String, _
    ByVal nIconIndex As Long) _
As Long

'// Define the API's for menu's
Private Declare Function GetWindowLong _
    Lib "user32" _
        Alias "GetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long) _
As Long

Private Declare Function SetWindowLong _
    Lib "user32" _
        Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) _
As Long

Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function DrawMenuBar _
    Lib "user32" ( _
        ByVal hwnd As Long) _
As Long

Private Declare Function FindWindowA _
    Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) _
As Long

'// Icon constants
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&


Private Const GWL_EXSTYLE = (-20)              '// Extended Styles
Private Const GWL_STYLE As Long = (-16)        '// Sets a new window style

'// General Windows Styles Bits
Private Const WS_EX_APPWINDOW = &H40000        '// Sets Min Form to task bar
Private Const WS_SYSMENU As Long = &H80000     '// WinStyle Sys Menu
Private Const WS_MINIMIZEBOX As Long = &H20000 '// WinStyle_MaxButton
Private Const WS_MAXIMIZEBOX As Long = &H10000 '// WinStyle_MinButton
Private Const WS_POPUP As Long = &H80000000

Private Const SW_MAXIMIZE As Long = 3

Dim lFrmWndHdl As Long
Dim lStyle As Long
Dim hIcon As Long
Dim blnWinTbar As Boolean
Private Sub CommandButton10_Click()
Dim x, i
For x = 2 To 5
i = InputBox("FİRMA ADI GİRİN", "TEKLİF VEREN FİRMALAR ")
Cells(10, x).Value = i
Next
End Sub

Private Sub CommandButton21_Click()

End Sub

Private Sub CommandButton27_Click()

End Sub

Private Sub CommandButton39_Click()

Me.Hide
Workbooks.Open ("D:\TASINIR KOD LİSTESİ.xls")
Workbooks.Open ("D:\DOGRUDAN TEMİN\Mal Alımı.xls")

End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub DTPicker1_CloseUp()
Sayfa2.Cells(6, 2).Value = DTPicker1
End Sub

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub DTPicker2_Change()

End Sub

Private Sub DTPicker2_KeyPress(KeyAscii As Integer)
CommandButton17.Caption = DTPicker2.Value & (" Tarihinde Düzenleyen")
CommandButton18.Caption = DTPicker2.Value & (" Tarihinde Harc. Yet.")
End Sub
Private Sub IeTimer1_Timer()
UserForm2.Caption = Mid(UserForm2.Caption, 2, Len(UserForm2.Caption) - 1) & Left(UserForm2.Caption, 1)

End Sub


Private Sub Frame1_Click()

End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Sayfa2.Cells(4, 2).Value = TextBox1.Text
End Sub

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Sayfa2.Cells(5, 2).Value = TextBox2.Text
End Sub

Private Sub UserForm_Activate()
'// ==============================================//
'//  Adds Min/Max to Userform Window              //
'//  Modifications & comments by Ivan F Moala     //
'//  22/07/01                                     //
'//  Amended 9th May 2002 idea from Mark O'Brian  //
'//  FindwindowA use VBnull instead of ClassName  //
'//  negates having to get the class name!        //
'//                                               //
'//  06/09/2003: NB: Set Form to [Modal False]    //
'//  To fix this Tmp done                         //
'//  Really need to use the                       //
'//  WS_POPUP                                     //
'//  Hex 80000000                                 //
'// ==============================================//

''// We need this as it does not work with it set
'blnWinTbar = Application.ShowWindowsInTaskbar
'Application.ShowWindowsInTaskbar = False

lFrmWndHdl = FindWindowA(vbNullString, Me.Caption)

'// The GetWindowLong function retrieves information about the window.
'// The function also retrieves the 32-bit (long) value
'// into the extra window memory of a window.
lStyle = GetWindowLong(lFrmWndHdl, GWL_STYLE)

'// lStyle is the New window style so lets set it up with the following
lStyle = lStyle Or WS_SYSMENU                   '// SystemMenu
'lStyle = lStyle Or WS_MINIMIZEBOX               '// With MinimizeBox
'lStyle = lStyle Or WS_POPUP Or WS_MAXIMIZEBOX   '// and MaximizeBox

'// Now lets set up our New window the SetWindowLong function changes
'// the attributes of the specified window , given as lFrmWndHdl,
'// GWL_STYLE = New windows style, and our Newly defined style = lStyle
SetWindowLong lFrmWndHdl, GWL_STYLE, (lStyle)

lStyle = GetWindowLong(lFrmWndHdl, GWL_EXSTYLE)
lStyle = lStyle Or WS_EX_APPWINDOW

'// Set the extended window style
SetWindowLong lFrmWndHdl, GWL_EXSTYLE, lStyle
    

'// Set Icon to Userform Window
'hIcon = Image1.Picture.Handle
'Call SendMessage(lFrmWndHdl, WM_SETICON, ICON_SMALL, ByVal hIcon)
'Call SendMessage(lFrmWndHdl, WM_SETICON, ICON_BIG, ByVal hIcon)

'// The DrawMenuBar function redraws the menu bar of the specified window.
'// We need this as we have changed the menu bar after Windows has created it.
'// All we need is the Handle, so thats simply enougth
'DrawMenuBar lFrmWndHdl

'// Maximize UF
ShowWindow lFrmWndHdl, 3
'// Need to set this to make the Form Take
'AppActivate ("Microsoft excel")
'SetFocus lFrmWndHdl

End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa3!a3:a25"
End Sub

feraset045 · 24 Ekim 2007

tabiki userform2 de bulunan combobox1 (propery de aynen böyle yazıyor) ben de şaştım usta nasıl hata veriyor dediğinizi yaptım ilk girişte oluyor ama çıkıp kaydedip tekrar girince aynı yerlerde aynı hatalar neyse ya usta boşver yinede ilgilendiğin için teşekkürler önemli değil , eğer varsa bunun başka yöntemi yani combobox ın listesine ekleme(isim,kayıt,say&#305

mümkünse o şekil yapmaya çalışayım

Fuat Şirin · 24 Ekim 2007

bence siz bu yaptığınız uygulamadan tamamen vazgeçin
en baştan sıfırdan yeni bir uygulama ile başlayın
en başta başka dosyaya bağlamayın
kapalı dosya uygulamarı var bunları deneyin
En doğrusunu sölemek gerekirse kod işine en baştan başlayın...
Size acil lazım olabilir ama ilerde sıkıntı çekmek istemiyorsanız
biraz kurcalamayı deneyin kodları...

hsayar · 9 Eylül 2008

feraset045' Alıntı:
tabiki userform2 de bulunan combobox1 (propery de aynen böyle yazıyor) ben de şaştım usta nasıl hata veriyor dediğinizi yaptım ilk girişte oluyor ama çıkıp kaydedip tekrar girince aynı yerlerde aynı hatalar neyse ya usta boşver yinede ilgilendiğin için teşekkürler önemli değil , eğer varsa bunun başka yöntemi yani combobox ın listesine ekleme(isim,kayıt,sayı)mümkünse o şekil yapmaya çalışayım

benim bildiğim kendi kodları büyük/küçük harf duyarlı idi geçmişte benimde başıma geldi ComboBox1 şeklinde deneyiniz...

sayfa3 a sütununu combobox1 e listelemek

Uzman