İŞ EMRİ 2

[muhammethezer]

Merhaba yine ben az önce yazmış olduğum sorumda gerkli atamaların form üzerinde bulunacağı yerleri blirtmemiştim.Birde sayfa üzerin de bulunacak bir temizle butnu ile ikinci işleme geçmeden "HÜCRELERİ TEMİZLEYİN" mesajı nasıl verebilirim.Teşekkür ederim.

 

[Metin Karaağaç]

Sorunuz bir önceki konu başlığının devamı ise neden ayrı bir başlık açtınız?
Benim gibi foruma şimdi giren biri sorunuzu arayıp bulsun mu istiyorsunuz?

 

[muhammethezer]

iş emri

haklısınız acemilik özür dilerim .yardımlarınız için teşekküre ederim

 

[muhammethezer]

iş emri

:dua: Hayırlı gerekli atamaların form üzerinde bulunacağı yerleri belirtmemiştim.Birde sayfa üzerin de bulunacak temizle butonu ile ikinci işleme geçmeden "HÜCRELERİ TEMİZLEYİN" mesajı nasıl verebilirim.Teşekkür ederim.

 

[Levent Menteşoğlu]

Temizlenecek hücreler sarı renkle işaretlediğiniz hücrelermidir?

 

[muhammethezer]

işemri

evet levent bey yardımlarınız için çok teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir butona bağlayarak çalıştırın.

[vb:1:ceedd5b5d4]Sub temizle()
Range("V8:V11,BH6:BX10,AE14:AS16,A14:V16").ClearContents
End Sub
[/vb:1:ceedd5b5d4]

 

[muhammethezer]

yardımınız için çok teşekkür ederim.Yazmış olduğunuz vba kodu işime yaradı . Eğer çok görmezseniz TextBox'a yazılan bir kod ile sayfa2'deki bilgileri sayfa1 form üzerine nasıl alabilirim.

 

[muhammethezer]

Eğer çok görmezseniz TextBox'a yazılan bir kod ile sayfa2'deki bilgileri sayfa1'de bulunan form üzerindeki renkliolarak belirtmiş olduğum yerlere nasıl alabilirim.

 

[muhammethezer]

Eğer çok görmezseniz TextBox'a yazılan bir kod ile sayfa2'deki bilgileri sayfa1'de bulunan form üzerindeki renkliolarak belirtmiş olduğum yerlere nasıl alabilirim

 

[Levent Menteşoğlu]

Aslında bunun için textbox kullanmanıza hiç gerek yok direk hücre kullanabilirsiniz. kodda worksheet_change olayına yazılabilir. Fakat textbox içinde aşağıdaki kodu kullanabilirsiniz. textbox kod no yazıldıktan sonra enter tuşuna basınca çalışacaktır.

Ben bir kaç hücre için yazdım gerisini siz tamamlarsınız.

[vb:1:5e69d3fe7c]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
Set s1 = Sheets("sayfa2")
sat = s1.[a1:a65536].Find(TextBox1).Row
[v8] = s1.[b2]
[v9] = s1.[c2]
[bh6] = s1.[I2]
End If
End Sub
[/vb:1:5e69d3fe7c]

 

[muhammethezer]

Ellerinize ve Emeğinize sağlık .İnşallah bir gün ben de sizler gibi bu Form üzerinden veya birebir karşılık beklemeden diğer arkadaşlarımıza yardımcı olabilirim. Sağolun varolun.... :hey: :hey: k:: pucuk:

 

[muhammethezer]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
Set s1 = Sheets("sayfa2")
sat = s1.[a1:a65536].Find(TextBox1).Row
[v8] = s1.[b2]
[v9] = s1.[c2]
[bh6] = s1.[I2]
End If
End Sub


GİRİLEN KOD NE OLURSA OLSUN SADECE İLK SATIRDAKİ BİLGİLERİ VERİYOR. YARDIMCI OLABİLİRMİSİNİZ...

 

[Levent Menteşoğlu]

Haklısınız bunu atlamışım. Aşağıdaki gibi olmalı.

[vb:1:a2b66fe913]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
Set s1 = Sheets("sayfa2")
sat = s1.[a1:a65536].Find(TextBox1).Row
[v8] = s1.cells(sat,"b")
[v9] = s1.cells(sat,"c")
[bh6] = s1.cells(sat,"I")
End If
End Sub
[/vb:1:a2b66fe913]

 

[muhammethezer]

YÜKSEK MÜSADENİZLE SAYFA ÜZERİNDE İKİNCİ BİR İŞLEM YAPMADAN "SAYFAYI TEMİZLE "UYARISI NASIL ALABİLİRİM..

 

[muhammethezer]

SAYFA ÜZERİNDE İKİNCİ BİR İŞLEM YAPMADAN "SAYFAYI TEMİZLE "UYARISI NASIL ALABİLİRİM..

 

[Seyit Tiken]

Ekli dosyaya bir bakın.

 

[muhammethezer]

teşekkür ederim istediğim buydu , birde yazdır butonun tıkladıktan sonra "Lütfen Sayfayı Temizleyin" uyarısı almak istesem nasıl yapabilirim.

 

[muhammethezer]

merhaba , Sorgulama butonu atadım fakat excel firma sorgu sayfasını gizlediğim için sorgu esnasında hata veriyor . Sayfa gizli durumdayken nasıl sorgulama yapabilirim.

 

[Seyit Tiken]

Bu kodu bir butona atayın.

Sub Makro3()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
MsgBox "Lütfen Sayfayı Temizleyin"
End Sub