userform şartlı veri alma

[muratozmenler]

exceli açtığımızda karşımıza çıkan userform üzerinde yapılan işlere tıkladığımızda
ANA adlı sayfadan sarı olan ve olucak olan bilgileri gerekli userform4 te gerekli yerlere
kalan işlere tıkladığımızda aynı şekil ANA adlı sayfadaki kırmızı renkli bilgileri almasını ve userform5 te gerekli bilgileri göstermesi........

 

[muratozmenler]

yardımcı olması açısından yolluyorum..

Private Sub CommandButton2_Click()
Sheets("ana").Select
ListBox1.ColumnCount = 3
y = 0
For X = 1 To 10
If Cells(X, 2).Value = Date Then
isadi = Cells(X, 4).Value
merkez = Cells(X, 3).Value
ListBox1.AddItem y + 1
ListBox1.List(y, 1) = merkez
ListBox1.List(y, 2) = isadi
y = y + 1
End If
Next
end sub

userformda bulunan listbox1 te bugünün tarihi yazmakta ve buna göre veri almaktadir ayrıca
exceli açtığımızda karşımıza çıkan userform üzerinde yapılan işlere tıkladığımızda
ANA adlı sayfadan sarı olan ve olucak olan bilgileri userform4 te gerekli yerlere
kalan işlere tıkladığımızda aynı şekil ANA adlı sayfadaki kırmızı renkli bilgileri almasını ve userform5 te gerekli bilgileri göstermesi........

 

[S.Yiğit]

Merhaba,

Sn muratozmenler söylemezsem çatlarım

15 konu açmışsınız 48 mesajınız var ama hiç birinde bir selam bir merhaba yok:hihoho:

 

[muratozmenler]

selam .....
sayın serkan yiğit uyarın için teşekkür ederim ....
buna dikkat etmemiştim haklısın hep teşekkür hep teşekkür dimi....!!!!
af ola selamsız bir konu açarsam boş ola....
saygılar dikkatin için teşşekürler....

 

[muratozmenler]

merhabalar
sayın üstadlar yardımlarınızı beklemekteyim....!!

 

[muratozmenler]

herkeze hayırlı akşamlar diler selamlarımı iletirim....
yardım edebilecek yok mu üstatlar..?

 

[muratozmenler]

ListBox1.ColumnCount = 3
y = 0
For X = 1 To 65536
If Cells(X, 2).Interior.ColorIndex = 6 Then

isadi = Cells(X, 4).Value
merkez = Cells(X, 3).Value
ListBox1.AddItem y + 1
ListBox1.List(y, 1) = merkez
ListBox1.List(y, 2) = isadi
y = y + 1
End If
Next
sarı renkli veriyi almak için kodu buldum yinede teşşekürler payşalım olsun