Userformda buton sayesinde çalışma sayfası açtırıp kaydetme...

[manly]

Benim yapmak istediğim,

İlk açılışta gelen Userform üzerinde bir buton yardımıyla, "C" sütunundaki bir stok numarasını yazıp, o stok numarasından ne kadar satır varsa hepsini aynı stok numarası adını taşıyan bir çalışma sayfası açıp içine kaydetmesi, yardımlarınızı bekliyorum...

 

[manly]

Bu sorunuma yardımcı olabilir misiniz?

 

[manly]

Sorunuma kod yazımında yardımlarınızı bekliyorum...

 

[halit3]

Sorunuma kod yazımında yardımlarınızı bekliyorum...

Userforma bir adet CommandButton ekle ve Textbox79 nesnesine c sutununda aranacak değeri yaz düğmeye tıkla

Private Sub CommandButton14_Click()
Dim SayfaAdi As String
SayfaAdi = TextBox79.Text
On Error Resume Next
If Worksheets(SayfaAdi).Name = True Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = SayfaAdi
End If
sat = Worksheets(SayfaAdi).Cells(Rows.Count, "c").End(3).Row + 1
For r = 2 To Worksheets("2011 SİPARİŞLER").Cells(Rows.Count, "c").End(3).Row
aranan1 = Sheets("2011 SİPARİŞLER").Cells(r, "c").Value
If SayfaAdi = aranan1 Then
For i = 2 To 26
Sheets(SayfaAdi).Cells(sat, i).Value = Sheets("2011 SİPARİŞLER").Cells(r, i).Value
Next i
sat = sat + 1
End If
Next r
MsgBox "işlem tamam"
    
End Sub

 

[manly]

Halit hocam çok teşekkürler... ellerinize sağlık...Allah razı olsun...

 

[halit3]

Halit hocam çok teşekkürler... ellerinize sağlık...Allah razı olsun...

iyi çalışmalar