Excell hücresindeki veriyi form üzerine alamıyorum

[ferhatgurbuz]

Ekteki dosyada excel sayfasındaki verileri form üzerine alırken K sütününda bulunan hücredeki verinin tamamı gözükmüyor.


Kolay gelsin teşekkürler

 

[Erdem Akdemir]

yanlış anlamayın ama kullanmış olduğunuz userform'un faydasını anlayabilmiş değilim, sadece arayüz olmuş.

 

[ferhatgurbuz]

şuan daha başlangıç aşamasındayım farklı şeyler düşünüyorum o yüzden

 

[ozgretmen]

K11 hücresindeki biçimlendirmeyi , isteğe uyarlanmıştan 0 yapın.Ve K11 e aşağıdaki formülü yazın.

=EĞER(B11="";"";BİRLEŞTİR(A1-G11;" Gün Oldu."))

L11 hücresinede aşağıdaki formülü yazınız.

=EĞER(B11="";"";EĞER(G11="";"Tebligatı gelmedi";EĞER(K11>J11;"Süre Doldu Dosya Gönderilebilir";J11-SOLDAN(K11;2)&" Gün Kaldı.")))

 

[ferhatgurbuz]

Teşekkür ederim. Kolay gelsin. Hayırlı çalışmalar

 

[ozgretmen]

Teşekkür ederim. Kolay gelsin. Hayırlı çalışmalar

İyi çalışmalar dilerim...

 

[baka]

Aşağıdaki kodları kendine uyarlıyarak denermisin ..

****************************************
Private Sub cmdgcagir_Click()
Sheets("GEMİ DATA").Select
If txtfbl.Value = "" Then
MsgBox " LÜTFEN GEÇERLİ NO GİRİNİZ"
Exit Sub
End If
Set fblno = Range("b2:b500").Find(txtfbl.Value, SearchDirection:=xlNext, MatchCase:=False)
If fblno Is Nothing Then
MsgBox " ARADIĞIN NUMARA BULUNAMADI"
Exit Sub
End If
ilksatir = fblno.Row
Set fblno = Range("b2:b500").FindPrevious(Range("b500"))
sonsatir = fblno.Row
Set fblno = Range(Cells(ilksatir, 2), Cells(sonsatir, 2)).Find(txtfbl.Value, SearchDirection:=xlNext, MatchCase:=False)

'txtfbl.Value = Cells(ilksatir, 2).Value ' BURAYI TEKRAR SİLMEK GEREKBİLİR
txttrh.Value = Cells(ilksatir, 3).Value
txtfirm.Value = Cells(ilksatir, 4).Value
txtkim.Value = Cells(ilksatir, 5).Value
cbgemi.Value = Cells(ilksatir, 6).Value
txtsefer.Value = Cells(ilksatir, 7).Value
txtbayrak.Value = Cells(ilksatir, 8).Value
txtbeyact.Value = Cells(ilksatir, 9).Value
txtklim.Value = Cells(ilksatir, 10).Value
txtkontyeri.Value = Cells(ilksatir, 11).Value
txtkontar.Value = Cells(ilksatir, 12).Value
txtgümrük.Value = Cells(ilksatir, 13).Value
txtkon1.Value = Cells(ilksatir, 14).Value
txtkon2.Value = Cells(ilksatir, 15).Value
txtsorum.Value = Cells(ilksatir, 16).Value
txtçıkact.Value = Cells(ilksatir, 17).Value


fblno.Select ' çağırdınız veriye ait olan satırdaki fblno hücresini seçmek için
End Sub