Skip to main content

AccessTr.neT


A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme

A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme

#67
Abey senin işler sadece bağlantıyla çözülür Img-grin
Olan şeylerde olmuyor Img-grin
Cevapla
#68
Aynen uygun olduğunuzda uzaktan bağlantı yapalım hocam
Cevapla
#69
(21/11/2020, 18:57)hayalibey yazdı: Satır Yükseklikleri aynı değil  yükseklik olarark hepsi25 olsa
isimler soy isimler ve rütbeler hücrelerde tam çıkmıyor çift tıklayınca sayfa yapısı bozuluyor hücrelere yazılanlar sığsa ve sayfa yapısını korusa
Ocak sayfasına alırken önce rütbeyi kontrol B sütündan alacak rütbe eşit ise sicili önce olan üstte olcak
Sayfa yapısı son dolu satıra kadar sayfa aktif olacak
Bir de F:AI arası boşlukta nereye tıklasam pembe oluyor
(21/11/2020, 19:03)hayalibey yazdı: boşluklarda da tıklayınca pembe oluyor
@hayalibey lütfen bir konuda tek soru sorun, yeni sorular için yeni konu açın, bunlar mevcut konunuzla ilgili değil

ayrıca açtığınız konudaki soru cevaplandıysa belirtin cevaplanmışlara taşıyalım.
Cevapla
#70
(21/11/2020, 19:03)hayalibey yazdı:
(21/11/2020, 19:00)feraz yazdı:
(21/11/2020, 18:57)hayalibey yazdı: Zafer Hocam Merhaba

Satır Yükseklikleri aynı değil  yükseklik olarark hepsi25 olsa
isimler soy isimler ve rütbeler hücrelerde tam çıkmıyor çift tıklayınca sayfa yapısı bozuluyor hücrelere yazılanlar sığsa ve sayfa yapısını korusa
Ocak sayfasına alırken önce rütbeyi kontrol B sütündan alacak rütbe eşit ise sicili önce olan üstte olcak
Sayfa yapısı son dolu satıra kadar sayfa aktif olacak
Bir de F:AI arası boşlukta nereye tıklasam pembe oluyor
Abey dünkü yaptıpımız dosya değil mi?
Renkleri ayarlamıştık biliyorum.0 için pembe felan son satır buldurmuştuk vs...
boşluklarda da tıklayınca pembe oluyor
Renk için kod bu.Diğer konudan devam ederiz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Açýklama_Ekleme As Comment, aa As String
Dim strText, hucre As Range, hucre2 As Range, son As Long

''''''''''''''''''Renk Kodlarý''''''''''''''''''''''''''''''''''
son = ActiveSheet.Range("Aj" & Rows.Count).End(3).Row
If son < 7 Then Exit Sub
On Error GoTo son
If (Target.Column >= 5 And Target.Column <= 35) And (Target.Row > 6 And Target.Row = son) Then

If Target.Value = 0 Then
' Target.Interior.color = 16750848
Target.Interior.color = rgbPink
ElseIf Target.Value = 1 Then
Target.Interior.color = vbWhite
End If
End If
son:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''Açýklama Bilgisi Kodlarý'''''''''

If Target.Row < 6 Then Exit Sub
If Target.Row > son Then Exit Sub
If Target.Column < 6 Then Exit Sub
If Target.Column > 36 Then Exit Sub
If Cells(Target.Row, 2).Value <> "" And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub

Set Açýklama_Ekleme = Target.Comment
If Not Açýklama_Ekleme Is Nothing Then
strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", "Açýklama_Ekleme", Target.Comment.text, , , , 2)
Else
strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", "Açýklama_Ekleme", "Açýklama Ekler", , , , 2)
End If

If strText = False Then Exit Sub
'Eger inputbox bossa
If strText = "" Then
'eger inputbox bossa ve msaj kuutundan evet secilirse
If MsgBox("Secilen aciklamalar silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
'eger tek hücre secilmisse
If Target.Cells.Count = 1 Then
sil Target
'eger birden fazla hücre secilmisse
Else
For Each hucre2 In Selection
sil hucre2
Next
End If
End If
'eger inputbox bos degilse
Else
'eger tek hücre secilmisse
If Target.Cells.Count = 1 Then
ekle Target, strText
'eger birden fazla hücre secilmisse
Else
For Each hucre2 In Selection
ekle hucre2, strText
Next
End If
End If

End Sub
Cevapla
#71
Deneyeyim Hocam çok teşekkür ederim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da