Funzione excel per eliminare intera riga in base ad un criterio - Roberto D'Alessio
I'm specialize in .NET, JAVA, PHP, iPhone App Development, Android App Development, iPad App Development, iOS Development,web design, web developer, web development and IT Solution
iphone development, iphone app development, ipad app development, android development, android app development, iphone app developers, iphone application development, android application development, mobile app development, italy outsource, italy outsourcing company, italy outsourcing companies, italy outsourcing, italy software outsourcing, Italy offshore, software outsourcing, Software testing companies, web design, web developer, web development, IT Solution, wordpress, joomla, angular, angularjs, angular.js, nodejs, node.js, socketio, socket.io, react, ionic, xamarin, hybrid app, web site, development site, site development
34
wp-singular,post-template-default,single,single-post,postid-34,single-format-standard,wp-theme-bridge,cookies-not-set,qode-quick-links-1.0,ajax_fade,page_not_loaded,,qode_grid_1300,qode-content-sidebar-responsive,qode-theme-ver-11.1,qode-theme-bridge,wpb-js-composer js-comp-ver-8.6.1,vc_responsive
Funzione excel per eliminare intera riga in base ad un criterio
01 Giu Funzione excel per eliminare intera riga in base ad un criterio
Posted at 13:10h
in
Blog
by notelseit
Sub elimina_righe() Dim ur As Integer, riga As Integer Dim col As String col = InputBox("Inserisci la colonna da controllare (in lettera)", "Input_colonna") If col = "" Then Exit Sub On Error GoTo fine ur = Cells(Rows.Count, col).End(xlUp).Row If ur = 1 Then Exit Sub For riga = ur To 1 Step -1 If IsError(Cells(riga, col)) Then Rows(riga).Delete If Cells(riga, col).Value = "" Then Rows(riga).Delete Next Exit Sub fine: MsgBox "Inserimento Colonna inesistente" End Sub
